windows naam en systeem tijd invullen mbv een knop

[JeroenExcel]

Hoi, ik wil graag in een werkblad een knopje/besturingselement maken oid met als effect dat iemand die knop indrukt er een "stempel" in het document wordt gemaakt waardoor de windows gebruikersnaam en de systeemdatum+tijd worden weergegeven.
Heeft iemand daar een idee over of een alternatief voor?
Groet en alvast dank

 

[VenA]

Sub VenA()
  Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 2) = Array(Environ("Username"), Now)
End Sub

 

[JeroenExcel]

Ik zal iets verkeerd doen. Ik heb Blad1 gewijzigd naar de naam van een werkblad, maar verder gebeurt er niets?

 

[edmoor]

En hoe activeer je die Sub?

 

[JeroenExcel]

met macro toewijzen aan een besturingselement.

 

[edmoor]

Met die actie activeer je niet een Sub maar ken je die toe aan een besturingselement.
Plaats dan je document.

 

[JeroenExcel]

Bekijk bijlage Template offerte calculatie EOL, Jaarwerk en Salarisadministratie juli 2018.xlsmBekijk bijlage Template offerte calculatie EOL, Jaarwerk en Salarisadministratie juli 2018.xlsm

 

[JeroenExcel]

heb ik hem zo goed toegevoegd? Het gaat met even om het eerste werkblad.

 

[edmoor]

Die knop knop doet het prima.
De gegevens komen terecht in de kolommen T en U en die zie je op dat blad niet.
Wees dus duidelijker in wat je precies waar wilt hebben.

 

[JeroenExcel]

die kolommen had ik verborgen. Ik dacht dat de formule rijen telde...

bedankt jullie in ieder geval, ik kom er dan wel uit verder (hoop ik)

 

[edmoor]

Rijen tellen doet 'ie ook.
Je hebt zelf die 1 (A) van VenA veranderd in 20 (T).

Het is niet handig om een hier verkregen stukje code te wijzigen en daarna te zeggen dat het niet werkt.