Ga naar inhoud

Verplaatsen afgeronde onderwerpen naar een ander tabblad.


Bello2020
 Delen

Aanbevolen berichten

Hallo,

ik wil een actielijst een stukje automatiseren. Zie het bestand in de bijlage.

Er zijn 2 vragen. De onderwerpen welke zijn afgehandeld wil ik met 1 druk op de knop verplaatsen naar het tabblad "afgehandeld". Dit lukt me wel maar hoe plaatst ik deze onder de reeds geplaatste afgehandelde onderwerpen.

Als 2e wil ik iedere nieuwe regel automatisch een nieuw volgnummer geven zodat iedere regel een uniek nummer heeft.

Alvast dank voor jullie hulp.

Actiepunten Projectleidersoverleg 492 4-2-21.xlsx

Link naar reactie
Delen op andere sites


Zo?

Zie bijlage.

Sub PChelp()
    For i = Cells(Rows.Count, 7).End(xlUp).Row To 10 Step -1
        If Cells(i, 7) = "afgehandeld" Then
            Range("B" & i & ":G" & i).Copy Sheets("Afgehandeld").Cells(Rows.Count, 2).End(xlUp).Offset(1)
            Cells(i, 7).EntireRow.Delete
        End If
    Next
With Sheets("Afgehandeld")
    .Range("A2") = 1
    .Range("A2:A" & .Range("G" & .Rows.Count).End(xlUp).Row).DataSeries , xlDataSeriesLinear
End With
End Sub

 

Actiepunten Projectleidersoverleg 492 4-2-21-2.xlsm

Link naar reactie
Delen op andere sites



Gast
Dit topic is nu gesloten voor nieuwe reacties.
 Delen

×
×
  • Nieuwe aanmaken...