Soru for döngüsü

[polist]

selamlar elimde A sütununda 10 bin hücre var,

For i = 1 To 10000

mesai = Range("A" & i)

yukardaki gibi bir döngüm var birer birer döndürüyor ama ben her 2 satırı döndürmek istiyorum

yani 1 ve 2 yi alsın , sonra 3 ve 4 , ikişer ikişer for döngüsünü çalıştırmak istiyorum.

basit olabilir ama yapamadım .

yardımcı olursanız sevinirim.

sağlıcakla kalın ., mutlu günler

 

[Necdet]

Merhaba,
Kodları kendinize uyarlayınız.

Sub Dongu()

    Dim i As Long
   
    For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 2
        MsgBox Cells(i, "A") & " " & Cells(i + 1, "A")
    Next i
   
End Sub

i değişkeni ile uğraşmak istemezseniz Offset fonksiyonunu da kullanabilirsiniz, şöyle ki:

    For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 2
        MsgBox Cells(i, "A") & " " & Cells(i, "A").Offset(1, 0)
    Next i

 

[polist]

Merhaba,
Kodları kendinize uyarlayınız.

Sub Dongu()

    Dim i As Long
  
    For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 2
        MsgBox Cells(i, "A") & " " & Cells(i + 1, "A")
    Next i
  
End Sub

i değişkeni ile uğraşmak istemezseniz Offset fonksiyonunu da kullanabilirsiniz, şöyle ki:

    For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 2
        MsgBox Cells(i, "A") & " " & Cells(i, "A").Offset(1, 0)
    Next i

teşekkür ederim ellerinize sağlık