Consulting

Results 1 to 1 of 1

Thread: Weglaten rijen bij kopieren tabel

  1. #1

    Weglaten rijen bij kopieren tabel

    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?



    Attached Files Attached Files

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •