sayıları yazdırmak

[gencoglu27]

Merhaba arkadaşlar,
Diyelimki "A" sütununa 1 den 100 e kadar sayıları yazmak istiyorum.Bunu yapmak için A1 'e "1" A2 hücresine de "2" rakamını yazıyor sonra her iki hücreyi seçili hale getiriyor sağ alt köşede oluşan kalın "+" işaretinden tutup 100. satıra iniyoruz.
Fakat aynı işem 100.000 satır için yapmak 3 yada 4 dakika sürüyor..Bunun daha prtik yolu var mı ? Formül yazıp enter e basınca bana istediğim sayı aralığı kadar sayıyı ekrana yazsın istiyorum..

Teşekkürler.

 

[Ömer]

Merhaba,

Module kopyalayıp çalıştırınız.

Sub Doldur()
 
    Dim son As Long
 
    On Error Resume Next
    Application.DisplayAlerts = False
 
    If Range("A1") = "" Then MsgBox "A1 Hücresini Boş Bırakmayın.": Exit Sub
 
    son = Application.InputBox("Son Satır Numarası", "Seri Doldur")
 
    If son > Rows.Count Then MsgBox "Satır Sayısı Sınır Dışı": Exit Sub
 
    Range("A2:A" & Rows.Count).ClearContents
 
    Range("A1").DataSeries xlColumns, xlLinear, xlDay, 1, son
 
    Application.DisplayAlerts = True
 
End Sub

.

 

[gencoglu27]

Teşekkürler Ömer arkadaşım..
işe yaradı.. Fakat her seferinde bu kodu modüle kopyalamak yerine bir butona atasak ve butonu araç çubuğuna yapıştırmak daha iyi olur..

Kendinize iyi bakın..

 

[Ömer]

Her seferinde module kopyalamanıza gerek yok. Bir kere kopyalayıp, ondan sonra ister butona atayın isterseniz Alt F8 ile manuel çalıştırın.

.