probleem met for each

[Theophiel]

hallo beste forumleden,

Allereerst prettige feestdagen.

mijn probleem is hetvolgende:

Als ik met de macro Cmd1 de gegevens naar opslag plaats geen probleem. Het probleem doet zich voor wanneer in kolom A de gegevens gerangschikt worden (met macro rangschik).

Als de macro Cmd1 hierna uitgevoerd is verplaatst hij de gegevens wel maar zijn niet alle gegevens gewist uit opslag.

Zou iemand me wat hulp kunnen aanbieden?

Bestandje bijgevoegd.

Alvast bedankt op voorhand!
Bekijk bijlage for each.xlsm

 

[VenA]

Het verwijderen van rijen moet je van onder naar boven doen. Als alternatief

Voor het sorteren

Sub Rangschik_Click()
  Blad1.Cells(1).CurrentRegion.Sort [A1], , [E1], , , , , True
End Sub

Voor het verplaatsen en verwijderen

Sub Cmd1_Click()
  Application.ScreenUpdating = False
  With Blad1.Cells(1).CurrentRegion
    .AutoFilter 1, 1
    .Offset(1).Copy Blad2.Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .Offset(1).EntireRow.Delete
    .AutoFilter 1
  End With
End Sub

 

[Theophiel]

Heel erg bedankt VenA,

voor de reactie en aangeboden oplossing! Ik heb het nog niet helemaal hoe het werkt, maar het werkt, na wat experementeren lukt het ook om de andere te filteren en verwijderen (had waarschijnlijk de volgende vraag geweest).


nogmaals bedankt!