Kopieren, plakken

[Martijn29]

Hallo,

Ik ben al uren bezig met VBA en ik heb heel het internet afgezocht, maar ik kom hier niet uit..
Ik ben bezig met een werkplanning, waarbij men een overzicht krijgt van de planning en men kan aangeven wanneer er iets voltooid is (mbv ctrl+; ).
De bedoeling is om de voltooide datum mee te nemen in een totaaloverzicht (waarbij alle planningen samen komen).

Om wat meer uitleg te geven, heb ik een bestand toegevoegd. Hierin staat ook meer informatie (tabblad"export")

1 van mijn opzetjes (die dus niet werkt..)

Sub Datums()

For Each cell In Worksheets("Export").Range("B3:BS27")
If cell.IsDate Then
Copy cell.Offset(1, 1)
End If
Next cell

End Sub

Bekijk bijlage naam medewerker.xlsm

 

[VenA]

Kan het niet testen maar misschien zo.

Sub Datums()
For Each cl In Worksheets("Export").Range("B3:BS27")
  If IsDate(cl.Value) Then cl.offset(1,1)=cl.value
Next cl
End Sub

 

[Martijn29]

Top!!

Werkt helemaal!

Dank je wel!