Excel rijen kopieren naar ander werkblad met VBA

[hryttel]

Hallo,

Na veel, tevergeefs, speurwerk wend ik mij tot jullie

Ik zit met het volgende, Excel werkmap met 4 tabbladen "Lijst, Asten, Den Hoorn en Munster".
In tabblad "Lijst" heb ik ruim 25000 regels en dat varieert van de ene week naar de ander.
Ik wil graag (d.m.v. VBA) dat na het vullen van de lijst er een kopie van de rijen "Kolom A t/m E" gekopieerd worden aan de hand van de inhoud van kolom E naar het tabblad met de zelfde naam.
In kolom "H t/m J" staan ander gegevens maar die nieten niet mee gekopieerd worden.

Bekijk bijlage Lijst voorbeeld.xlsx

Alvast bedankt!

Henning

 

[HSV]

Test de code maar eens.

Sub hsv()
Dim sh As Worksheet
For Each sh In Sheets
 With Sheets("lijst").Cells(1).CurrentRegion
  If Not sh.Name = "Lijst" Then
   .AutoFilter 5, sh.Name
   .Offset(1).Copy Sheets(sh.Name).Cells(2, 1)
   .AutoFilter
  End If
 End With
 Next sh
End Sub

 

[hryttel]

Goedenavond Harry,

Geweldig het werkt zo als bedoeld. :thumb:

I had zelf zitten stoeien en kwam hier op uit:

Sub FilterAfd()
Dim cl As Range
 With Blad2
  .UsedRange.Offset(1).ClearContents
 For Each cl In Sheets("Blad1").Columns(1).SpecialCells(2)
   If UCase(cl) = "Asten" Then
     .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5) = cl.Resize(, 5).Value
    End If
  Next cl
 End With
End Sub

Dank je wel.
Opgelost :thumb: