In Excel automatisch rijen kopiëren naar ander tabblad

[Nikeo]

Beste,

ik zit eigenlijk wat verveeld met volgende vraag aangezien er over dit onderwerp reeds een post werd gemaakt. Ik heb echter geprobeerd om de macro aan te passen zodat hij ook op mijn bestand werkt maar krijg dit niet rond.
Mijn vraag is de volgende ik heb een bestand waarin ik op tabblad 1 werk met een import. Nu zou ik op basis van de inhoud in kolom A willen kijken als hier staat geannuleerd, OK Sold of Info Request dan moet hij de lijn kopiëren naar een tweede, derde en vierde tabblad (en indien mogelijk de datum er bij plaatsen). Enkel en alleen dus als er de waarde geannuleerd, OK Sold of Info Request staat dient hij dit te doen. De waarde mag wel blijven staan in de lijst import. De datum is puur optioneel.

De link naar de vraag van waaruit ik de macro heb gehaald staat hier

Bekijk bijlage Test.xlsx

Opgelet de originele lijn bevat meer dan 6000 lijnen dus weet niet of dit voor problemen kan zorgen

 

[gast0660]

Zoiets?

 

[Nikeo]

Hey Dotchie ja hoor perfect hartelijk dank voor het snelle antwoord helemaal wat ik nodig had.

 

[gast0660]

Mooi zo:thumb:
Suc6

 

[VenA]

Als het om veel rijen gaat het beter met zoiets

Sub VenA()
Dim j As Long, c00 As String
With Sheet1
  .[Z1] = .[A1]
  For j = 0 To UBound(Split("OK Sold|Info Request|Geannuleerd", "|"))
    c00 = Split("OK Sold|Info Request|Geannuleerd", "|")(j)
    If IsError(Evaluate(c00 & "!A1")) Then Sheets.Add(, Sheets(Sheets.Count)).Name = c00
    .[Z2] = c00
    .Cells(1).CurrentRegion.AdvancedFilter xlFilterCopy, .[Z1:Z2], Sheets(c00).Cells(1)
  Next j
  .[Z1:Z2].ClearContents
End With
End Sub