Hata veren makro(sıra no düzeltme)

[tufan03]

Sub Sirala()
Range("A2").Select
satir=2
Do While Range("A" & satir) <> ""
DoEvents
Range("A" & satir) = satir-1
satir=satir+1
End Sub

Yukardaki kodu forumdan almış ve arşivime tablonun a sütunundaki sıra numarlarını yeniden düzenleyen,arada silinen satırları öteleyip, sıra numarası veren kod olarak yazmıştım. Şimdi ise bu kodu çalıştıramadım,hata veriyor acaba neden.

 

[alpi]

Aşağıdaki şekilde değiştirin

Sub Sirala()
Range("A2").Select
satir=2
Do While Range("A" & satir) <> ""
DoEvents
Range("A" & satir) = satir-1
satir=satir+1
loop
End Sub

 

[tufan03]

Teşekkür ederim,

 

[Levent Menteşoğlu]

Sıra no verme ile ilgili farklı bir kod örneğide ben vereyim.

Sub siranover()
[a2] = 1
[a3] = 2
[a2:a3].AutoFill Destination:=Range("A2:A" & [a65536].End(3).Row)
End Sub

 

[tufan03]

Teşekkür ederim Sayın Leventm.