Hi,

especially this line returns the value of cell "H1001"

if you run a line like msgbox get_dir() you´ll get a message-box which shows
you the value of cell H1001

best regards

ReD-DevIL Wrote:

While from the info you have given. I would say you have a workbook
which is opened  called PEM.xls. in this workbook there is a sheet 1
which it activates and then declares what get_dir is from the value of
cell H1001.

The get_dir value is then past onto macro which would use that value

Hi,
The comments I have included after each line explain the purpose of the
line.

Public Function Get_dir()
Windows("PEM.xls").Activate
'makes the above file the active window. If the file is not open macro
will
'probably quit or may ask if you want to debug the code.
With Worksheets("sheet1")
'the "with" is used to allow for multiple things to be done to the same
object
'(ie "sheet1"). In this case, make it the active sheet & use a value
from one
'of its cells.
Activate
'makes sheet1 the active sheet
Get_dir = .Range("H1001").Value
'takes the value of cell H1001 & assigns it to a variable called
"Get_Dir"
End With
End Function

The name of the function suggests that cell H1001 may contain a file
path (or directory) & the aim is to obtain this value.
If the main/only purpose of this function is to retrieve the value of
cell H1001 it could be shortened to either of  the following lines (the
first one may not work - I haven't tested it):

Public Function Get_dir()
Get_dir = Windows("PEM.xls").Worksheets("sheet1").Range("H1001").Value
'or
Get_dir =
Workbooks("PEM.xls").Worksheets("sheet1").Range("H1001").Value
end function

hth
Rob Brockett
NZ
Always learning & the best way to learn is to experience...

Thanks alot, you guys are very helpful.
Actually i am given this assignment for my attachment, whereby i hav
to edit the program but i have to understand the codes befor
proceeding to make any editing and i am not quite familiar with exce
programming. I just received this codes today, but too bad i don't hav
the program with me now. I hope you guys will be there to guide m
through... :

--
ReD-DevI

ReD-DevIL Wrote:

It would help readers of the forum if you actually put a topic in th
Title Box instead of " Can Anyone help"

It also helps when people are searching forums for information..

Hi, i think i managed to understand the sub getdir () afte
explainations from you guys. But i encounter another problem, thi
program actually needs the user to enter userid and password. However
when i enter the userid and password, it says
Run-time error '76': Path not found

If (IsNumeric(userid)) Then
dir = Get_dir()
Open dir & "passwd" For Random Access Read As #1   :)
Get #1, userid, passwd1
Close
If (passwd <> passwd1 Or passwd = Empty) Then
MsgBox ("Invalid User ID or Password")
Else
Login_ok = 1
End If
Else
MsgBox ("Pls enter your badge number only.")
frm_newuser.Hide
End If

then the line with a smile behind is highlighted with yellow.

can anyone explain to me what does this error means

--
ReD-DevI

Got another question...
How can i make the program create a new worksheet yearly for next yea
WITHOUT dupilcating?
E.g. for 2006 the program have to create a worksheet named 2007 an
once into 2007, it create a worksheet for 2008

--
ReD-DevI