Tablo İÇerİsİnde Var Olan Bİr Karakterİ Ctrl + F Yardimi Olmadan Bulmak

[Yasar AYDIN]

Ornegin Google Arama Motorunda Ki Bosluga Veri Girip Aratmak Gibi Oyle Bir Alan Yapip Elimde Var Olan Personel Listesinden Isim Bulmak Istiyorum Sagolun

 

[N.Ziya Hiçdurmaz]

yanıt

A1 ile H100 arasında veri arar.

Sub test()
On Error GoTo hata:
bul = InputBox("Aranacak değeri giriniz.")
Range("a1:h100").Find(bul).Select
Exit Sub
hata:
MsgBox "Aranılan veri bulunamadı."
End Sub

 

[Yasar AYDIN]

Bu Na Bir Ornek

Bu Gibi Olursa Sevinirim

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [G7]) Is Nothing Then Exit Sub
    If Range("G7").Value = "" Then Exit Sub
    Set k = Range("A1:A65536").Find(Range("G7").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Range(k.Address).Select
    End If
End Sub