ListBox daki verileri sırasıyla arama

[fatih70]

Selamlar...
Şimdi data1 sayfamdan arama yaparak verileri ListBox1 e alıyorum.Daha sonra CommandButton2 yi tıklayınca ListBox1 deki verileri data2 sayfamdan sırasıyla arasın bulduğu satırdaki veriyi TextBox2 deki veri ile değiştirsin istiyorum.AMA YAPAMADIM...Kodları şöyle yazmıştım

Private Sub CommandButton2_Click()
Sheets("data2").Select
Range("A2").Select
For a = 2 To 30000
f=ListBox1.ListCount
If Sheets("data2").Cells(a, "Q") = ListBox1.List(f - 1) Then
ActiveCell.Offset(0, 15).Value = TextBox2.Value
End If
Next
End Sub

böyle yazınca sadece ListBox1 deki tek veriyi bulup değiştiriyor diğerlerini değiştirmiyor.

 

[Levent Menteşoğlu]

1-listboxın hangi sütunundaki veriler aranacaktır.

2-veriler data2 sayfasının hangi sütununda aranacaktır.