Arama makrosu oluşturmak

[mustafaeroglu]

Merhabalar, excel de ad soyad arama yapmak için makroya ihtiyacım var bir türlü yapamadım.

"Form Yanıtları!B:B" sayfasının sütununda adı soyadı yazıyor. ve "Rapor" sayfasında Textbox, buton ve label ekledim.

Butona tıkladığımda; Textbox'a yazdığım metni arama yapmasını eğer varsa textbox adında kayıt mevcuttur. Yoksa Kayıt bulunamadı.

Bir de bu makroyu google drive içerisindeki e tabloda kullanabilirmiyim?

İyi çalışmalar.

 

[acar6783]

Sub Arama_makrosu()
Dim s1, s2
Dim aranan, say
Set s1 = Sheets("Form Yanıtları")
Set s2 = Sheets("Rapor")
aranan = s2.TextBox1.Value
say = WorksheetFunction.CountIf(s1.Range("B2:B" & Rows.Count), aranan)
If say <> 0 Then
MsgBox aranan & " Adında kayıt Mevcuttur.", vbInformation, "Bilgi !!"
Else
MsgBox aranan & " Adında Kayıt Bulunamadı.", vbInformation, "Bilgi !!"
End If

End Sub

Arama makrosunu bu şekilde kullanabilirsiniz.
Sadece olup olmadığına bakar.

 

[mustafaeroglu]

Sub Arama_makrosu()
Dim s1, s2
Dim aranan, say
Set s1 = Sheets("Form Yanıtları")
Set s2 = Sheets("Rapor")
aranan = s2.TextBox1.Value
say = WorksheetFunction.CountIf(s1.Range("B2:B" & Rows.Count), aranan)
If say <> 0 Then
MsgBox aranan & " Adında kayıt Mevcuttur.", vbInformation, "Bilgi !!"
Else
MsgBox aranan & " Adında Kayıt Bulunamadı.", vbInformation, "Bilgi !!"
End If

End Sub

Arama makrosunu bu şekilde kullanabilirsiniz.
Sadece olup olmadığına bakar.

Teşekkürler senin koddan aldığım ilham ile ufak değişiklikler yaparak ufak çalışma yapmış oldum.

Private Sub CommandButton1_Click()

Dim s1, s2
Dim aranan, say
Set s1 = Sheets("Form Yanıtları")
Set s2 = Sheets("Rapor")
aranan = s2.TextBox1.Value
say = WorksheetFunction.CountIf(s1.Range("B2:B" & Rows.Count), aranan)

If aranan = "" Then
Label1 = "Lütfen isim yazınız.."
Else
    If say <> 0 Then
        Label1 = aranan & " adında " & say & " kayıt mevcuttur."
    Else
        Label1 = aranan & " adında kayıt BULUNAMADI."
    End If
End If

End Sub