Textbox ile Fİltreleme

[y_tekeli]

Aşağıda ekli bir dosyam var üç farklı textbox ile filtreleme yapmak için kullanıyodum. Yazdığım kodlarda yanlışlık var ama nerde çözemedim. Misal textbox3'ü bina kodundan arama yapmak için kullanıyorum ne hikmetse 40219 ile başlayan iki adres varken tek adres geliyor. Textbox2 'de sokak yazdığım zaman arama yapabiliyordum şimdi yapamıyorum. Verileri metin yada sayı olarak yapılandırarak ta denedim ama olmadı.

İsteğim metin yada sayı olarak saklandığı farketmeksizin aradığımı her üç textbox ile bulabilmek.
https://www.dosyaupload.com/Lp99/İŞ_PLAN_TAKİBİ_.xlsm

 

[y_tekeli]

Cevaplayan olmamış konuyu silebilirsiniz linki iptal ediyorum.

 

[MusaPEKEL]

Sub AramaYap()
    Dim ws As Worksheet
    Dim aramaTerimi1 As String
    Dim aramaTerimi2 As String
    Dim aramaTerimi3 As String
    Dim bulunanSatir As Range

    ' Çalışma sayfasını belirle (örneğin, Sayfa1)
    Set ws = ThisWorkbook.Sheets("Sayfa1")

    ' TextBox'ları kullanıcıdan alınan değerlere göre ayarla
    aramaTerimi1 = TextBox1.Value
    aramaTerimi2 = TextBox2.Value
    aramaTerimi3 = TextBox3.Value

    ' Metin arama yap
    Set bulunanSatir = ws.Columns("A").Find(What:=aramaTerimi1, LookIn:=xlValues, LookAt:=xlWhole)
    If Not bulunanSatir Is Nothing Then
        MsgBox "Arama 1: " & bulunanSatir.Row
    Else
        MsgBox "Arama 1: Bulunamadı"
    End If

    ' Metin arama yap
    Set bulunanSatir = ws.Columns("B").Find(What:=aramaTerimi2, LookIn:=xlValues, LookAt:=xlWhole)
    If Not bulunanSatir Is Nothing Then
        MsgBox "Arama 2: " & bulunanSatir.Row
    Else
        MsgBox "Arama 2: Bulunamadı"
    End If

    ' Sayısal arama yap
    Set bulunanSatir = ws.Columns("C").Find(What:=Val(aramaTerimi3), LookIn:=xlValues, LookAt:=xlWhole)
    If Not bulunanSatir Is Nothing Then
        MsgBox "Arama 3: " & bulunanSatir.Row
    Else
        MsgBox "Arama 3: Bulunamadı"
    End If
End Sub