Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using Cells( ) for Range definition
I am trying to write a code using the Cells() for range defintion but
it didn't work. It only works when I use the regular defition [i.e. Range("A3:D30") instead of Range(Cells(3,1),Cells(30,4))] Here is what I tried to write: Sub CopyToSheet1 () Dim i As Integer i = InputBox("Enter Sheet Number (1):") With ThisWorkbook For j = 5 TO 10 .Sheets(i).Range(Cells(3,1),Cells(30,4)).Copy Sheets("Sheet1").Range(Cells(5,1),Cells(32,4)) .Sheets(i).Range(Cells(3,j),Cells(30,j)).Copy Sheets("Sheet1").Range(Cells(5,j+2),Cells(32,j+2)) .PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Next j End With End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA Range definition: Code needed | Excel Discussion (Misc queries) | |||
f statistic, p value definition | Excel Worksheet Functions | |||
$ definition | Excel Worksheet Functions | |||
End of data definition | Excel Discussion (Misc queries) | |||
The definition of.... | Excel Worksheet Functions |