iki sayı arası rakkamları listeleme

[kenangulal]

merhaba,sorum şöyle diyelimki A1 = 10 , B1 = 20 olsun ,10 ile 20 arasındaki rakkamları,10,11,12,13,14,15,16,17,18,19,20 diye alt alta D1 hücresine macro yardımı ile listelesin istiyorum. yardımcı olabilirmisiniz.
tşk.

 

[Ali]

Sub sayıyaz()
a = Range("A1")
b = Range("B1")
For i = a To b
Cells(i + 1 - a, 4) = i
Next
End Sub

 

[kenangulal]

sn fructose çok teşekkür ederim beni büyük bir dertten kurtardınız.iyi bayramlar.

 

[Ali]

Sn kenangulal D içeriğinin temizlenip kodların çalıştırılması daha iyi olur sanırım.

Sub sayıyaz()
Columns("D").ClearContents
a = Range("A1")
b = Range("B1")
For i = a To b
Cells(i + 1 - a, 4) = i
Next
End Sub

İyi çalışmalar.

 

[kenangulal]

Ben de öyle değişiklik yapmıştım Sn.fructose ilginize teşekkür ederim.
syg.