Tersten Döngü rakamları

[Ertan83]

Sub a()
  For x = 1 To 3
    Cells(x, 1) = x
  Next x
End Sub

Bu döngü ile 1den 3 e kadar olan satırlara 1 den 3 e kadar rakamlar yazdırıyorum. Ancak isteğim şu

A1 = 3
A2 = 2
A3 = 1

yani döngünün tersten çalışması gibi birşey. nasıl yapabilirm. Not: Başka bir işlem için kullancağım soru anlaşılsın ve cevabı kısa sürsün diye bu örneği verdim. Rakam 1 to 3000 de olabiliyor ancak sayılar tersten lazım

For x = 1 To 3000 ise

A1 = 3000
A2 = 2999
A3 = 2998
A4 = 2997 gibi olmalı.

İlgilenen arkadaşlara teşekkür ederim.

 

[ALPEN]

[vb:1:e28936528c]for i = 3000 to 1 step -1
cells(i,1) = i
next i[/vb:1:e28936528c]

 

[Ertan83]

Teşekkürler. Ancak:

A1 = 3000
A2 = 2999
A3 = 2998
A4 = 2997 gibi olmalı.

 

[Haluk]

For i = 3000 To 1 Step -1
cells(3001 - i, 1) = i
Next i

 

[Ertan83]

İlgilenenlerin ellerine sağlık teşekkür ederim.