sudburymetoo
Board Regular
- Joined
- Dec 15, 2008
- Messages
- 59
//////Dim id, wsStart As Worksheet
Dim wbBook1 As Workbook, wbBook2 As Workbook
Dim bIsopen As Boolean
On Error Resume Next
Set wsStart = ActiveSheet
Set wbBook1 = Workbooks("mix.xls")
Set wbBook2 = ThisWorkbook
Dim iRow As Integer
iRow = "2"
If wbBook1 Is Nothing Then
bIsopen = True
Set wbBook1 = Workbooks.Open("G:\DBA\NY 201\DEPT 98921\mix.xls")
End If///////
===========================================================================================
I have workbook mix.xls on a shared network dr. Users have the above macro in their workbook on their own pc which they run to look up info in mix.xls. How can I modify the code so that a list of names in another workbook list.xls, on same network dr are validated with the users trying to access mix.xls. If name not found mix.xls will not open.
Dim wbBook1 As Workbook, wbBook2 As Workbook
Dim bIsopen As Boolean
On Error Resume Next
Set wsStart = ActiveSheet
Set wbBook1 = Workbooks("mix.xls")
Set wbBook2 = ThisWorkbook
Dim iRow As Integer
iRow = "2"
If wbBook1 Is Nothing Then
bIsopen = True
Set wbBook1 = Workbooks.Open("G:\DBA\NY 201\DEPT 98921\mix.xls")
End If///////
===========================================================================================
I have workbook mix.xls on a shared network dr. Users have the above macro in their workbook on their own pc which they run to look up info in mix.xls. How can I modify the code so that a list of names in another workbook list.xls, on same network dr are validated with the users trying to access mix.xls. If name not found mix.xls will not open.
