Farklı KDV oranlarının toplamlarını Farklı hücrelere alma

[oqsijen]

Arkadaşlar basit bir tablo üzerinde çalışıyorum ama birike birike çok yoğun bir veri olmaya başladı fatura içeriklerinde KDV oranlarının matrahlarını ayrı satır larda toplattırmak istiyorum ama birtürlü bilgi eksikliğinden dolayı beceremedim yardımcı olabilirseniz çok sevinirim örnek tablo ektedir. Şimdiden yardımcı olan arkadaşlara teşekkürler.

 

[Necdet]

Merhaba,
Neyin nereye yazılacağını pek anlamadım ama örnek olması açısından formülü inceleyiniz. Aşağıdaki fonksiyon 8 lik kdv tutarlarını toplar. Diğerlerini siz uyarlayınız.

=ETOPLA(I2:I7;8;J2:J7)

 

[oqsijen]

Merhaba,
Neyin nereye yazılacağını pek anlamadım ama örnek olması açısından formülü inceleyiniz. Aşağıdaki fonksiyon 8 lik kdv tutarlarını toplar. Diğerlerini siz uyarlayınız.

=ETOPLA(I2:I7;8;J2:J7)

Buda işimi görür Necdet Bey ama alt satırlarada otomatik uygulaya bileceğim bir şey olsa çok kolaylaşırdı her seferinde aralıkları seçmek zorunda kalıyorum bu excel bizi tembelliğe alıştırdı ama fikriniz çok güzel teşekkür ederim yardımınız için

 

[Necdet]

Buda işimi görür Necdet Bey ama alt satırlarada otomatik uygulaya bileceğim bir şey olsa çok kolaylaşırdı her seferinde aralıkları seçmek zorunda kalıyorum bu excel bizi tembelliğe alıştırdı ama fikriniz çok güzel teşekkür ederim yardımınız için

Üzerinde düşünelim bakalım Belki bir çözüm yolu vardır

 

[Ömer]

Buda işimi görür Necdet Bey ama alt satırlarada otomatik uygulaya bileceğim bir şey olsa çok kolaylaşırdı her seferinde aralıkları seçmek zorunda kalıyorum bu excel bizi tembelliğe alıştırdı ama fikriniz çok güzel teşekkür ederim yardımınız için

Merhaba,

Module kopyalayın ve bir butona bağlayarak çalıştırın.

Sub Duzenle()
 
    Dim i As Long, j As Long, a As Long
 
    With Application
        .ScreenUpdating = False
        .Calculation = xlManual
    End With
 
    On Error Resume Next
    Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
    Range("A2:N" & Rows.Count).Sort Range("G2"), Order1:=xlAscending
    Cells.Borders.LineStyle = 0
 
    a = 2
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i + j, "G") <> Cells(i + j + 1, "G") Then
            Rows(i + j + 1 & ":" & i + j + 3).Insert Shift:=xlDown
 
            Cells(i + j + 1, "I") = "%8 Toplam"
            Cells(i + j + 2, "I") = "%18 Toplam"
            Cells(i + j + 3, "I") = "Genel Toplam"
 
            Cells(i + j + 1, "J") = "=SumIf(I" & a & ":I" & i + j & _
                                    " ,8,J" & a & ":J" & i + j & " )"
            Cells(i + j + 2, "J") = "=SumIf(I" & a & ":I" & i + j & _
                                    " ,18,J" & a & ":J" & i + j & " )"
            Cells(i + j + 3, "J") = "=Sum(J" & a & ":J" & i + j & " )"
 
            Cells(i + j + 1, "K") = "=SumIf(I" & a & ":I" & i + j & _
                                    " ,8,K" & a & ":K" & i + j & " )"
            Cells(i + j + 2, "K") = "=SumIf(I" & a & ":I" & i + j & _
                                    " ,18,K" & a & ":K" & i + j & " )"
            Cells(i + j + 3, "K") = "=Sum(K" & a & ":K" & i + j & " )"
 
            Range("A" & a & ":N" & i + j).Borders.LineStyle = 1
 
            With Range("I" & i + j + 1 & ":K" & i + j + 3)
                .Font.ColorIndex = 3
                .Font.Italic = True
                .Borders.LineStyle = 1
            End With
 
            Range("A" & i + j & ":N" & i + j).Borders(xlEdgeBottom).Weight = xlThick
            Range("A" & i + j + 3 & ":N" & i + j + 3).Borders(xlEdgeBottom).LineStyle = xlDouble

 
            j = j + 3
            a = i + j + 1
 
        End If
    Next i
 
    Columns("A:N").EntireColumn.AutoFit
 
    With Application
        .ScreenUpdating = True
        .Calculation = xlAutomatic
    End With
 
End Sub

.

 

[oqsijen]

Üstad bu gerçekten muhteşem ötesi olmuş bunu ama butona tıkladığımda hücrelerdeki dolguları ve biçimleri sıfırlıyor bu şekildemi olmak zorunda gerçi bu işlem benim işimi 1000 kat kolaylaştırdı ellerine emeklerine sağlık çok muhteşem

 

[Ömer]

#5 numaralı mesajdaki kodları güncelledim, yeniden deneyiniz. Son haliyle daha sade olduğunu düşündüğüm için dolgu eklemedim, denedikten sonra dolgu ihtiyacı duyarsanız hangi bölümlere ekleneceğini belirtirseniz eklerim.