ListBox'tan TextBox'a Toplam aldırma

[teksen]

Arkadaşlar Merhaba,

Ekte gönderdiğim dosyada açılan UserForm Üzerinde Bul isimli bir Frame var.

ComBox ile arama yaptığım zaman altındaki LİstBox1'e istenilen bilgileri getiriyor.

Birde ListBox1'in üstünde TextBox13,12,11,10 ve 9 var.

İşte sorun burda...Ben ComboBax'tan seçip ListBox1'e billeri aldığım zaman bu TextBox'lara gelmesini istiyorum.

Ayrıca Ara butonunun yanındaki temizle butonuna basınca ListBox'la birlikte TextBox13,12,11,10 ve 9'u da temizleyebilmeliyim.

Fakat malesef beceremedim.

Şimdiden teşekkür ederim.

Herkese iyi çalışmalar.

 

[Ferhat Pazarçevirdi]

Combobox'tan seçtiğinizde listbox'a birden fazla kayıt gelirse, bunlardan hangisi textbox'a yüklenecek?

Veya listbox'a tıklama veya çift tıklama ile TextBox'lara, listbox'tan okunan bilgi doldurulabilir. Bu daha mantıklı olur gibi...

 

[teksen]

ComboBox'tan seçtiklerimin içinde birden fazla olan kayıtların gelmesi gerekiyor.

Üstündeki TextBox'larada da birden fazla olan kayıtların toplamını görmek istiyorum.

Örneğin Ahmet diye birine 3 adet poliçe kesildiyse,ComboBox'ta Ahmet seçildiğinde ListBox'a Ahmet'in 3 Poliçeside gelecek ve TextBoxlarda da Ahmet'in 3 poliçesinin bilgileri toplanacak.

 

[Ferhat Pazarçevirdi]

Commandbutton87'nin Click olay kodunu aşağıdaki gibi değiştiriniz.

NOT : İlave yapılan kısımlar kırmızı ile gösterilmiştir.

Private Sub CommandButton87_Click()
If ComboBox1.Text = "" Then
   MsgBox "Firma Kısmı Boş Geçilemez.Lütfen Firma Seçimini Yapın...", vbCritical, "Firma Seçimi"
   Exit Sub
End If
[COLOR=red]Call bultemizle_Click[/COLOR]
Cells(1, 7) = ComboBox1.Text
Range("x2:af65536").ClearContents
For x = 2 To 1000
    son = [x65536].End(3).Row + 1
    If Cells(x, 1) = Cells(1, 7) Then
        Range("x" & son) = Range("b" & x)
        Range("y" & son) = Range("c" & x)
        Range("z" & son) = Range("d" & x)
        Range("aa" & son) = Range("e" & x)
        Range("ab" & son) = Range("f" & x)
        Range("ac" & son) = Range("g" & x)
        Range("ad" & son) = Range("h" & x)
        Range("ae" & son) = Range("i" & x)
        Range("af" & son) = Range("j" & x)
    End If
Next
ListBox1.RowSource = "x2:af" & [x65536].End(3).Row
'Range("I" & son).Value = Range("a" & x).Value
[COLOR=red]If ListBox1.ListCount = 0 Then Exit Sub
For i = 0 To ListBox1.ListCount - 1
    netprim = ListBox1.List(i, 4) + netprim
    Vergi = ListBox1.List(i, 5) + Vergi
    BrutPrim = ListBox1.List(i, 6) + BrutPrim
    TahsilEdilen = ListBox1.List(i, 7) + TahsilEdilen
    Kalan = ListBox1.List(i, 8) + Kalan
Next i
TextBox13 = Format(netprim, "0.00")
TextBox12 = Format(Vergi, "0.00")
TextBox11 = Format(BrutPrim, "0.00")
TextBox10 = Format(TahsilEdilen, "0.00")
TextBox9 = Format(Kalan, "0.00")
[/COLOR]End Sub

 

[teksen]

Teşekkür ederim

Elinize sağlık