I just need to know that is it possible in excel that we could make box with length, width, height dimensions?
For example: we just enter 100mm is length, 70mm is width and 30mm is height.. so excel will make box according to this size
Using index, I know passing 0 as the row or column num returns the entire row or column.
So I have an array containing worksheets, and an associated column number:
I used the macro recorder for this:
ActiveSheet.PageSetup.PrintArea = "$A$1:$P$246"
How would I change this to use variables?
I need to set the print area to A( FR ) to P( LR )
Of course FR is first row, LR is last row
I'm trying to write a function that I can pass an array along with the data I want added to that array. The function will resize the array, put the data into it and return the new array. Example:
Function AddNewDataToArray(MyArray As Variant, Arg1 As String, Arg2 As String, Arg3 As String) As Variant
'If no elements have been added
Redim Preserve MyArray(1 To 3, 1 To 1)
'Add the first record of data to the array.
'If there is already data in the array
Redim Preserve MyArray(1 To 3, 1 To UBound(MyArray, 2))
'Add the next record of data to the array
End Function
As 2 dimensional arrays are Base 1, the challenge I have is getting it to resize (redim preserve) the array when it has to add the first record. I thought I could just use an IsArray function to test if there had been any data added. If not, then it would run the following...........
Currently I am building a class to keep track of entries I have made during the macro execution. Thus far I have:
Private Type Memory
MemoryArray() As Variant
End Type
Private Sub Class_Initialize()
Redim MemoryArray(0) As Variant
End Sub
Public Property Let AddToMemory(Object As Variant)
'memory is empty
If UBound(MemoryArray) = 0 And MemoryArray(UBound(MemoryArray)) = "" Then
MemoryArray(0) = Object ..............
I am trying to write a function that grabs the value of some cells in a column and returns a String array with those values. I am getting a compiler error on the line where I assign a value to an array element. It appears to be assuming that rather than an array reference, I am trying to do a recursive call to the function. The error is "Function call on left-hand side of the assignment must return Object or Variant." I would have done this with by assigning the range directly to the array but the data is in a column rather than a row; don't know of a more elegant way to do it.
Public Function projectList() As String()
Dim c As Range
Dim i As Long
For Each c In Range("FirstProject"). CurrentRegion
Redim Preserve projectList(UBound(projectList) + 1)
i = UBound(projectList)
projectList(i) = c.Value ' *** Compiler error occurs here ***
Next c
End Function
Passing an entire dimension of an array to a function....
View 13 Replies View Relatedwhen opening the workbook with Excel 2010 beta I folllowing error:
Run-tim error '1004':
The specified dimension is not valid for the current chart type.
VB:
Sub CreateFlat()
Dim wsData As Worksheet
Dim wsNew As Worksheet
[Code].....
In 2006 posting, this code was presented to the Forum. It works perfectly for a one dimension Crosstab. I have 4 dimensions that I need copied to the output.
I have attempted to modify the code, but nothing appears to adjust the pull of more than the first column of dimension data.
see the attached spreadsheet for the Crosstab data and desired output.
Is there any way to do this part of code without calling out each element individually?:
VB:
Dim aSequence(7, 1) As Integer
'setup Evaluation sequence
aSequence(0, 0) = -1
[Code]......
I have a spreadsheet on sheet 1 with a list of customers and their information. So on column A I have the customer number (i.e. k968, e37, p528,...), on column B i have the customer's name, on column C the street's name, on Column D the house number, on column E the zip code and finally the city on column F.
Right now there are around 600 customers in this list.
I have made a userform with a combobox in which I want to select an existing customer (pulled from the spreadsheet). On the same userform I have textboxes (customer number, name, street, number, zip, city). When I select a customer in the combobox, I want this customer's info to show up in the textboxes. I want to be able to change the info and hit Next to store the changes in the spreadsheet. When I do not select a customer from the combobox, I want to add new info in the textboxes and hit Next to store this info as a new customer. The userform also has a delete button. Then I select a customer in the combobox, this customer (and it's info) should be deleted from the spreadsheet when i hit Delete. So the spreadsheet is variable in length.
I need to figure a way to make to cells with dates equal each other if the
day,month and year are the same but are placed into a cell at different times during the day. "Making Date Now () = (06/29/09) In another cell". Therefore, A1= Now() and E11 = 06/29/09
If the sum of a Payment Due (Column C) minus the Amount Actually Paid (Column D) is results in a number greater than zero (Column E), no problem.
For instance:
C22: D22: E22:
200 150 =SUM(C22-D22)
E22 shows a result of: 50. That's great, exactly what I want it to do. However, if I paid more than what is due (D22 is greater than C22), I want the result in E22 to show as "0" instead of a negative number.
For instance:
C22: D22: E22:..............
I have some numbers in column G and column I. The formula I'm wanting to write in lamens terms is:
If the number in I4 is not within 10% of the number in G4 then I want the number in I4 to be red otherwise I want it to stay black.
Is there any simple way to build a calendar in Excel? Ideally, all events will be listed on one sheet by date and the calendar will display the events on their respective dates. Is this possible?
View 2 Replies View RelatedI'm searching for a way to make a shiftcalender in excel. The whole year i'm having troubles with my planning to do it in a system of my boss and i want to change this for next year. We need to have always a minimum of 2 people on duty and when someone calls in sick i want to see in for instance a collor that the planning is corrupt and that i have to call someone else to do the shift.
I've looked several up on the net and there are many types of shiftcalenders but not the one i have in mind.
What it needs to do is;
- There are 5 teams with 3 people in it, so 15 names,
- There are 3 shifts from 06:30 to 15:00(dayshift), 14:30 to 23:00(eveningshift) and 22:30 to 7:00(nightshift)
It's a 2-2-2 type of shift, that means 2 day-, 2 evening- and 2 nightshift and after the cyclus 4 days free which the first day a day to sleep.
I would like to proceed with the last date of the existing calender and that the sheet automatically fills in the rest.
I am created Financial Worksheets. . . ex. Balance Sheet, Income Statement, Cash Flows, Notes, Forecasted Sales Etc. and I want to make a GUI in-order to navigate easily. I already included Hyper Links to it for some detailed annexes.
View 4 Replies View RelatedI have the following code to create a 3D line graph:
View 2 Replies View RelatedI have this code ...
View 13 Replies View RelatedI am creating a form and certain fields are required. Can I force the user
to input some value before they can save?
Total newbie trying to use excel for work here. I have two problems that both need the use of "is NOT in another column". 1. I need to count the number of instances in a column that do NOT have the word "fly" in column G. The current formula is...
View 2 Replies View RelatedI have 12 macros in the sheet . I want to make those codes as ADD-INS. (like ASAP UTILITIES , EASY XL ....)
I have been browsing for right direction but finally Failed and I haven't found better than this place.
I am going to make a subtitle file by excel. However, I found the after I save the excel into a text format and open it in the note pad, there are " marks on every time line. I would like to know how to make the time line as clean as say 00:12:23,100 instead of "00:12:23,100".
View 1 Replies View RelatedI've just had Office 2007 installed on my computer and I HATE the new Excel layout. Is there any way I can get the old look back - I liked the old customizable toolbars and I hate these new ribbons.
I know there's one customizable easy access toolbar. Is there a way I can get more toolbars and get rid of these dangblasted ribbons?
i hv following code , which is working fine.
Sub M_0_1_project_20080107_ask_how_to_make_last_row_as_variable()
Range("F1") = "month"
Range([e2], [e6].End(xlDown)).Offset(0, 1).FormulaR1C1 = _
"=month(RC[-1])"
Range("g1") = "yr"
Range([f2], [f6].End(xlDown)).Offset(0, 1).FormulaR1C1 = _
"=YEAR(RC[-2])"
End Sub
i like to change to code as following , but it cannot work , hope some one can help me.
Private Sub Worksheet_BeforeDoubleClick _
lastrow = 6
Range("F1") = "month"
Range([e2], [e[lastrow]].End(xlDown)).Offset(0, 1).FormulaR1C1 = "=month(RC[-1])" _
Range("g1") = "yr"
Range([f2], [f[lastrow]].End(xlDown)).Offset(0, 1).FormulaR1C1 = "=YEAR(RC[-2])" _
End Sub
As i have many variable with same function, tried of keep change last row number.
Every month I get a big 5,000 row worksheet from a mainframe download. I need to move data from the one worksheet into multiple little worksheets (about 25 of them) according to a field called "OrgUnitName".
How can I get the results, not in column D but in a textbox,so I can choose one of the
names from that text box?
Sub concatvals()
Dim strvalue As String
Dim strsearch As String
strsearch = InputBox("What Number do you want :?")
For Each c In Range("A1:A100")
If c.Value = strsearch Then
If Len(strvalue) < 1 Then
strvalue = c.Offset(0, 1).Value
Else
strvalue = strvalue & ", " & c.Offset(0, 1).Value
End If
End If
Next
Range("D1").Value = strvalue
End Sub
#N/A#N/A#N/A#N/A#N/A#N/A#N/A#N/A#N/A#N/A#N/A#N/A
=RtHistory("IDN",B5,B7:D7,B6,"LAY:HOR NULL:SKIP ZERO:SKIP SORT:ASC")
the #N/A errors are based on the line above. Is there a way to remove the #N/A? I want to make Row B/C/D above blank
is it possible to put a message box in a VBA code so that the macro only runs once, else the worbook needs to reopened again for it to work. Is this the best way from preventing the macro to run again?
If i have multiple users, there is always a chance one might accidently press the command button twice.
If i wanted to tack on something to the end of a formula so that it would make every 50 add 1 (example: 200 would convert to 204, because 200 divided by 50 is 4).