Change CellA.

[Joergen Bondesen]

Hi NG

I have this macro [simplified]

Sub test()

dim RRange as range
set RRange=Range("A1:A1000")

dim CellA as range
'// Loop 1
for each CellA in RRange
'// CellA = Range("A1")

'// Loop2
dim CellA2 as range
for each CellA2 in rrange.offset(1,0)
'// doing something and now I want CellA to continue with
Range("A10"),
'// I will use a counter and Cells(counter,1)
'// Is it possible, and how ?

'// Next time in loop2 I want CellA=Range("A25")
exit for
next cellA2

'// something like: CellA=Range("A10")
next CellA

 

[Joel]

I think your codde would be better structuresd like this

RowCountColA = 1
do while RowCountColA <= 1000
CellA = Range("A" & RowCountColA)
RowCountColB = 1
do while RowCountColB <= 1000
CellB = Range("B" & RowCountColB)
RowcountColB = RowCountColB + 1
loop
RowcountColA = RowCountColA + 1
loop

 

[Joergen Bondesen]

Hi Joel.

Thanks.

--

Best regards
Joergen Bondesen

I think your codde would be better structuresd like this

RowCountColA = 1
do while RowCountColA <= 1000
CellA = Range("A" & RowCountColA)
RowCountColB = 1
do while RowCountColB <= 1000
CellB = Range("B" & RowCountColB)
RowcountColB = RowCountColB + 1
loop
RowcountColA = RowCountColA + 1
loop

Hi NG

I have this macro [simplified]

Sub test()

dim RRange as range
set RRange=Range("A1:A1000")

dim CellA as range
'// Loop 1
for each CellA in RRange
'// CellA = Range("A1")

'// Loop2
dim CellA2 as range
for each CellA2 in rrange.offset(1,0)
'// doing something and now I want CellA to continue with
Range("A10"),
'// I will use a counter and Cells(counter,1)
'// Is it possible, and how ?

'// Next time in loop2 I want CellA=Range("A25")
exit for
next cellA2

'// something like: CellA=Range("A10")
next CellA