Allen,
Via het forum lukt het mij al aardig om het e.e.a. te maken. Ik maak een automatische takenlijst waarbij een voltooide taak moet verhuizen naar het 'voltooide' tabblad. Omgekeerd kan een niet voltooide actie ook weer worden teruggezet naar de lopende actielijst.
Ik heb nog één issue dat ik moet oplossen. Een actie wordt toegevoegd door data in te vullen in een nieuwe rij. Met behulp van gegevensvalidatie zie ik erop toe dat de juiste zaken worden gevuld. Tot slot wil ik in een cel ook een hyperlink kunnen toevoegen. Met mijn onderstaande code wordt een hyperlink niet meegekopieerd als ik de actie op 'voltooid' zet. Iemand een idee?
Is er daarnaast ook een mogelijkheid om net zoals bij gegegvensvalidatie een dropdown te krijgen waarbij gebladerd kan worden door bestanden? Zodat op die manier gelijk het juiste bestand gekoppeld kan worden?
Alvast bedankt.
Via het forum lukt het mij al aardig om het e.e.a. te maken. Ik maak een automatische takenlijst waarbij een voltooide taak moet verhuizen naar het 'voltooide' tabblad. Omgekeerd kan een niet voltooide actie ook weer worden teruggezet naar de lopende actielijst.
Ik heb nog één issue dat ik moet oplossen. Een actie wordt toegevoegd door data in te vullen in een nieuwe rij. Met behulp van gegevensvalidatie zie ik erop toe dat de juiste zaken worden gevuld. Tot slot wil ik in een cel ook een hyperlink kunnen toevoegen. Met mijn onderstaande code wordt een hyperlink niet meegekopieerd als ik de actie op 'voltooid' zet. Iemand een idee?
Is er daarnaast ook een mogelijkheid om net zoals bij gegegvensvalidatie een dropdown te krijgen waarbij gebladerd kan worden door bestanden? Zodat op die manier gelijk het juiste bestand gekoppeld kan worden?
Alvast bedankt.
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim c As Range
For Each c In [I3:Z1500]
If c = "voltooid" Then
c.Rows.EntireRow.Copy
['Voltooid'!A1500].End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
c.Rows.EntireRow.Delete
End If
Next
Dim d As Range
For Each d In [I3:Z1500]
If d = "geannuleerd" Then
d.Rows.EntireRow.Copy
['Voltooid'!A1500].End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
d.Rows.EntireRow.Delete
End If
Next
End Sub