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

--

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


"Joergen Bondesen" wrote:

> 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
>
> --
>
> Best regards
> Joergen Bondesen
>
>
>

Hi Joel.

Thanks.

--

Best regards
Joergen Bondesen


"Joel" <(E-Mail Removed)> skrev i en meddelelse
newsBDC2D60-7BB5-4C72-9177-(E-Mail Removed)...
>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" wrote:
>
>> 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
>>
>> --
>>
>> Best regards
>> Joergen Bondesen
>>
>>
>>