Listboxa koşullu listeleme

[pitsss]

ekte ki dosyada. sol menüdeki option butanlardan birine tıklayınca üsteki text boxa ismi yazılıyor. bu text boxa ismi yazıldıktan sonra aşağıdaki list boxa sadece ismi yazılan ürünün sütünlarını nasıl getire bilirim?
mesela text boxta benzin yazıyor diyelim. listbozta da sadece benzin ile ilgili satırlar görüntülensin? olabilir mi?
5 Benzin denemebenzin1 123,00 YTL
6 Benzin denemebenzin2 465,00 YTL
7 Benzin denemebenzin3 789,00 YTL
bu şekilde.
daha sonra bu görüntülenen ürünün fiyatlarının toplamını labele( textbox ta olur) nasıl aktarabilirim?
şimdiden teşekkürler.
umarım iyi anlatabil mişimdir :???:

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz veya aşağıdaki kodları projenize ilave ediniz.

Private Sub UserForm_Initialize()
Dim dizi()
With ListBox1
    .Clear
    .ColumnCount = 4
    .ColumnWidths = "20;90;100;50"
End With
s = Cells(1, 1).End(xlDown).Row
ReDim dizi(1 To s, 1 To 4)
For i = 2 To s
    For j = 1 To 4
        dizi(i - 1, j) = Cells(i, j)
        If j = 4 Then: gider = gider + Cells(i, j)
    Next j
Next i
ListBox1.List = dizi
Label2.Caption = gider
End Sub

Private Sub TextBox3_Change()
Dim dizi()
With ListBox1
    .Clear
    .ColumnCount = 4
    .ColumnWidths = "20;100;100;50"
End With
s = Cells(1, 1).End(xlDown).Row
ReDim dizi(1 To s, 1 To 4)
For i = 2 To s
    If Cells(i, 2) = TextBox3.Text Then
       y = y + 1
       For j = 1 To 4
           dizi(y, j) = Cells(i, j)
           If j = 4 Then: gider = gider + Cells(i, j)
       Next j
    End If
Next i
ListBox1.List = dizi
Label2.Caption = gider
End Sub

 

[pitsss]

cevabınız için çok teşekkürler. tam istediğim gibiolmuş. fakat. bu kodları kendi yapmışolduğum excel in içine attığımda run-time 13 hatasını alıyorum.
bitürlü çözemedim :S
çözüm olarak
UserForm_Initialize
sildim ve öyle kullanıyorum böylesde idare ediyor.

 

[Ferhat Pazarçevirdi]

Peki o zaman, kolay gelsin.