Hey allen:
ik gebruik volgend script om bepaalde waarden te kopieren in verkorte vorm.
nu wil ik dat de celopmaak NIET mee gekoipieerd zal worden.
iemand een idee waar ik iets aanpassen kan?
een verkorte versie mag ook steeds aangegeven worden.
ik heb enkel de waarden van kolom A - B - K nodig.
in Kolom K, moet ik eerst een filter uitvoeren, waarbij de waarden groter moeten zijn dan 0.
ik heb dus enkel de velden nodig, waar de cel in kolomK geen à is.
(eerst proberen zonder voorbeeld bestandje )
ik gebruik volgend script om bepaalde waarden te kopieren in verkorte vorm.
nu wil ik dat de celopmaak NIET mee gekoipieerd zal worden.
iemand een idee waar ik iets aanpassen kan?
Code:
Sub Module10()
Range("A21:K27").AutoFilter
Worksheets("Sheet1").Range("A20:K20").AutoFilter
ActiveSheet.Range("$A$20:$K$27").AutoFilter Field:=11, Criteria1:=">0", _
Operator:=xlAnd
Worksheets("Sheet1").Range("A21:A27").Copy Sheets("Sheet1").Range("AJ28")
Worksheets("Sheet1").Range("B21:B27").Copy Sheets("Sheet1").Range("AL28")
Worksheets("Sheet1").Range("K21:K27").Copy Sheets("Sheet1").Range("AK28")
Range("A20:J21").AutoFilter
End Sub
een verkorte versie mag ook steeds aangegeven worden.
ik heb enkel de waarden van kolom A - B - K nodig.
in Kolom K, moet ik eerst een filter uitvoeren, waarbij de waarden groter moeten zijn dan 0.
ik heb dus enkel de velden nodig, waar de cel in kolomK geen à is.
(eerst proberen zonder voorbeeld bestandje )