Sayfa Alt Toplamlarını Almak

Sayfa Alt Toplamlarını Almak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sayfa Alt Toplamlarını Almak (/konu-sayfa-alt-toplamlarini-almak.html)

Sayfalar: 1 2 3 4

Sayfa Alt Toplamlarını Almak - m_demir - 12/05/2020

Merhaba Arkadaşlar

Eklediğim uygulamada UserForm1 den aktif sayfaya veri aktarıyorum. Eklediğim resimdeki gibi alt toplamları sayfada ve ListBox1 göstermek istiyorum.

Bu konuda yardımlarınıza ihtiyacım var.

RE: Sayfa Alt Toplamlarını Almak - feraz - 12/05/2020

(12/05/2020, 23:17)m_demir yazdı: Merhaba Arkadaşlar

Eklediğim uygulamada UserForm1 den aktif sayfaya veri aktarıyorum. Eklediğim resimdeki gibi alt toplamları sayfada ve ListBox1 göstermek istiyorum.

Bu konuda yardımlarınıza ihtiyacım var.

Tam olarak adım adım analtırmısınız.Resimde yok.

RE: Sayfa Alt Toplamlarını Almak - m_demir - 12/05/2020

Hocam resim eklemeyi unutmuşum. Kusura bakmayın.

[Resim: do.php?img=10190]

RE: Sayfa Alt Toplamlarını Almak - feraz - 12/05/2020

Bir fonksiyon yazayım hem kaydet hem silme hemde güncellemede eklesim alttoplamları.

RE: Sayfa Alt Toplamlarını Almak - m_demir - 12/05/2020

Olur Hocam.

RE: Sayfa Alt Toplamlarını Almak - feraz - 13/05/2020

Kod altta.
Private Sub UserForm_Initialize() buraya

If LCase(ActiveSheet.Name) = "sayfa1" Or LCase(ActiveSheet.Name) = "liste" Or LCase(ActiveSheet.Name) = "şablon" Then

    ListBox1.Clear

    Exit Sub

End If

If WorksheetFunction.CountA(Range("A7:A" & Rows.Count)) = 0 Then GoTo var

alttoplamAl

var:

yukarıdakileri ekledim.

ListBox1.RowSource = "A7:K" & [A65536].End(3).Row + 1

yerinede

ListBox1.RowSource = "A7:K" & [D65536].End(3).Row + 1

olarak değiştirdim.

Sub alttoplamAl()

    

    With ActiveSheet

        .Unprotect 4455

        son = .Range("A" & Rows.Count).End(3).Row + 1

        .Range("A" & son & ":K" & Rows.Count).ClearContents

        .Range("D" & son + 1) = "TOPLAMLAR"

        son = .Range("D" & Rows.Count).End(3).Row

        .Range("E" & son) = WorksheetFunction.Sum(.Range("E7:E65536"))

        .Range("F" & son) = WorksheetFunction.Sum(.Range("F7:F65536"))

        .Range("J" & son) = WorksheetFunction.Sum(.Range("J7:J65536"))

        .Range("K" & son) = WorksheetFunction.Sum(.Range("K7:K65536"))

        .Range("D7:K" & Rows.Count).Interior.ColorIndex = xlNone

        .Range("D" & son & ":K" & son).Interior.ColorIndex = 4

        .Range("D" & son).HorizontalAlignment = xlRight

        .Range("D7:K" & Rows.Count).Font.Bold = False

        .Range("D" & son & ":K" & son).Font.Bold = True

        .Protect 4455

    End With

  

End Sub