Bul butonuyla Süzme

[asdec1234]

merhaba Ustadlar Ekli dosyda bul butonuna unvan girildiğinde o unvana ait verilerin gelmesi durumu nasıl yapılabilir yani bul butonunu aktif kullanabilmek için ekli dosyada 2 sayfada anlatmak istediğimi gösterdim nasıl bir formül yapılabilir yardımcı olabilirmisiniz

 

[asdec1234]

Böyle bır formul Oluşturulamazmı

 

[asdec1234]

Arkadaşlar Formülü yazacak yokmudur.

 

[tokerx22]

Butona gerk yok sadce e sutununda arama yapacaksanız işinizi görür sanırım .. eki ßir incelermisiniz

 

[prmts]

Makrolu çözüm isterseniz alttaki kodları deneyin.

Private Sub CommandButton1_Click()
ActiveSheet.Range("$E$7:$E$" & Range("e65535").End(3).Row).AutoFilter Field:=1
For k = 8 To Range("e65535").End(3).Row
If Left(Cells(k, 5).Value, Len(TextBox1)) = TextBox1 Then METIN = Cells(k, 5).Value: GoTo git
Next k
MsgBox "eşleşen kayıt yok", , "prmts"
Exit Sub
git:

ActiveSheet.Range("$E$7:$E$" & Range("e65535").End(3).Row).AutoFilter Field:=1, Criteria1:=METIN
End Sub