Rehberde sadece Ad yazarak personel bulma

[ersoyalan]

Ustalar merhaba,

Rehberde Ad/Soyad yazarak istediğim kişiyi buluyorum fakat bulma koduna eklemek istediğim şu:

1. Sadece Ad yazarak aynı isimden olan kişileride bulması ve getirmesi

2. Geri Dön Butonuna tıkladığım zaman şuanda rehber nasıl görünüyorsa aynı şekle geri gelmesi.



Yardımcı olursanız sevinirim.

Syg,
E.ALAN

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sub Filtre()
Range("B4:E4").Select
    Selection.AutoFilter
    Range("B4").Select
    Selection.AutoFilter Field:=1, Criteria1:=[C1] & "*"
End Sub

Sub geridon()
ActiveSheet.ShowAllData
End Sub

 

[metinozlu]

Dosyanız ektedir.

 

[ersoyalan]

Hocalarım çok teşekkürederim.Büyükbi dertten kutardınız.Ellerinize sağlık.
Syg,
E.ALAN