SAYFALARDA HÜCRE ARATMA

[taseraydin]

Diğer sayfadaki hücrelerde Textbox ta ki ismi aratıp ilgili hücreye gitmek

 

[Korhan Ayhan]

Deneyiniz.

Private Sub TextBox1_Change()
    Dim Bul As Range
    Set Bul = Sheets("detay").Cells.Find(TextBox1, , , xlWhole)
    If Not Bul Is Nothing Then
        Bul.Parent.Select
        Bul.Select
    End If
End Sub

 

[taseraydin]

Detay sayfaya gidiyor ancak,
Sayfadaki hücreyi seçmiyor
Textbox1 de firmayı "detay" sayfasında "b stununda" hücreyi seçmesi gerekiyor.

 

[Korhan Ayhan]

Ben deneyerek kodu paylaşmıştım.

 

[taseraydin]

Haklısınız,
öncelikle teşekür ederim, ilginize

Haklısınız,
TextBox1_Change() hücreye gidiyor,

ancak ben bunu detay butonuna uygulamaya çalıştım sadece sayfaya gidiyor hücreyi seçmiyor,
yani,
TextBox1_Change()
değilde butona uygulamak istiyorum,

 

[Korhan Ayhan]

Böyle deneyiniz.

Sonra bu kodu "detay butonuna tanımlayıp kullanabilirsiniz.

Sub Firma_Bul()
    Dim Bul As Range
    Set Bul = Sheets("detay").Cells.Find(TextBox1, , , xlWhole)
    If Not Bul Is Nothing Then
        Bul.Parent.Select
        Bul.Select
    End If
End Sub

 

[taseraydin]

VERMİŞ OLDUĞUNUZ KODLA
SORUNU ÇÖZDÜM, ÇOK TEŞEKÜR EDERİM,