Otomatik satır açmak ve toplamak

[tgtd]

Merhabalar, ekteki dosya ile yapmak istediğimi anlatmaya çalıştım. Yardımlar için şimdiden teşekkürler

Yapmak istediği satır ekle butonuna bastığımız da sarı olan üst toplam satırını açması ve altta açılan satırların toplamını almak, tabi alta açılan satırlar değişik sayılarda olabilir.

 

[Murat OSMA]

Neye göre satır ekleneceği belirtilmemiş.

 

[tgtd]

Neye göre satır ekleneceği belirtilmemiş.

Üstad en son eklenen mavi satırın altına gelecek şekilde eklemek istiyorum.

 

[Murat OSMA]

Pek anlaşılır bir cevap vermediniz.
ÜST TOPLAM satırları hangi şartla eklenecek?

 

[Murat OSMA]

Siz cevap verene kadar mesai bitti açıkçası..

Bu kodları buraya bırakıyorum belki işinize yarar..

Sub Emre()
    Dim i&, topla#
    For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
        If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
            Rows(i).Insert
            Range("A" & i & ":B" & i).Merge
            Cells(i, 1).Value = "ÜST TOPLAM"
            topla = topla + Cells(i + 1, 2).Value
            Cells(i, 3).Value = topla
            topla = Empty
                Else
            topla = topla + Cells(i, 2).Value
        End If
    Next i
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
    topla = Empty: i = Empty
End Sub

Dosyayı da ekliyorum..

İyi akşamlar.

 

[tgtd]

Üstad Teşekkür ederim Ben anlatıncaya kadar siz çözmüşsünüz : )) , Çok sağolun İyi akşamlar.

 

[Murat OSMA]

Çözeli çok oldu da, sizden net bir yanıt bekledim..