Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Global Variable
I'M still having a little trouble. Here is my code
Public name As String Public team As String Public TeamLeader As String Public CommandN As String Public Sub FindUser() currentuser = Application.UserName Workbooks.Open "Z:/Systemdown/Userfile.xls" lastrow = Workbooks("Userfile.xls").Sheets("UserData").Range ("A65536").End(xlUp).Row For Each person In Workbooks("Userfile.xls").Sheets("UserData").Range ("A2:A" & lastrow) If person.Value = currentuser Then Set name = person.Offset(0, 1).Value Set team = person.Offset(0, 2).Value lastrow2 = Workbooks("Userfile.xls").Sheets("UserData").Range ("A65536").End(xlUp).Row For Each Teamgroup In Workbooks("Userfile.xls").Sheets("Command").Range( "A2:A" & lastrow2) If Teamgroup.Value = team Then Set TeamLeader = Teamgroup.Offset(0, 1).Value Set CommandN = Teamgroup.Offset(0, 2).Value Else End If Next Teamgroup Else End If Next person Workbooks("Userfile.xls").Close End Sub The user file has two sheets. Userdata with colums ID, Name and Team Command with Team, Team Leader and Command. The Macro is meant to use application.UserName to find who is currently runing the program. It is then meant to look up from the tables there name, Team, Team Leader and Command. These are then going to used to set up the save directory on a shared drive for the user. That's why I need the variables to go Global as I need them in other modules. When I run the code as above I get mismatch errors when trying to set the data to the variable. Can someone suggest where i'm going wrong. -- Regards and Thanks for any assistance. Francis Brown. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Global variable | Excel Discussion (Misc queries) | |||
Global Variable | Excel Discussion (Misc queries) | |||
Global Variable | Excel Programming | |||
why is it saying sheetcnt is "variable not defined" how to do a global variable to share over multiple functions in vba for excel? | Excel Worksheet Functions | |||
Global variable | Excel Programming |