Getting values in row and advancing

[Billy B]

I have a worksheet with four columns of data. I want to loop through rows,
starting at A5 and get the values (and assign to variables) from column1, 2,
3 and 4 respectively then advance to the next row untile all four cells in
the row are blank.

Help would be greatly appreciated.

[Chip Pearson]

Try

Dim Rng As Range
Dim V1 As Variant
Dim V2 As Variant
Dim V3 As Variant
Dim V4 As Variant

Set Rng = Range("A5")
V1 = Rng(1, 1)
V2 = Rng(1, 2)
V3 = Rng(1, 3)
V4 = Rng(1, 4)
Do Until V1 = "" And V2 = "" And V3 = "" And V4 = ""
Set Rng = Rng(2, 1)
V1 = Rng(1, 1)
V2 = Rng(1, 2)
V3 = Rng(1, 3)
V4 = Rng(1, 4)
Loop


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Billy B" <[email protected]> wrote in message
news:[email protected]...
>I have a worksheet with four columns of data. I want to loop
>through rows,
> starting at A5 and get the values (and assign to variables)
> from column1, 2,
> 3 and 4 respectively then advance to the next row untile all
> four cells in
> the row are blank.
>
> Help would be greatly appreciated.
>
>

[colofnature]

To read the values in A->D into four variables to use immediately:

for i = 1 to intersect(activesheet.usedrange,[a:d]).rows.count
A_variable = cells(i,1).value
B_variable = cells(i,2).value
C_variable = cells(i,3).value
D_variable = cells(i,4).value
' Perform your calculation here
next


To read them into an array to use later:

Dim varrayCellValues as Variant
data_count = intersect(activesheet.usedrange,[a:d]).rows.count
ReDim varrayCellValues(1 to 4, 1 to data_count)
for i = 1 to 4 ' refers to the row
for j = 1 to data_count ' refers to the column
varrayCellValues(i, j) = cells(j, i).value
next: next


Hope that helps
Col