veri yazarken filtreleme

[yakup123]

arkadaşlar merhaba
daha önce forum da görmüştüm bir arkadaşımız bir excel sayfasında
sutun baslarına text box lar koymuştu ve bu text box lara veri yazarken filtreliyordu aradım bulamadım bu örnege ihtiyacım var yerini bilen veya elinde olan varmı acaba

 

[rahmi06]

Kodları çalışma sayfasının kod bölümüne yaz

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

End Sub

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

Private Sub TextBox3_Change()
On Error Resume Next
METİN1 = TextBox3.Value
Set FC2 = Range("B3:B65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox3.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub

 

[yakup123]

rahmı bey merhaba ben bir çalışma kitabı vardı onu arıyorum aslında
gerçi bunuda denedım ama beceremedım

 

[rhombeus]

Sitede yayınlanan kod arsivi programı var. Bu program size yol gösterebilir.

İyi Çalışmalar

 

[yakup123]

anlıyorum ama gerçekten çok hoş birşeydi
sutunlar vardı sutun başlarında text boxlar yazarken alttaki sonuçları dinamik filtreliyordu o örnege ıhtıyacım var

 

[MERDAG]

Merhaba;
http://www.excel.web.tr/showthread.php?t=16264&highlight=metin&page=2
bu link işini görür herhalde...

 

[NBATMAN]

Merhaba,

aşağıdaki linkte bulunan dosyayı inceler misiniz?

http://www.excel.web.tr/showthread.php?t=86572

 

[yakup123]

sayın nbatman ve sayın merdag çok teşekkür ederim evet aradıgım buydu
ilginiz için sonsuz teşekkürler