PDA

View Full Version : Weglaten rijen bij kopieren tabel



kippiebla
05-06-2020, 05:24 AM
Ik ben zeker geen ster in Excel en al zeker niet in VBA. In het voorbeeldbestand zie je in werkblad "Bron" in kolom C verschillende mogelijkheden wat er met actie kan gebeuren. Onder deze mogelijkheden staan ook "Fout" en "Niet goed". Het werkblad "Kopie" moet een kopie worden van werkblad "Bron" maar de rijen met "Fout" en "Niet goed" mogen niet worden meegekopieerd. Ze mogen leeg blijven, maar misschien is het ook mogelijk om ze geheel weg te laten zodat er in werkblad "Kopie" nog maar 4 rijen overblijven.

Nu heb ik een code toegestuurd gekregen die het zou moeten doen. Die code is:


Sub Ja()
With Sheets("bron").Range("A4:C11") 'je bron
.Parent.AutoFilterMode = False 'filter uitzetten in blad
.AutoFilter Field:=3, Criteria1:=Array("Ja", "Ja goed", "Ja ok", "nog een andere reden"), Operator:=xlFilterValues 'array met alles dat wel meemag
.Copy Sheets("Kopie").Range("E4") 'doorkopieren
.Parent.AutoFilterMode = False 'filter uitzetten
End With
End Sub

Maar nou weet ik helemaal niet wat ik met die code moet doen. Waar ik die moet plaatsen. Kan er iemand helpen?

jolivanes
09-22-2020, 09:39 PM
Misschien zo?
See attached