current date and username automated on cells

I

Ify

This is a reaeted query because the response I got from newsgroup see
not to do the trick.

I need a sub procedure or a function for storing a current date an
username (the username to come from the user's login to the system
values automatically on the cells

For example

Date (to be automatated) :username(to be automatated)

08/07/2004 : Jo freazer
09/07/2004 : Kelly hamburger
10/07/2004 : Tai Azi
11/07/2004 : Kelly hamburger

Thank you
 
R

Rollin_Again

::COPY AND PASTE INTO A MODULE::


DECLARE FUNCTION APIGETUSERNAME LIB \"ADVAPI32.DLL\" ALIAS _
\"GETUSERNAMEA\" (BYVAL LPBUFFER AS STRING, _
NSIZE AS LONG) AS LONG

PUBLIC SUB USERNAME_DATE()

'FIND THE USER NAME THAT IS ENTERED UNDER TOOLS>OPTIONS>GENERAL.
VEXCELUSER = APPLICATION.USERNAME

'FIND THE CURRENT WINDOWS LOGIN USER NAME
APPLICATION.VOLATILE
DIM SBUFF AS STRING * 25
DIM LBUFFLEN AS LONG
LBUFFLEN = 25
APIGETUSERNAME SBUFF, LBUFFLEN

VWINDOWSUSER = LEFT(SBUFF, LBUFFLEN - 1)


'FIND THE DATE
VDATE = DATE

END SUB



Rollin
 
Top