bence 2 sine göre de yapıyor
TextBox2 değiştiğinde olayı

Private Sub TextBox2_Change()

'Deneme arama textbox2___________________________

Dim bolge As Range

Dim SonSatir As Long

    SonSatir = Worksheets("Liste-Maliyet").Cells(4, 3).End(xlDown).Row + 4

Set bolge = Worksheets("Liste-Maliyet").Range("B4:C" & SonSatir)

ListBox2.Clear

Dim cell As Range

iCount = 0

For Each cell In bolge

    Set cell = bolge.Find(Me.TextBox2.Text, Lookat:=xlPart, SearchOrder:=xlRows, SearchDirection:=xlNext)

    ListBox2.AddItem

    

    ListBox2.List(iCount, 0) = Worksheets("Liste-Maliyet").Range("B" & cell.Row)

    ListBox2.List(iCount, 1) = Worksheets("Liste-Maliyet").Range("C" & cell.Row)

    iCount = iCount + 1

Next

    ' Finds A3

'    Set cell = Range("A1:A3").Find("Apple", Lookat:=xlWhole)

'    Debug.Print cell.Address



'Deneme arama textbox2___________________________bitti

End Sub