Sıra Seri no hk

[bulentkars]

Arkadaşlar Merhaba

Excel de B4 te sayı var örneğin b4 te "40" yazdığımda ve makroyu çalıştırdığımda a2 den itibaren 1 den 40 kadar otomatık sıra numarası vermek istiyorum B4 te eğer 20 varsa 1 den 20 kadar saysın değer yoksa sıra numarası vermesin bana bu konuda yardım ederseniz sevinirim.bulentkars@gmail.com

 

[Orion1]

Range("A2:A65536").ClearContents
For i = 1 To Range("B4").Value
    Cells(i + 1, "A").Value = i
Next

 

[bulentkars]

tesekkur

çok teşekkür ederim