Makro yardımı ile veri süzme işlemi

[akmes]

Selamlar;

Bu konu da sizlerden faydalanarak bir çalışma yaptım ama istediğimi gibi çalışmadı.Ekteki dosyadan da anlaşılacağı gib A9 göre otomatik süzme işlemi yapılsın istiyorum ama süz simgesine tıkladığımda a1 den itibaren alıyor.

Yardımlarınızı rica ediyorum.

 

[halit3]

böyle denermisiniz.

Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
Range("A9:C9").Select
Selection.AutoFilter
Exit Sub
ElseIf CheckBox1.Value = True Then
Range("A9:C9").Select
Selection.AutoFilter
End If
End Sub

 

[akmes]

Denedim hocam, olmadı.

 

[halit3]

1-CheckBox1 işaretsiz olsun
2-veri\filitre uygula\otomatik filitre uygula yı kapat

ondan sonra CheckBox1 tıkla olması lazım. ben denedim oluyor.

 

[akmes]

Pardon hocam ben textboxlara odaklanmışım onların içine yazınca olmuyor.Bu konuda da bişeyler yapabilirmiyiz.Textboxları da kullanma şansımız varmı?

 

[halit3]

kodları zaten mevcut yanlızca sutünları karıştırmışınız.

Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
Range("A9:C9").Select
Selection.AutoFilter
Exit Sub
ElseIf CheckBox1.Value = True Then
Range("A9:C9").Select
Selection.AutoFilter
End If
End Sub
Private Sub TextBox1_Change()
suzul = suz(1, "*" & TextBox1.Text & "*")
End Sub
Private Sub TextBox2_Change()
suzul = suz(2, "*" & TextBox2.Text & "*")
End Sub
Private Sub TextBox3_Change()
suzul = suz(3, "*" & TextBox3.Text & "*")
End Sub

 

[halit3]

bunları denermisiniz.

Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
Range("A9:C9").Select
Selection.AutoFilter
Exit Sub
ElseIf CheckBox1.Value = True Then
Range("A9:C9").Select
Selection.AutoFilter
End If
End Sub
Private Sub TextBox1_Change()
If TextBox1.Text <> "" Then
suzul = suz(1, "*" & TextBox1.Text & "*")
Else
Selection.AutoFilter Field:=1
End If
End Sub
Private Sub TextBox2_Change()
If TextBox2.Text <> "" Then
suzul = suz(2, "*" & TextBox2.Text & "*")
Else
Selection.AutoFilter Field:=2
End If
End Sub
Private Sub TextBox3_Change()
If TextBox3.Text <> "" Then
suzul = suz(3, "*" & TextBox3.Text & "*")
Else
Selection.AutoFilter Field:=3
End If
End Sub

 

[akmes]

Hocam çok teşekkür ederim.Şimdi oldu.Kolay gelsin.

 

[halit3]

iyi çalışmalar