Try this |
| santhosh kumar replied to srinivas reddy at 04-Jul-08 02:02 |
Hi,
Public Sub UserForm_Initialize()
t = (Mid(time, 1, 2)) ' set the value of t to the current time
If t = "08" Or "09" Then ' if the "t" variable contains a 0, remove it
t = Right$(t, 1)
End If
ccount = Range("B" & t).Value ' set the values of the activity counters to what is
pcount = Range("C" & t).Value ' currently in the cells
End Sub
Regards,
Santhosh
|
|