I have a problem here.
I am trying to create an inputbox such that the text will display line by line instead of one line display
EG:
Selection = InputBox("Enter Your Selection No. 1 for aaa. 2 for bbb")
Above code will display text as:
"Enter Your Selection No. 1 for aaa. 2 for bbb"
But i would want the text to be displayed in:
"Enter Your Selection No."
"1 for aaa"
"2 for bbb"
Is there any way I can display line numbers against the code in the Visual Basic Editor?
Or can I see in the current line number in the status bar?
or GoTo Line number?
Is it possible to display both the current code line number and the total line count of a macro while it's running?
I was thinking it would be handy for a progress indicator if the ProgressBar max value could be set to the LineCount total of the procedure and each line of code would increment the progressbar as the macro ran.
I have a exel file which has been exported from Access to exel. There are many cells which shows the data as in Cell A1 with the Linefeed character in between data in a cell. Is there any way (may be using a macro) where I can remove the character and get it to display as B1 in the same cell(A1). The file is attached herewith.
View 5 Replies View RelatedI have a spread sheet with Column A = Document number, Column B = revision.
I am trying to get a macro that, when run, increases the revision letter in column B. The problem is that we do not use a few of the letters such as I, O, P and Q.
I thought it would be best to have a table of the used revision letters (Say in Z1 to Z40)
Look at the text in column B of the row currently selected and find it in the Z1:Z40 table
Move one cell down the Z1:Z40 table and copy that text back into column B on the row initially selected.
i hv following code
(i use generate macro)
my question is how to arrange the code from one line to multiple like :-
following code show in excel macro environment is one striaght line.
' Create new var on yr , and replace 2006 to CY06.
ActiveCell.FormulaR1C1 = _
I want to use a line graph to display an amount over time - that's the easy part. On the other hand, I would like to have to group the lines based on a value.
A short example:
Imagine you own 3 different stores and you're selling oranges. So your table looks like this:
http://img179.imageshack.us/my.php?image=orangeshm4.jpg
Now I'd like to have one graph (3 different graphs won't work as the rows increase -I need to select the whole column as data source):
Date on the x axis,
Oranges sold on the y axis,
and one line per store (e.g. a green one for store A, a red one for B and a blue one of C, doesn't matter).
I have a spreadsheet where on a weekly basis data is copied in to various tabs. I then have a "formula" tab where I have a single line of formulas which look up the various data tabs and extract the results I want to show.
Currently each week, before I import the new data into the various tabs, I copy the last row in the "formula" tab and paste to the line below it. This contains all the working formulas. I then paste values only on the line that I copied, thus "locking in" the values it calculated with that weeks data. This means that each row then contains the results with that week's data, and this will grow week by week.
What I am looking for is a formula that automates this process. So let's say that row 30 is the final row of data on my formula tab, it contains the formulas I want to use. I would need a macros that does the following:
1. Looks up last row (row 30)
2. Copies last row (row 30)
3. Pastes to next empty row (row 31)
4. Pastes values only to second last row (row 30)
I'm not too great with writing macros, I've found plenty that can find the last row, but I can't get them to work to highlight that row.
Is it possible to display all of the bars from a floating bar chart on the same line. The effect would be a single horizontal bar that turns "On" and "Off" from left to right. I'm not sure of the application, but it might represent when a room is occupied over time. I think one can create this effect using Andy Pope's "Column Chart with Varying Width Bars" charting technique (provided on his web site http://www.andypope.info/charts.htm ), but is there a more direct approach?
View 5 Replies View RelatedI have a dynamic Named Ranges called ChartData containing 4 values from 4 cells on the row selected. I have a chart using this Named Ranges so that the value displayed are always referring to the current row. This works fine. I created a second Named Ranges ChartAvg which is =AVERAGE(ChartData) that I project to use in the Chart. However, I need to have 4 time the same value (average) if I want to display a line in the chart.
My problem is: I don't want (and can't) enter the Named Ranges ChartAvg in 4 cells to use in the chart. I wish to create a 3rd Named Ranges called ChartAvgData that would be used in the Chart. So now, to my question : How to create a Named Ranges that is a list of (4) values, somethine like: {ChartAvg,ChartAvg,ChartAvg,ChartAvg}
This is not working, whereas {1,2,3,4} (for example) works fine.
I have a column of data that I'd like to visualize in a line chart. The cells in the column contain formulas that calculate numbers added to other sheets every month. The adjacent column has the names of each month. New data appears when the data for the month is added.
I'd like to ask the chart to not display the values that are currently zero, because we haven't arrived at that month yet. So, for instance, the cell in the column for November 2011 has a zero, because the range it sums has no data in it yet.
Is there a way to do this without having to go back to each chart every month and change the range to add-in the new data?
I am charting the following data (for a lot of countries, and the data changes based on a pull down menu which selects the country).
Yr1Yr2Yr3Yr4Yr5
Country1167155175188155
Country2145n.a.150140166
Country3142154n.a.170160
What I don't want is the line on the chart plummeting to zero when there is a "-", i.e. no value.
If I chart this instead:
Yr1Yr2Yr3Yr4Yr5
Country1167155175188155
Country2145[.....]150140166
Country3142154[.....]170160
..., where [.....] means a blank cell, then the 145 does now show up at all.
I insert a picture in the merged cell(2 lines) of QTablewidget,but the pictures can only display height of one line and becomes very narrow.How to solve it? I write the code in QT with C#.
my code：
tableWidget1->setItem(3,3,newQTableWidgetItem(QIcon("image2/vm.png"),tr("Ab")));
tableWidget1->resizeColumnToContents(3);
tableWidget1->resizeRowToContents(3);
Is there a way to display just the staring and ending labels in a line graph.
I have around multiple line items, each contiaining 15-20 data points.
When I instert line graph with data labels, it becomes very mesy.
So I want to display just the starting and ending number of each line graph.
Manually selecting the data point and adding labels is very time consuming as I have around 200 line graphs, each containing 7-8 data series.
I'm making a Pivot table and i'd like that the different field will be displayed on each line.
here is an exampe of what i have and what i want to have
______Group____Average age
Man_____1_________16
_________2_________22
_________3_________25
_________4_________33
_________5_________48
Woman__1_________16
_________2_________22
_________3_________25
_________4_________33
_________5_________48
Result needed
______Group____Average age
Man_____1_________16
Man_____2_________22
Man_____3_________25
Man_____4_________33
Man_____5_________48
Woman__1_________16
Woman__2_________22
Woman__3_________25
Woman__4_________33
Woman__5_________48
Where can i found the option to edit? if it's possible.
I have a spreadsheet where I track income (positive) and expense (negative) items and compare budget to actual amounts. I want to create a simple bar graph comparing budgeted amounts to actual amounts for each item.
However, when I do this, I see all of my income items above the line (pointing up) and all of the expense items below the line (pointing downward).
Is there an option I can select to just use absolute values for the items so they all appear above the line?
I have the following line from my code of which I am having trouble with I get an error:
If Left(IRange, 1).Value "1" Then
I am trying to find the first string in cell range ...IRange ... I know the Left function = Left(string, length) but can I reference a Range or perhaps cell location within the string argument??? This can be done in excel formulas, but can it be done with VB code??
IRange = Cells (iRow,iCol) and value in cells are Long
My goal is to try and find out how I can use my excel formula:
Left(D3,Find("1",D3)) and impliment this to my above VB line
Need to combine the code below in one line?
View 2 Replies View RelatedI have a large formula written in my VBA code (a sumproduct with numerous variables) which exceeds the line length in VBA and therefore a proportion of the code is shown on the next line.
However, the VBA treats this second line as an error (since it sees it as a new line of code which on its own doesnt work) What do I need to do so that it treats the two lines as a single line of code?
When I started using VBA, all the code for each module was shown in the code window. This was a bit cumbersome when looking for one sub in particular. Now when I load VBA, all the Subs and Functions have their own page, and can be selected from the right hand drop down list. This is much easier for entering code, and finding subs. However, it is sometimes useful to see 'the big picture', so how do I swap between the two types of display?
View 2 Replies View RelatedThis should be a simple one, But I can get it to work. Could someone advise me as to how I can change this line of code to pick sheet(2) as it is now it picks sheet(1) . and throws the formula off. In A nut shell the formula is looking at sheets(1) C3 When it needs to look at sheets(2) C3. I always get messed up with the & and "" and!
View 3 Replies View RelatedI have the following script which will copy data from one worksheet to another sheet. The data in the first sheet is filtered and therefore it is pasting #n/a in the blank cells of the second sheet.
IMPORTANT: I already can do this with multiple lines of code, however just out of curiousity I was wondering if it could be done with the one line of script and to not have #n/a in blank cells.
HTML Code:
worksheets("BBB").range("A1:E65000").value = worksheets("AAA").range("A1:E65000).specialcells(xlcelltypevisible)
Need vba code for excel that will auto add a formatted row when a button is pushed? I have the button made, but I need it to move down a row each time a user clicks the add line button.
View 3 Replies View RelatedHow do you use the numbering convention for each line??
Private Sub btnShowAllRows_Click() Dim iRow As Integer
125 For iRow = 7 To 30
130 ActiveSheet.Rows(iRow).Hidden = False
135 Next
140 btnShowAllRows.Visible = False
145 btnShowVolChanges.Visible = True
End Sub
I have the following snippet of -
Worksheets(2).Cells(20, 3) = "=IF(C29=""09"",""09"",IF(C28=""08"",""08"",IF(C27=""07"",""07"",IF(C26=""06"",""06"",IF(C25=""05"",""05"",IF(C24=""04"",""04"",IF(C23=""03"",""03"",IF(C22=""02"",""02"",""00""))))))))"
which works. However I want it to be: -
Worksheets(2).Cells(20, 3) = "=IF(C29=""09"",""09"",IF(C28=""08"",""08"",IF(C27=""07"",""07"",IF(C26=""06"",""06"",IF(C25=""05"",""05"",IF(C24=""04"",""04"",IF(C23=""03"",""03"",IF(C22=""02"",""02"",IF(C21=""01"",""01"",""00"")))))))))"
but I can't because I can only have 8 nested IF's.
Is there an alternative way of obtaining the last line of code?
If I number my lines of code and an error occurs, the use of Erl in the VBA will then return the exact VBA line number that the error occurred on. Is it possible to automatically capture or record that same effect when the macro process leaves its current sub and goes to another?
Reason: I'm trying to create a Call Stack that can be reported through an Error Handler that will include the exact location and process that the error occurred to better troubleshoot and understand where and why the error occurred.
The best I can come up with so far is manually putting in bookmarks along way so I know how far along the macro went before the error. From all of my searching I believe retrieving the Excel Call Stack is not possible and so one must be manually created.
Enclosed is an example of what I have so far. It goes through several macros and logs the Call Stack. It’s a work in progress so it is a little sloppy looking but it is functional. If a Sub finishes it is then taken out of the Call stack.
Several "BookMarks" are placed to give an idea of how far along the Macro has gone within that Sub. The Code for the Erl example is:
Sub SampleErrorWithLineNumbers()
Dim dblNum As Double
10 On Error Goto PROC_ERR
' Errors if table doesn't exist
20 Select Case Rnd()
Case Is < 0.2
30 dblNum = 5 / 0
40 Case Is < 0.4
50 dblNum = 5 / 0
60 Case Is < 0.6
70 dblNum = 5 / 0
80 Case Is < 0.8
90 dblNum = 5 / 0
100 Case Else
End Select
110 Exit Sub
PROC_ERR:
120 MsgBox "Error Line: " & Erl & vbCrLf & vbCrLf & _
"Error: (" & Err.Number & ") " & Err.Description, vbCritical
End Sub
Let's say I have a long macro and I want to test some code a ways down in the macro, but I don't want to have to run through all the code to get there, because I already have my Excel spreadsheet set up at the point I need to check and I just want to start checking the code a ways into the procedure.
Short of commenting out all the code above where I want to start, is there another easier way to do this?
I need a hand with a worksheet that we use.
We do a penetration test on soil, write down the values from the machine, then enter into excel and it plots a line graph.
Depending on the values, sometimes a correction is required. This is manually done at the moment.
I would like to have excel do it for us.
I have attached an example of a manual correction I have done as well as the excel calculation worksheet.
There are 2 results given (one at 2.5mm penetration & one at 5.0mm penetration), we calculate both, then use the highest result for the report.
the x value is a constant and the y is a variable.
Attached Files :
Copy of Master WA CBR Worksheet Soaked.xls‎
DOC230714-002.pdf‎
When I use this code below
Private Sub CommandButton3_Click()
Dim MyData
Set MyData = New DataObject
MyData.GetFromClipboard
MyData.SetText Me.TextBox1.Text
MyData.PutInClipboard
MsgBox MyData.GetText
End Sub
I get a debug error on the MyData.PutInClipboard line.
Does the line of code assign the value of cell A5 to the range or is it just a startinig point?
View 9 Replies View Related