JeroenExcel
Gebruiker
- Lid geworden
- 19 nov 2015
- Berichten
- 42
Hallo, ik kreeg gisteren van VenA het onderstaande mooie stukje code. Deze code plaatst Username en tijdstip onderaan rij 1 in de eerste vrije cel.
Ik zou graag de plaats waar de uitkomst komt willen fixeren.
Als ik de uitkomst bijvoorbeeld in kolom 2 rij 3 wil hebben, hoe moet ik de code dan aanpassen?
Alvast bedankt!
Sub VenA()
Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 2) = Array(Environ("Username"), Now)
End Sub
Ik zou graag de plaats waar de uitkomst komt willen fixeren.
Als ik de uitkomst bijvoorbeeld in kolom 2 rij 3 wil hebben, hoe moet ik de code dan aanpassen?
Alvast bedankt!
Sub VenA()
Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 2) = Array(Environ("Username"), Now)
End Sub