A 1 Hücresindeki Sayıya Göre Makro ile Hücrelere Sayı Yazdırma

[yyhy]

A 1 Hücresindeki Sayıya Göre Makro ile Hücrelere Sayı Yazdırabilir miyiz?

 

[Necdet]

Merhaba,

A1 hücresine yazdığınız sayıya kadar 1 den başlayarak sayı mı yazılacak?

 

[mustafaine1]

Sub deneme()
sayi = Range("A1").Value
Columns("A:A").ClearContents
For i = 1 To sayi
Cells(i, "A") = i
Next
End Sub

bu sekilde yapabilirsiniz ben on satirlik bisey yaptim siz istediginiz gibi arttiriniz..

 

[Necdet]

Ses seda çıkmadı, 1 den başlayarak yazdıralım o zaman seri ile. Alternatif olsun.

Aşağıdaki kodların ilgili sayfanın kod bölümünde olmalı, A1 hücresinin değeri değiştiğinde otomatik olarak çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Range("A2:A" & Rows.Count).ClearContents
    If IsNumeric(Target.Value) = False Or Target.Value = 0 Then Exit Sub
    Range("A2") = 1
    Range("A2:A" & Range("A1") + 1).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=1, Trend:=False
    Application.ScreenUpdating = True
End Sub

 

[yyhy]

Sayın Mustafaine kodu çalıştıramadım.
Sayın Necdet bey kodu uyguladım. Güzel Çalışıyor. Ellerinize sağlık. Necdet bey bu kodu macro şeklinde de uygulayabilir miyiz? İyi çalışmalar.

 

[Necdet]

Sayın Necdet bey kodu uyguladım. Güzel Çalışıyor. Ellerinize sağlık. Necdet bey bu kodu macro şeklinde de uygulayabilir miyiz? İyi çalışmalar.

Aşağıdaki kodları bir modüle kopyalayıp Butonla ilişkilendiriniz.

Sub SeriOlustur()
    Application.ScreenUpdating = False
    Range("A2:A" & Rows.Count).ClearContents
    If IsNumeric([A1]) = False Or [A1] = 0 Then Exit Sub
    Range("A2") = 1
    Range("A2:A" & Range("A1") + 1).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=1, Trend:=False
    Application.ScreenUpdating = True
 
End Sub

 

[mustafaine1]

modul icerisine kopyalayip butona deneme macrosunu atadiginizda calismasi gerekir..

 

[yyhy]

Arkadaşlar Teşekkürler Modüle yapıştırdığım sayın mustafaine ve sayın necdet beyin vermiş olduğu kodlar çalıştı. İşimizi gördü. İyi çalışmalar.