For Döngüsü

[tuvons]

Arkadaşlar merhaba,

For döngüsünde "I2" den "I20" ye kadar yazdım ama "I" sütununda 116421, 138200, 140200 gibi sayılar var. 116421'den başladığı için ikinci döngüde 1 artarak 116422 değerini alıyor. 116422 değerini değil de "I2" den sonra "I3" deki değeri almasını nasıl sağlayabilirim?

 

[Ömer]

Merhaba,

Sorunuz net değil, 2 farklı döngü örneği yazdım.

Sub deneme1()
    
    Dim i As Byte
    
    For i = 2 To 20
        MsgBox Cells(i, "I")
    Next i
    
End Sub


Sub deneme2()
    
    Dim i As Range
    
    For Each i In Range("I2:I20")
        MsgBox i.Value
    Next i
    
End Sub