Buton ile satır ekleme

[iaslan517]

Merhabalar, öncelikle herkese iyi günler diliyorum. Ekte yer alan 20 satırlık forma buton ekleyip, butona her bastığımızda yeni bir satır ekleyecek şekilde makro oluşturmak istiyorum. yardımcı olabilirmisiniz.

 

[iaslan517]

buton eklemeden bile saydırabiliriz yeterki 20den sonra sürekli 21 22 23... diye aşağı doğru kaysın. yardımcı olabilirseniz çok minnettar olurum

 

[systran]

çalışmanızda yazdırma alanı belirlemişsiniz, eğer 20 den fazla satır eklerseniz, sayfalar bölünmüş halde dağınık çıkmaya başlar. her ilave satırdan sonra ayar yapmanız gerekebilir.

 

[iaslan517]

yazdırma alanı iptal edilebilir yada hiç olamayabilir systran kardeşim, sizden ricam yeterki bir buton yardımıyla yada otomatik olarak aşağı doğru biçimlendirerek ekleyerek saydırsın, yazdırma için kullanmayacağız sadece bilgisayar ortamında kullanacağız.

 

[iaslan517]

Ekteki dosyadaki tablonun sonuna 21 22 23 24.... Olacak sekilde buton yada otomatik olara satir eklemem mumkunmu, yardimci olabilirseniz minnettar kalirim.

 

[systran]

örnek dosyayı inceleyiniz.

 

[Korhan Ayhan]

Deneyiniz.

Sub Satir_Ekle()
    Son = Cells(Rows.Count, 1).End(3).Row - 5
    Range(Cells(Son, 1), Cells(Son + 1, 1)).EntireRow.Copy
    Range(Cells(Son, 1), Cells(Son + 1, 1)).Insert Shift:=xlDown
    Application.CutCopyMode = False
    No = 1
    For X = 6 To Son + 2 Step 2
        Cells(X, 1) = No
        No = No + 1
    Next
    MsgBox "Satır ekleme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[iaslan517]

çok teşekkür ederim, başarılarınızın devamını diliyorum. saygılarımla