Weglaten rijen bij kopieren tabel

[kippiebla]

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. Maar als dat niet kan zijn lege rijen ook goed.

 

[cow18]

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

 

[gast0660]

of

Sub ja()
  For i = Cells(Rows.Count, 3).End(xlUp).Row To 5 Step -1
        If Cells(i, 3) = "Ja goed" Or Cells(i, 3) = "Ja" Or Cells(i, 3) = "Ja ok" Then
            Range("A" & i & ":C" & i).Copy Sheets("Kopie").Cells(Rows.Count, 1).End(xlUp).Offset(1)
            'Cells(i, 3).EntireRow.Delete '(eventueel de gekopieerde rijen verwijderen)
        End If
    Next
End Sub

 

[JEC.]

Ik kan me herinneren dat je niet van VBA houdt Twee opties zonder vba

Volgens mij heb je je antwoord al exact gehad in deze post:
https://www.helpmij.nl/forum/showthread.php/953023-Vraag-over-verwijderen-van-rijen

 

[kippiebla]

Dank JVeer! Ja dit helpt!