Macro zoeken en wegschrijven naar ander blad

[Danielle22]

Hallo allemaal,

Ik heb een bestand met verschillende tabbladen. In deze tabbladen (in het voorbeeldbestand de bladen "Testen 1 en Testen 2") moet die in kolom B (SOORT) zoeken naar de "F". Als die gevonden is dan moet die hele regel geknipt en geplakt worden naar het blad "uitval".

Als de regel geknipt en geplakt is kan dan de lege regel die overblijft in te Testtabbladen ook verwijderd worden?

In ieder geval alvast heel erg bedankt voor de eventuele mogelijkheden.

Groetjes,

Danielle

Bekijk bijlage Test.xlsx

 

[VenA]

Zo?

Sub VenA()
  For Each sh In Sheets(Array("Testen 1", "Testen 2"))
    With sh.Cells(1).CurrentRegion
      .AutoFilter 2, "F"
      .Offset(1).Copy Sheets("Uitval").Cells(Rows.Count, 1).End(xlUp).Offset(1)
      .Offset(1).EntireRow.Delete
      .AutoFilter
    End With
  Next sh
End Sub

 

[Danielle22]

Ja super, hier kan ik weer verder mee.

Heel erg bedankt :thumb:

 

[Danielle22]

Oh toch nog een klein vraagje.

Kun je het ook zo inrichten dat die vanaf regel 10 gaat knippen en plakken?

Groetjes,

Danielle

 

[Danielle22]

Ik dacht zelf aan zoiets:

Sub VenA()
  For Each sh In Sheets(Array("Testen 1", "Testen 2"))
    With sh.Cells(1).CurrentRegion
      .AutoFilter 2, "F"
      .Offset(10).Copy Sheets("Uitval").Cells(Rows.Count, 1).End(xlUp).Offset(1) 'Rij kopieeren vanaf regel 10
      .Offset(10).EntireRow.Delete 'Rij verwijderen vanaf regel 10
      .AutoFilter
    End With
  Next sh
End Sub

Is dit een goede oplossing?

 

[VenA]

Ik heb geen idee. Ik ken het bestand niet.

 

[Danielle22]

Ik bedoel bij het testbestand.

Eigenlijk moet de macro beginnen met knippen en plakken vanaf regel 10 van de tabbladen "Testen 1 en Testen 2". In de eerste 10 rijen hoeft namelijk niks mee te gebeuren.

 

[VenA]

In het testbestand staat niets vanaf rij 10.

 

[Danielle22]

Nee dat klopt, maar in het echte bestand wel.

Daar staan wel waardes vanaf rij 10.

 

[HSV]

??????

With sh.Cells(1).CurrentRegion.Offset([COLOR=#ff0000]8[/COLOR])

 

[Danielle22]

Bedankt :thumb: