Satır ekleme

[Musa....]

Arkadaşlar Merhaba.
Ekte gönderdiğim satır ekleme işleminde yardımcı olur musunuz. TEŞEKKÜRLER.

 

[Korhan Ayhan]

Deneyiniz.

Sub Düğme3_Tıkla()
    Satir = Cells(Rows.Count, "C").End(3).Row
    Rows(Satir).Copy
    Rows(Satir + 1).Insert Shift:=xlDown
    Cells(Satir + 1, "A") = Cells(Satir, 1) + 1
    Cells(Satir + 1, "C") = Sheets("GİRİŞ").Range("F5")
    Cells(Satir + 1, "E") = Sheets("GİRİŞ").Range("F6")
    Veri = Split(Cells(Satir, "B"), " ")
    Metin = Replace(Cells(Satir, "B"), Veri(UBound(Veri)), "")
    Tarih = Replace(Replace(Veri(UBound(Veri)), "(", ""), ")", "")
    Ay = Array("OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
    For X = 0 To UBound(Ay)
        Tarih = Replace(Tarih, Ay(X), X + 1)
    Next
    Tarih = CDate("1-" & Tarih)
    Tarih = DateSerial(Year(Tarih), Month(Tarih) + 1, 1)
    Tarih = Evaluate("=UPPER(""" & Format(Tarih, "mmmm-yyyy") & """)")
    Cells(Satir + 1, "B") = Metin & "(" & Tarih & ")"
    Application.CutCopyMode = False
End Sub

 

[Musa....]

Korhan hocam Öncelikle teşekkür ediyorum Elinize sağlık hocam eklenen satırların toplamı olan toplam kısmı eklenen satırları algilamiyor burayide ayarlarsanız makbule geçer teşekkür ediyorum.

 

[Korhan Ayhan]

Bahsettiğiniz hücredeki formülü aşağıdaki gibi düzenleyin.

Böylece dinamik olarak çalışacaktır.

=TOPLA(DOLAYLI("H4:H"&SATIR()-1))