Thread
:
Reading Rows of Variable Length
View Single Post
#
2
Posted to microsoft.public.excel.programming
JE McGimpsey
external usenet poster
Posts: 4,624
Reading Rows of Variable Length
One way:
Public Sub Copy2()
Dim i As Long
With Sheets("Sheet1")
For i = 2 To .Cells(.Rows.Count, 3).End(xlUp).Row
.Range(.Cells(i, 3), .Cells(i, 3).End(xlToRight)).Copy _
Destination:=Sheets("Sheet2").Cells(i, 3)
Next i
End With
End Sub
In article ,
(DCondie) wrote:
Working in Excel 2003
I am trying to read the contents of cells in a row of variable length
offset by the contents of cell C2 and write the contents to Sheet 2
starting at cell C2.
I have written the following procedure to accomplish the task:
Sub CopyProcedure()
Dim I As Integer
I = 2
Do
With Worksheets("Sheet1").Cells(I, 2)
.Range(.Cells(1), _
.End(xlToRight)).Copy Destination:=Worksheets("Sheet2").Cells(I,
2)
I = I + 1
End With
Loop While Worksheets("Sheet1").Cells(I, 2).Value < ""
End Sub
The problem:
The procedure is reading and writing the next row down from the
initial offset cell (C2). Thereafter, in the looping process it reads
and writes the contents of the second row after the row just written.
How do I get the procedure to read and write every row?
Reply With Quote
JE McGimpsey
View Public Profile
Find all posts by JE McGimpsey