ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Run Array.. run array... (Which to use?) (https://www.excelbanter.com/excel-programming/310928-re-run-array-run-array-use.html)

Tom Ogilvy

Run Array.. run array... (Which to use?)
 
ActiveSheet.Name

would give you the name of the active Worksheet.

I don't thing there is a general reference for arrays. Have you tried help
in the VBA - it should have what you need. There really isn't that much to
them. Most books would be lucky to have more than a page on them.

If you have a specific question on arrays ask it.



you can replace all constructs like

ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Project #"


with

Activecell.offset(1,0).Value = "Project#"


or to use an array

ActiveCell.Offset(1,0).Resize(1,4) = Array("Project#", "Weekly Hours", _
"Forecasted", "% to Forecast")

as far as your other question, I don't understand what you are asking.


--
Regards,
Tom Ogilvy


"Alex" wrote in message
...
I have a spreadsheet that I've gotten half of it automated. Now I'm just
trying to automate the remaing part.

Basically what I want to do is generate a summary sheet (which I already
have the code for that completed) and then populate it with info from the
other worksheets that are in the workbook. This is just part of the code

that ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Project #"


it's based around to generate the summary sheet.

ActiveSheet.Select
ActiveSheet.name = "SUMMARY"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Project"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Weekly Hours"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Forecasted"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "% to Forecast"
ActiveCell.Offset(1, -4).Range("A1").Select
ActiveCell.FormulaR1C1 = "=MZ6756!RC[1]"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=MZ6756!RC[1]"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=MZ6756!R[66]C[3]"
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=MZ6756!R[68]C[1]"
ActiveCell.Offset(1, 0).Range("A1").Select

These are the things that I need it to do:

1) Pull the name of the worksheet, this is always a variable as the names
are not always the same.
2) The formula cell references will change, but will always be at the end

of
the data. Same column different row, ActiveCell.FormulaR1C1 =
"=MZ6756!R[68]C[1]". The others that generate the header row will stay the
same.
3) Do a loop til all worksheets are in the summary.


I'd really like some info on Array's also, any links or info would help!!

Your help is appreciated!!


--
Jack of all trades... master of none..





All times are GMT +1. The time now is 01:22 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com