Passing an index to a second workbook

  • Thread starter Thread starter Sige
  • Start date Start date
S

Sige

Hi There,

I have one workbook with a userform & a "HelpButton" on it.

I would like to open a second workbook to show the actual
Help-Description.

I think something should look as underneath but I don't know how I can
pass the Help-index number (in my example "5") to the "Index"-variable
of the 2nd wbk...!

*1st Workbook Userform:

Private Sub HelpButton_Click()
Application.Run "help.xls!ShowUserformHelp", 5
'the 5th index in the HELP
End Sub


*2nd Workbook: "help.xls" :

Sub ShowUserformHelp()
UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
Label1.Caption = Application.VLookup(Index, HelpDescription, 2, False)
End Sub


All help welcome,
Brgds Sige
 
Hi Again,

Underneath is what I wanted ...
Just having a problem still to open the file when it is closed!
Brgds Sige

1stworkbook
Private Sub HelpButton_Click()
Const Counter As Long = 25

SaveSetting "HelpWorkbook", "Index", "HelpID", Counter
Application.Run "help.xls!ShowUserformHelp"
End Sub

2nd Workbook: "help.xls" :
Sub ShowUserformHelp()
UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
Dim Counter As Long
Dim Helpdescription As Range
' Get setting from registry
Counter = GetSetting("HelpWorkbook", "Index", "HelpID", 0)

Set Helpdescription = ThisWorkbook.Sheets("IndexSheet").Range("Help")
Label1.Caption = Application.VLookup(Counter, Helpdescription, 2,
False)
End Sub
 
With Norman Jones' help:

Index not passed via the registry!

Private Sub HelpButton_Click()
Dim icounter As Long
icounter = 7 'Give Index ID
Application.Run "'Sige help(25 Oct 05).xls'!ShowUserformHelp", icounter
'Application.Run "'C:\MyFolder\My File \MyMacro'"
End Sub


I was nearly there ;o)
 
Back
Top