Topic did not show up?

J

Jason Sands

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...
 
B

Bob Phillips

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)
 
J

Jon von der Heyden

Hi.

Try: =A1&" - "&TEXT(TODAY(),"dd mmm yy")&"
"&MID(ADDRESS(1,RANDBETWEEN(1,26)),2,1)&RANDBETWEEN(0,9)&MID(ADDRESS(1,RANDBETWEEN(1,26)),2,1)&RANDBETWEEN(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 Toolpa
for RANDBETWEEN() to work. Tools->Addins->Analysis Toolpak.

HTH

Regards,
Jon von der Heyde
 
Top