Private Sub ComboBox3_Change()
Range("ad1").Value = ComboBox3.Value
If ComboBox3 = "" Then
On Error Resume Next
ListBox1.RowSource = "Sayfa1!A2:e1000"
Else
Range("a1:e1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("ad1").Value
Columns("A:E").Select
Selection.Copy
Sheets("Sayfa2").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ListBox1.RowSource = "Sayfa2!A2:e1000"
End If
End Sub
biçiminde bir filtreleme yapmak istiyorum ama
Range("a1:e1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("ad1").Value
bu satır sürekli hata veriyor. sorunu bir türlü bulamadım. yardımcı olursanız sevinirim.
Range("ad1").Value = ComboBox3.Value
If ComboBox3 = "" Then
On Error Resume Next
ListBox1.RowSource = "Sayfa1!A2:e1000"
Else
Range("a1:e1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("ad1").Value
Columns("A:E").Select
Selection.Copy
Sheets("Sayfa2").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ListBox1.RowSource = "Sayfa2!A2:e1000"
End If
End Sub
biçiminde bir filtreleme yapmak istiyorum ama
Range("a1:e1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("ad1").Value
bu satır sürekli hata veriyor. sorunu bir türlü bulamadım. yardımcı olursanız sevinirim.