Buton ve textbox ile arama yapma

[kadir78]

İyi günler. Excel çalışma kitabında buton ve textbox ile arama yaptıran kod arıyorum. Textbox içine girilen yazı veya rakam verisini, çalışma kitabında arama yapacak ve bulduğu ilk veri hücresine giden makro kod arıyorum. Biraz araştırma yaptım sonuç alamadım. Yardımcı olursanız sevinirim.

 

[turist]

Aşağıdaki kocu deneyin.

Sub ilkhücreyibul()
Dim ws As Worksheet
Dim aranan As String
Dim alan As Range
Dim sayfa As String
Dim i As Integer
aranan = Sheets("Sayfa1").TextBox1.Text
If aranan = "" Then Exit Sub
For Each ws In Worksheets
Set alan = ws.Cells.Find(What:=aranan)
If Not alan Is Nothing Then
    i = i + 1
    If i = 1 Then
sayfa = alan.Worksheet.Name
Sheets(sayfa).Select
alan.Select
End If
End If
Next ws
If i = 0 Then: MsgBox "Aranan değer Sayfalarda YOK", vbInformation
End Sub

Not:
aranan = Sheets("Sayfa1").TextBox1.Text
satırındaki "Sayfa1" örnektir, kendi sayfa adınızı buraya yazabilirsiniz.
Aynı şekilde; aynı satırdaki TextBox1 de kendi textbox'ınızla değiştirebilirsiniz.

İyi çalışmalar.

 

[kadir78]

Sayın Hocam kodlar işime yaradı çalışıyor. Teşekkür ederim elinize emeğinize sağlık. İyi günler.

 

[turist]

Sağolun.

 

[furkyt]

Aşağıdaki kocu deneyin.

Sub ilkhücreyibul()
Dim ws As Worksheet
Dim aranan As String
Dim alan As Range
Dim sayfa As String
Dim i As Integer
aranan = Sheets("Sayfa1").TextBox1.Text
If aranan = "" Then Exit Sub
For Each ws In Worksheets
Set alan = ws.Cells.Find(What:=aranan)
If Not alan Is Nothing Then
    i = i + 1
    If i = 1 Then
sayfa = alan.Worksheet.Name
Sheets(sayfa).Select
alan.Select
End If
End If
Next ws
If i = 0 Then: MsgBox "Aranan değer Sayfalarda YOK", vbInformation
End Sub

Not:
aranan = Sheets("Sayfa1").TextBox1.Text
satırındaki "Sayfa1" örnektir, kendi sayfa adınızı buraya yazabilirsiniz.
Aynı şekilde; aynı satırdaki TextBox1 de kendi textbox'ınızla değiştirebilirsiniz.

İyi çalışmalar.

Ben bu kodu çalıştıramadım bir türlü alan.Select bölümünde kalıyor