Macro Kaydet

[HASAN SATILMIS]

Selam, Bir konu vardı işin içinden çıkamadım Yardımcı olacaklara şimdiden teşekkür ederim. Sorun şu 1 den 225 e kadar yazdırmak istesem nasıl uygulayabilirim.Belki basittir ama benim kafa durdu

ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A2").Select
ActiveCell.FormulaR1C1 = "3"
Range("A2").Select
End Sub

ActiveCell.FormulaR1C1 = "1" with "225" Range("A2").Select
End sub denedim ama olmadı

 

[Korhan Ayhan]

Merhaba,

Makro kaydet yönteminde serileri doldur özelliğini kullanarak rahatlıkla yapabilirsiniz. Kırmızı değeri ihtiyacınıza göre düzenleyin.

Option Explicit
 
Sub Sıra_No()
    With Range("A1")
        .Value = 1
        .DataSeries Rowcol:=xlColumns, Type:=xlLinear, _
        Date:=xlDay, Step:=1, Stop:=[COLOR=red]225[/COLOR], Trend:=False
    End With
End Sub

 

[HASAN SATILMIS]

Çok teşekkür ederim Korhan Hocam elinize sağlık