I posted a topic yesterday but it has yet to show up and no longer have
those notes... so bear with me.


I am wanting to have inside a cell:
REV: username - now() random-8-characters

I would want it to look something like
REV: Jason Sands - 28 Nov 2006 - y3V6Bk4A

I had a lot more detailed message yesterday but I think GMail lost it...

Here's a UDF

Function RandIt()
Dim tmp
Dim randvals(1 To 3) As Long
Dim i As Long

tmp = Application.UserName & " - " & Format(Date, "dd mmm yyyy") & " - "
Randomize
For i = 1 To 8
randvals(1) = Int((57 - 48 + 1) * Rnd + 48)
randvals(2) = Int((90 - 65 + 1) * Rnd + 65)
randvals(3) = Int((121 - 97 + 1) * Rnd + 97)

tmp = tmp & Chr(randvals(Int((Rnd() * 3) + 1)))
Next i

RandIt = tmp
End Function


in the worksheet

=RandIt()

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Jason Sands" wrote in message
ups.com...
I posted a topic yesterday but it has yet to show up and no longer have
those notes... so bear with me.


I am wanting to have inside a cell:
REV: username - now() random-8-characters

I would want it to look something like
REV: Jason Sands - 28 Nov 2006 - y3V6Bk4A

I had a lot more detailed message yesterday but I think GMail lost it...

Hi.

Try: =A1&" - "&TEXT(TODAY(),"dd mmm yy")&" -
"&MID(ADDRESS(1,RANDBETWEEN(1,26)),2,1)&RANDBETWEE N(0,9)&MID(ADDRESS(1,RANDBETWEEN(1,26)),2,1)&RANDB ETWEEN(0,9)&MID(ADDRESS(1,RANDBETWEEN(1,26)),2,1)& RANDBETWEEN(0,9)&MID(ADDRESS(1,RANDBETWEEN(1,26)), 2,1)&RANDBETWEEN(0,9)

Where A1 houses the user name. You need to install Analysis Toolpak
for RANDBETWEEN() to work. Tools-Addins-Analysis Toolpak.

HTH

Regards,
Jon von der Heyden


--
Jon von der Heyden
------------------------------------------------------------------------
Jon von der Heyden's Profile: http://www.officehelp.in/member.php?userid=4852
View this thread: http://www.officehelp.in/showthread.php?t=1245029

Posted from - http://www.officehelp.in

Works great!
For those wondering how to UDF:
http://office.microsoft.com/en-us/as...548461033.aspx

Jason

Bob Phillips wrote:
Here's a UDF

Function RandIt()
Dim tmp
Dim randvals(1 To 3) As Long
Dim i As Long

tmp = Application.UserName & " - " & Format(Date, "dd mmm yyyy") & " - "
Randomize
For i = 1 To 8
randvals(1) = Int((57 - 48 + 1) * Rnd + 48)
randvals(2) = Int((90 - 65 + 1) * Rnd + 65)
randvals(3) = Int((121 - 97 + 1) * Rnd + 97)

tmp = tmp & Chr(randvals(Int((Rnd() * 3) + 1)))
Next i

RandIt = tmp
End Function


in the worksheet

=RandIt()

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Jason Sands" wrote in message
ups.com...
I posted a topic yesterday but it has yet to show up and no longer have
those notes... so bear with me.


I am wanting to have inside a cell:
REV: username - now() random-8-characters

I would want it to look something like
REV: Jason Sands - 28 Nov 2006 - y3V6Bk4A

I had a lot more detailed message yesterday but I think GMail lost it...