Merhaba, aşağıdaki kullandığım Combobox süzme işleminde ilgili seçenek seçildiğinde filtreleme yapıldıktan sonra diğer bir seçim yapılınca bayağı bekleme oluyor.Fakat diğer seçim yapmadan önce tümünü seçip tekrar seçim yaptığımda hızlı bir şekilde süzme işlemi yapıyor.Ben her defasında combobox tan seçim yapmadan önce tümünü işaretleyip sonra diğer seçeneği tıklayarak yapıyorum tabi bazen dalgınlıkla bunu böyle yapmadığımda çok bekliyorum. Acaba formülde önce otomatik tümünü seçip daha sonra seçilene göre süzme işlemi eklenebilir mi? Yardımlarınızı rica ediyorum.
Private Sub ComboBox1_Change()
Dim Veri As String
On Error Resume Next
Sheets("Data").ShowAllData
Veri = ComboBox1.Column(1)
Range("J2").Value = ComboBox1.Value
On Error GoTo 0
If ComboBox1 <> "" And Veri <> "" Then Sheets("Data").Range("A3").AutoFilter 1, Veri
End Sub
Private Sub ComboBox1_DropButtonClick()
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "100;0"
ComboBox1.ListFillRange = "Sayfa1!A5:B65000"
End Sub
Private Sub ComboBox1_Change()
Dim Veri As String
On Error Resume Next
Sheets("Data").ShowAllData
Veri = ComboBox1.Column(1)
Range("J2").Value = ComboBox1.Value
On Error GoTo 0
If ComboBox1 <> "" And Veri <> "" Then Sheets("Data").Range("A3").AutoFilter 1, Veri
End Sub
Private Sub ComboBox1_DropButtonClick()
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "100;0"
ComboBox1.ListFillRange = "Sayfa1!A5:B65000"
End Sub
