TextBoxta Süzülenin Toplamını Alma

[ZorBey_]

Merhaba
İyi Çalışmalar

UserForm Da
Sayfa Seçiminde
Örneğin = Sayfa1 Seçelim
Süzde Örneğin = Ürün10 Süzelim

Süzülenin Alınan Toplamı = TextBox 29
Süzülenin Ödenen Toplamı = TextBox 30
Süzülenin Kalan Toplamı = TextBox 31

Bu Süzülen Toplamları TextBox'lara
Getirmek İstiyorum
Bu Konuda Yardımınızı Rica Ediyorum.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub TextBox25_Change() 'VERI ARAMA'
    Dim k As Range, adrs As String, j As Byte, a, sat As Long
    ReDim myarr(1 To 9, 1 To 1)
    If TextBox25.Text = "" Then
    sat = ActiveSheet.Cells(65536, "A").End(xlUp).Row
    ListBox1.RowSource = ComboBox1.Text & "!A2:I" & sat
    Exit Sub
    End If
    Set s1 = Sheets("" & ComboBox1)
    With s1
        ListBox1.RowSource = ""
        TextBox29 = ""
        TextBox30 = ""
        TextBox31 = ""
        If .FilterMode Then .ShowAllData
        Set k = .Range("A2:I65536").Find(TextBox25.Text & "*", , xlValues, xlWhole)
        If Not k Is Nothing Then
            adrs = k.Address
            Do
                a = a + 1
                ReDim Preserve myarr(1 To 9, 1 To a)
                For j = 1 To 9
                    myarr(j, a) = .Cells(k.Row, j + 1).Value
                    If j = 7 Then alinan_toplam = alinan_toplam + .Cells(k.Row, j).Value
                    If j = 8 Then odenen_toplam = odenen_toplam + .Cells(k.Row, j).Value
                    If j = 9 Then kalan_toplam = kalan_toplam + .Cells(k.Row, j).Value
                Next j
                Set k = s1.Range("A2:I65536").FindNext(k)
            Loop While Not k Is Nothing And k.Address <> adrs
            ListBox1.Column = myarr
            TextBox29 = alinan_toplam
            TextBox30 = odenen_toplam
            TextBox31 = kalan_toplam
        End If
    End With
End Sub

 

[assenucler]

Emek ve katkı için teşekkürler üstadım...

 

[ZorBey_]

Merhaba
Korhan Ayhan
Yardımınız İçin çok Teşekkür
Ederim Sağolun
Süzme Toplamını Alıyor
1- Fakat Süzmede Listboxtaki
Sıra Noları Kayboluyor
2- Süzülen Toplamların Formatları
Genel Toplamlarda Olduğu gibi
Örnek = 6.160,00 TL
Mümkünse Böyle Bir Düzenleme Yapabilirmiyiz Acaba
Tekrar Teşekkür Ederim
İyi Çalışmalar.

 

[Korhan Ayhan]

Merhaba,

Sıra numarası ile ilgili ben bir düzenleme yapmadım. Dikkat ederseniz sadece eklemeler yaptım. Rakamları biçimlendirme işlemini kendinizde yapabilirsiniz. Forumda oldukça fazla örnek ar.

FORMAT ifadesi ile arama yapın....

 

[ZorBey_]

Merhaba
Korhan Ayhan
Tamam Araştırıyorum
Çok Teşekkür Ederim
Sağolun İyi Çalışmalar.