Satır dolduğunda altına otomatik bir adet satır eklenmesi

[tamer42]

Merhabalar,

Ekli dosyada 10. ve 20 nolu satırlar arasında fatura bilgilerinin yazılacağı satırlar mevcut;

10 sıra numaralı 20 nolu satırda "Açıklama" alanı doldurulduğunda ( en az 5 karakter bir şeyler yazıldığında) ; Bu satırın bir altında aynı formatta boş bir satır daha eklenmesi,

aynı şekilde altındaki satır doldurulduğunda onun da bir altına aynı formatta boş bir satır daha eklenmesi ve bu durumun aynı şekilde devam etmesi nasıl sağlanabilir?

Özetle 10 kalemden sonra en altta her zaman veri girişine uygun boş bir satırın hazır edilmesi;

ilginize şimdiden teşekkürler,
iyi akşamalr.

 

[ÖmerFaruk]

Private Sub Worksheet_Change(ByVal Target As Range)
son = Range("B" & Rows.Count).End(xlUp).Row
If son < 20 Then Exit Sub
    If Intersect(Target, Range("B" & son)) Is Nothing Then Exit Sub
    Rows(son + 1).Insert Shift:=xlDown
    Rows(son).Copy
    Rows(son + 1).PasteSpecial xlFormats
    Cells(son + 1, 1) = Cells(son, 1) + 1
    Cells(son + 1, 6) = Cells(son, 6)
    Cells(son + 1, 2).Select
    Application.CutCopyMode = False
End Sub

 

[tamer42]

Private Sub Worksheet_Change(ByVal Target As Range)
son = Range("B" & Rows.Count).End(xlUp).Row
If son < 20 Then Exit Sub
    If Intersect(Target, Range("B" & son)) Is Nothing Then Exit Sub
    Rows(son + 1).Insert Shift:=xlDown
    Rows(son).Copy
    Rows(son + 1).PasteSpecial xlFormats
    Cells(son + 1, 1) = Cells(son, 1) + 1
    Cells(son + 1, 6) = Cells(son, 6)
    Cells(son + 1, 2).Select
    Application.CutCopyMode = False
End Sub

Hocam çok teşekkür emeğinize sağlık,

Bir şey daha somak istiyorum., satır ekledikçe doğal olarak 2. sayfaya geçme olacakır.
2. sayfaya geçerken, ekli görselde belirtiğim Toplam alanının (siyah kalın çizginin altı 3 satır) komple 2. sayfaya geçmesi nasıl sağlanabilir, bu alan blok olarak hareket etsin istiyorum, buradan 1 satır geçip diğer ikisi kalınca ağınık bir görüntü oluşuyor.

iyi çalışmalar.

 

[ÖmerFaruk]

Forumda PageBreak diye aratıp, sorunuza çözüm bulabilirsiniz.
PageBreakerların pozisyonunu otomatik ya da elle verebilirsiniz.
Biraz zahmet, biraz görsel zevk, biraz dikkat isteyen ama zor olmayan bir konudur.
Sayfa boyutlarınıza, faturadakki satır sayısına karar vermeli, hangi satırdan sonra 2.sayfaya geçeceğinize karar vermeli, 2.sayfanın formatı nasıl olacak onu düşünmelisiniz.
Normal bir şekilde excel dosyanız çalıştıktan sonra PageBreaker konusunu ele almalısınız.