Skip to main content

AccessTr.neT


Sayfa Alt Toplamlarını Almak

Sayfa Alt Toplamlarını Almak

Çözüldü #1
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.
.rar Per.Çiz.rar (Dosya Boyutu: 262,54 KB | İndirme Sayısı: 2)
Cevapla
#2
(12/05/2020 23:17)m_demir Adlı Kullanıcıdan Alıntı: 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.
Cevapla
#3
Hocam resim eklemeyi unutmuşum. Kusura bakmayın.

[Resim: do.php?img=10190]
Cevapla
#4
Bir fonksiyon yazayım hem kaydet hem silme hemde güncellemede eklesim alttoplamları.
Cevapla
#5
Olur Hocam.
Cevapla
#6
Kod altta.
Private Sub UserForm_Initialize() buraya


Visual Basic Code
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.

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

yerinede

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

olarak değiştirdim.


Visual Basic Code
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

.rar Per.Çiz..rar (Dosya Boyutu: 251,88 KB | İndirme Sayısı: 2)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da