sıralı saydırma hakkında

[zamenya]

Arkadaşlar merhaba ekte eklediğim örnekte b1 hücresine yazdığım değer kadar a3 den başlayarak nasıl yazdıra bilirim . Örnek b1 5 yazdım , A3 den başlayaak 1 2 3 4 5 gibi

BU konuda yardımcı olursanız çok sevinirim

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1]) Is Nothing Then Exit Sub
Range("a:a").ClearContents
For i = 1 To [b1]
Cells(i + 2, 1) = i
Next
End Sub

 

[zamenya]

sayın uzmanamle ilginiz için çok teşekkür ederim ama kodu uygulayamadım butona onclick yordamına yazmam gerekiyor verdiğiniz kodu butona ekeldiğimde If Intersect(Target, [b1]) Is Nothing Then Exit Sub hata veriyor

 

[zamenya]

sayız uzmanamale tamam verdiğiniz kodu uyarladım çok teşekkürler yardımız için hata benden kaynaklanıyormuş

 

[uzmanamele]

sayın uzmanamle ilginiz için çok teşekkür ederim ama kodu uygulayamadım butona onclick yordamına yazmam gerekiyor verdiğiniz kodu butona ekeldiğimde If Intersect(Target, [b1]) Is Nothing Then Exit Sub hata veriyor

merhaba
bunu deneyiniz

Sub Düğme1_Tıklat()
Range("a:a").ClearContents
For i = 1 To [b1]
Cells(i + 2, 1) = i
Next
End Sub

 

[Necdet]

Merhaba,

Alternatif, Seri ile çözüm :

Sub Seri()
Range("A3:A65536").ClearContents
Range("A3") = 1
Range("A3:A" & [B1] + 3).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=[B1]
End Sub

 

[uzmanamele]

merhaba

syn Necdet bey'den esinlenerek başka bir alternatif.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1]) Is Nothing Then Exit Sub
Range("A:A").ClearContents
Target.Offset(3, -1).Resize([b1], 1) = "=ROW()-3"
End Sub