listbox tan tekxboxa alt toplam alma

[cdroy1]

herkeze selamlar

fordaki örneklere bakmaya çalıştım fakat örnek dosyalar eski tarihlerde olduğu için silinmişti ekte göndereceğim dosyada yapmak istediğimi gönderdim yardımcı olabilirseniz çok sevinirim ,
kolay gelsin hayırlı günler

 

[Orion1]

Merhaba.
Listbox1_Click olayındaki kodları silin.
Aşağıdaki kodları kopyalayıp yapıştırın.

Private Sub ListBox1_Click()
Dim Borc As Single, alacak As Single, Kalan As Single
    ListBox2.Clear
    ListBox2.ColumnCount = 6
    ListBox2.ColumnHeads = False
    ListBox2.ColumnWidths = "0;50;30;50;50;50;100"
    Satır = 0
    For X = 2 To [A65536].End(3).Row
    If ListBox1.List(, 1) = Range("D" & X) Then
    ListBox2.AddItem
    With ListBox2
    .List(Satır, 0) = Range("A" & X)
    .List(Satır, 1) = Range("B" & X)
    .List(Satır, 2) = Range("C" & X)
    .List(Satır, 3) = Range("F" & X)
    .List(Satır, 4) = Range("G" & X)
    .List(Satır, 5) = Range("E" & X)
    Borc = Borc + Range("F" & X).Value
    alacak = alacak + Range("G" & X).Value
    Kalan = Format(Borc - alacak, "#,##0.00")
    End With
    Satır = Satır + 1
    End If
    Next
TextBox1 = Format(Borc, "#,##0.00")
TextBox2.Value = Format(alacak, "#,##0.00")
TextBox3.Value = Format(Kalan, "#,##0.00")
End Sub

 

[cdroy1]

Sayın üstadım harikasın olabileceğinin en güzeli eline sağlık

 

[Orion1]

Rica ederim.
İyi çalışmalar.