Y
Yariev
I am using the advanced filter - Sub ABC (see below) - for transferin
data from 1 input-sheet to various different sheets. However usin
advanced filter, the data is copied to other sheets. Is it possible t
have this cut or moved instead of copied and how can I do this?
Can someone help with this, thnx!
Sub ABC()
Sheets("Blad1").Range("A1:C21").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Sheets("Blad2").Range("A1:C2")
CopyToRange:=Range("A1"), _
Unique:=False
Sheets("Blad B").Select
Sheets("Blad1").Range("A1:C21").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Sheets("Blad2").Range("A4:C5")
CopyToRange:=Range("A1"), _
Unique:=False
Sheets("Blad C").Select
Sheets("Blad1").Range("A1:C21").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Sheets("Blad2").Range("A7:C8")
CopyToRange:=Range("A1"), _
Unique:=False
End Su
data from 1 input-sheet to various different sheets. However usin
advanced filter, the data is copied to other sheets. Is it possible t
have this cut or moved instead of copied and how can I do this?
Can someone help with this, thnx!
Sub ABC()
Sheets("Blad1").Range("A1:C21").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Sheets("Blad2").Range("A1:C2")
CopyToRange:=Range("A1"), _
Unique:=False
Sheets("Blad B").Select
Sheets("Blad1").Range("A1:C21").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Sheets("Blad2").Range("A4:C5")
CopyToRange:=Range("A1"), _
Unique:=False
Sheets("Blad C").Select
Sheets("Blad1").Range("A1:C21").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Sheets("Blad2").Range("A7:C8")
CopyToRange:=Range("A1"), _
Unique:=False
End Su