Telefon rehberi

[ercannavci]

Düşey ara formülü kullanarak hazırladığım tabloda ercan yazdığımda data da kayıtlı bütün ercan ların bilgilerini sıralamasını istiyorum. Ama ilk ercan geliyo satıra. Yardım edebilir misiniz.

 

[YUSUF44]

İstediğiniz gibi olmadı ama Data sayfasında text.box'tan süzme işlemi uyguladım.

https://drive.google.com/file/d/0B43WMUs21VpfTEduU1ZQRDU2TVE/view?usp=sharing

Not: Bazen yaptığım makrolu dosyalar başka bilgisayarda çalışmıyor. sizde de öyle bir sorun olursa düğme ve textbox için aşağıdaki kodları kullanarak siz ayarlayabilirsiniz:

Private Sub CommandButton1_Click()
Selection.AutoFilter Field:=1
TextBox1.Value = ""
End Sub

Private Sub TextBox1_Change()
On Error Resume Next
METİN2 = TextBox1.Value
Set FC2 = Range("A3:A16000").Find(What:=METİN2)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
If METİN2 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

 

[ercannavci]

çok teşekkür ederim istediğim gibi olmuş