Listbox'a birden fazla sütunu eklerken filtreleme

[dadaloglu38]

Aşağıdaki kod;

Texbox a borçlunun adını yazarken, listboxa texbox dakine benzeyenleri sıralıyor. Ben listboxun 2.sütuna ürünün tutarını da yazmasını istiyorum.
Yardımcı olursanız çok sevinirim.

Private Sub TextBox1_Change()

Dim hucre As Range, Son As Integer, Veri As String, Aranan As String

ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "55;85"

ListBox1.Clear

If urun.Value = True Then

Son = WorksheetFunction.CountA(Sheets("sayfa1").Range("F:F"))

For Each hucre In Sheets("sayfa1").Range("F1:F" & Son)

Veri = UCase(Replace(Replace(hucre, "ı", "I"), "i", "İ"))
Aranan = UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ"))

If Veri Like "*" & Aranan & "*" Then

ListBox1.AddItem hucre
ListBox1.List(ListBox1.ListCount - 1, 0) = hucre
ListBox1.List(ListBox1.ListCount - 1, 1) = ' BURAYA BULDUĞU SATIRDAKİ ÜRÜNÜN FİYATINI YAZDIRMAK İSTİYORUM?

End If
Next

Else
End If

End Sub

 

[askm]

Örnek dosyanızı ekleyebilir misiniz?

 

[dadaloglu38]

Dosya eklemeyi bilmiyorum.
Ama basitçe anlatmaya çalışayım.

Bir sayfada ürünlerin Kodu,Adı,Fiyatı yazmakta.
Userformda TExbox a ürünün ismini yazmaya başladığımda,
Yazdığıma benzeyen ürünlerin listbox a 3 sütun halinde.
Kodu, Adı , Fiyatı yazsın istiytorum.

 

[askm]

ListBox1.List(ListBox1.ListCount - 1, 1) =Cells(hucre.row,3) şeklinde deneyin.
Not: Fiyat bilgisi C sütununda olduğu düşünülmüştür.

 

[dadaloglu38]

askm bey Çalıştı çok teşekkür ederim.
Ellerinize sağlık.

 

[askm]

Rica ederim. Kolay gelsin.