• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Vraag over aanpassing code om de uitkomt op een specifieke cel te krijgen

Status
Niet open voor verdere reacties.

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
 
zo:

Code:
Sub VenA()
Sheets("Blad1").Cells(3, 2).Resize(, 2) = Array(Environ("Username"), Now)
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan