Tabloya Satır Ekle-Sil

[daihaupt]

Belgemde bulunan bir tabloya satır eklemek ve silmek için bir makro yazdım. Ama bazı sorunlar oldu. Yardımınıza ihtiyacım var. Lütfen ekteki belgeyi inceleyin. Orada daha detaylı açıkladım.

 

[mancubus]

tablo dosyadaki yapıda kalacak ise...

Sub sat_ekle()
    
    Dim gtSat As Long
    gtSat = Application.Match("Genel Toplam", Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row), 0)
    
    Rows(gtSat).EntireRow.Insert

End Sub

Sub sat_sil()
    
    Dim gtSat As Long
    gtSat = Application.Match("Genel Toplam", Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row), 0)
    
    If gtSat = 5 Then Exit Sub
    Rows(gtSat - 1).EntireRow.Delete

End Sub

Sub sat_sifirla()
    
    Dim gtSat As Long
    gtSat = Application.Match("Genel Toplam", Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row), 0)
    
    Range("B4:D4").ClearContents
    If gtSat = 5 Then Exit Sub
    Rows("5:" & gtSat - 1).EntireRow.Delete

End Sub

 

[mancubus]

düğmeler de sayfadaki yerlerinde kalacak ise, silinen veya eklenen satırlar nedeniyle aşağı ve yukarı kaymalarını engellemek için tasarım modunda düğme üzerinde sağ tıklayarak "denetim biçimlendir" seçilir. açılan pencerede, "özellikler"den "hücrelerle taşıma ve boyutlandırma" seçeneği işaretlenir.

 

[kucukdunyam]

peki C Sütununda veriler var, Bu verilerin bulunduğu hücrelerdeki değerler kadar o hücreden sonra satır ekleyebilirmiyiz,