textbox ile filtreleme

[serikan1989]

Merhabalar kardeşimin ödevi için yardım istiyorum. Her 2. satırda yer alacak textboxlara göre filtreleme yapacak bir makro yazmaya çalışıyoruz. Sadece ilk sutun için yaptık ama diğerleri için olmadı. Yardımlarınız istiyorum. Teşekkürler.

 

[cenk e.]

Merhaba,

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

Bu textbox2 kodları, dikkat ederseniz field alanını 2 yazdım. Bu sütun numarasını temsil etmektedir. Buna göre çoğaltabilirsiniz.

 

[ZorBey_]

Merhaba İyi Çalışmalar
Bir Örnekte Benden