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.
Sayfa Alt Toplamlarını Almak
Hocam resim eklemeyi unutmuşum. Kusura bakmayın.
Bir fonksiyon yazayım hem kaydet hem silme hemde güncellemede eklesim alttoplamları.
Olur Hocam.
Kod altta.
Private Sub UserForm_Initialize() buraya
yukarıdakileri ekledim.
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
Konuyu Okuyanlar: 1 Ziyaretçi