Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create an Array to fill a Range
I'm trying to create a workbook of labels using an array to fill a range of
cells A4 to P75 from a user input box or boxes. The order should be A4:A75 through to P4:P75. i.e. A4 = 1 to A75 = 72 etc. I would like to expand the user input for text as well as numerical data, where the text element would be fixed and the numerical data would be sequential. e.g. 7F/01-001 The following sub (borrowed from Excel 2000 Power Programming with VBA) works but in rows instead of cols. My VBA ability is very, very rusty & I could use some help. TIA Sub ArrayFillRange() ' Fill a range by transferring an array Dim TempArray() As Integer Dim TheArray As Range ' Get the dimensions CellsDown = Val(InputBox("How many cells down?")) CellsAcross = Val(InputBox("How many cells across?")) ' Redimension temp array ReDim TempArray(1 To CellsDown, 1 To CellsAcross) ' Set worksheet range Set TheRange = ActiveCell.Range(Cells(1, 1), Cells(CellsDown, CellsAcross)) ' Fill the temp array Currval = 0 Application.ScreenUpdating = False For i = 1 To CellsDown For j = 1 To CellsAcross TempArray(i, j) = Currval + 1 Currval = Currval + 1 Next j Next i ' Transfer temp array to worksheet TheRange.Value = TempArray End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do i fill an array? tia | Excel Programming | |||
create a fill in template to tab to fill in cells | Excel Discussion (Misc queries) | |||
Create Array From Values in range | Excel Programming | |||
Create and Array formula using range names | Excel Programming | |||
Create and Array formula using range names | Excel Programming |