Geriye sayan fornext

[peleryn]

Merhabalar;

For i=3 to 14
Cells(i,1).Value=i
Next

gibi bir kod dizimi 3 ten başlayıp 14 e kadar çalışıyor.Ancak

For i=14 to 3
Cells(i,1).Value=i
Next

gibi yazıldığında 14 ten geriye doğru 3 e kadar döngünün çalışmasını sağlayamıyorum.Bunun için ne yapmalıyım.

 

[Necdet]

Merhaba,

For i=14 to 3 Step -1
     Cells(i,1).Value=i
Next

 

[peleryn]

Necdet hocam çok teşekkür ederim.

 

[muygun]

Merhaba;

For i = 14 To 3 Step -1
j = j + 1
Cells(j, 1).Value = i
Next

şeklinde deneyin.
İyi çalışmalar.

 

[peleryn]

muygun hocam size de teşekkür ederim.

Peki For Each hcr in Range("a2:d20") ile başlayan döngüm a2 hücresinden başlayıp d20 hücresine kadar tek tek hücreleri seçiyor.Bunun tersi şeklinde çalışmasını nasıl sağlayabilirim.Bu şekil olunca step -1 işe yaramıyor.Yani hücreler d20 den başlayıp geriye doğru seçilecek bunu nasıl sağlayabilirim?

 

[Korhan Ayhan]

Selamlar,

For-Each döngüsü yapısı gereği istediğiniz şekilde çalışmaz. Bu işlem için For-Next kullanmanız daha uygun olacaktır.

 

[peleryn]

Selamlar,

For-Each döngüsü yapısı gereği istediğiniz şekilde çalışmaz. Bu işlem için For-Next kullanmanız daha uygun olacaktır.

Korhan hocam peki d20:a2 aralığının geriye doğru sırasıyla seçilmesi için basit bir öneri niteliğinde kod kalıbı yazabilir misiniz?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub SEÇ()
    Dim X As Integer, Y As Integer
    
    For X = 4 To 1 Step -1
        For Y = 20 To 2 Step -1
            Cells(Y, X).Select
        Next
    Next
End Sub

 

[peleryn]

Bu konuda yardımcı olan tüm hocalarıma teşekkür ederim.