Beste allemaal,
Als vervolg op mijn vraag over het maken van een logboek, zie https://www.helpmij.nl/forum/showthread.php/939089-Logboek-maken
Ben ik benieuwd hoe ik het beste een "For Each constructie" kan gebruiken in een tabel. In kolom G in het voorbeeldbestand Bekijk bijlage Template openstaande puntenlijst.xlsm staat een status.
Ik wil met een knop zoeken naar alle regels met de status "Afgehandeld" om die vervolgens te knippen naar het tabblad "Afgehandelde items" wederom een tabel. Kortom de data moet steeds naar de eerste lege regel in de tabel die in de sheet "Afgehandelde items" is opgenomen, zonder de bestaande data te overschrijven.
Dit heb ik geprobeerd:
Wie biedt?
Alvast bedankt.
Gr. Michel
Als vervolg op mijn vraag over het maken van een logboek, zie https://www.helpmij.nl/forum/showthread.php/939089-Logboek-maken
Ben ik benieuwd hoe ik het beste een "For Each constructie" kan gebruiken in een tabel. In kolom G in het voorbeeldbestand Bekijk bijlage Template openstaande puntenlijst.xlsm staat een status.
Ik wil met een knop zoeken naar alle regels met de status "Afgehandeld" om die vervolgens te knippen naar het tabblad "Afgehandelde items" wederom een tabel. Kortom de data moet steeds naar de eerste lege regel in de tabel die in de sheet "Afgehandelde items" is opgenomen, zonder de bestaande data te overschrijven.
Dit heb ik geprobeerd:
Code:
Public Sub Afgehandeld()
Dim afg As Range
For Each afg In Range("G:G")
If afg = "Afgehandeld" Then
afg.EntireRow.Cut
Sheets("Afgehandeld").Range("A2").xlEnd(Down).Offset(1, 0).Paste
End If
Next afg
End Sub
Wie biedt?
Alvast bedankt.
Gr. Michel