textboxa girilen değerin sayfada hangi satır sütunda olduğunu bulma

[mrcylmz_61]

Sayın hocalarım , form üzerindeki textboxa girdiğim değerin sayfa1 de hangi satır sütunda olduğunu veren bir kodu nasıl tasarlayabiliriz?

 

[dEdE]

Merhaba,
Sanırım forumda arama yapmadınız.
Buraya bakar mısınız?

 

[mrcylmz_61]

Sayın dEdE öncelikle ilginize teşekkür ederim , ilgili örnek bilgisayarımda kayıtlı bile inceledimde yalnız mantığını tam kavrayamıyorum , bu sebeple farklı bir kod düzeneğinin içine uyarlamam mümkün olmuyor , bana sadece 1 ad textbox ile ilgili kelimenin yerini bir nesne veya msgbox ile yazdırdığınız daha basit bir örnek verebilir misiniz? ya da kod metnini. tekrar teşekkür ederim.

 

[dEdE]

Merhaba,
Ekli dosyayı inceler misiniz?

Sub SayfadaAra()
    Set Aranan = Cells.Find(TextBox1.Value, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then
        adres = Aranan.Address
        Do
        Mesaj = Mesaj & "---> " & Aranan.Address & vbLf
        Set Aranan = Cells.FindNext(Aranan)
        Loop While Not Aranan Is Nothing And Aranan.Address <> adres
    End If
    If adres = "" Then
        MsgBox TextBox1.Value & "  bu  sayfada bulunmuyor.", vbOKOnly, "dEdE Başarılar Diler."
        Exit Sub
        Else
        MsgBox "Bulunan Veriler " & vbLf & Mesaj, vbOKOnly, "dEdE Başarılar Diler."
    End If
End Sub

 

[mrcylmz_61]

Sayın dEdE beni aydınlattığınız ve ilginiz için teşekkürler , son bir soru sorarak konuyu kapatmak istiyorum affınıza mahsuben ; adresi buluyoruz , peki bu adresi "A1" hücresi gibi bulmaktan ayrı olarak "1.satır , 1.sütun" olarak bulamaz mıyız?

 

[Korhan Ayhan]

Aranan.Row verinin satır numarasını döndürür.
Aranan.Column ise verinin sütun numarasını döndürür.

 

[mrcylmz_61]

Korhan bey teşekkür ederim. iyi çalışmalar.