Textbox'taki veriye göre arama

[brhmsrn]

Merhaba. Bir userform düzenledim. Burada textbox1'de yazılan veriyi sayfa1 E sütünunda aratıp sonucu label1'de gösterebileceğimiz, arama sonucu bulunamadığında da "benzer sonuç bulunamadı" gibi bir uyarıyı label1 de vereceği kodu nasıl yazarım yardımcı olabilir misiniz. Bir türlü beceremedim.

 

[Korhan Ayhan]

Merhaba,

Forumda arama yapmayı denediniz mi?

Sorgu için arama sonuçları: textbox+find

www.excel.web.tr

 

[brhmsrn]

Merhaba,

Forumda arama yapmayı denediniz mi?

Sorgu için arama sonuçları: textbox+find

www.excel.web.tr

Evet bulamadım malesef

 

[dEdE]

Merhaba,
Bunu mu demek istediniz?

Private Sub CommandButton1_Click()
    Aranan = TextBox1.Text
    Set c = Sheets("Sayfa1").Range("E:E").Find(Aranan, , xlValues)
    If Not c Is Nothing Then
        Label1.Caption = Cells(c.Row, 5).Value
    Else
        Label1.Caption = "Bulunamadı"
    End If
End Sub

 

[brhmsrn]

Merhaba,
Bunu mu demek istediniz?

Private Sub CommandButton1_Click()
    Aranan = TextBox1.Text
    Set c = Sheets("Sayfa1").Range("E:E").Find(Aranan, , xlValues)
    If Not c Is Nothing Then
        Label1.Caption = Cells(c.Row, 5).Value
    Else
        Label1.Caption = "Bulunamadı"
    End If
End Sub

Teşekkürler tam istediğim gibi oldu. Sağolun