emilt_milut
New Member
- Joined
- Feb 4, 2018
- Messages
- 9
Thank you for your time. I am a realbeginner in the VBA and I am asking for your help for the next issue.
I have <o
></o
>
A sheet called "START" in which anActiveX ComboBox named ”CLIENTI” is inserted,<o
></o
>
and<o
></o
>
A sheet called "CLIENTI" in whichthe Range ”B3:B100” contain hyperlink addresses to various Workbooks<o
></o
>
ListFillRange – ”CLIENTI!B3: B100”<o
></o
>
LinkedCell – ”CLIENTI!A3”<o
></o
>
Sheet files in the list of"CLIENTI" are located in C:\DIANA\TRAD\clienti\<o
></o
>
I want to open the selected file from ComboBoxby activating the hyperlink<o
></o
>
I wrote thefollowing procedure, but it does not work.<o
></o
>
Sub Open_pg_client()<o
></o
>
'<o
></o
>
' Open_pg_client Macro<o
></o
>
' Range("J3")=CONCATENATE(G3;A1;H3)<o
></o
>
' Range("G3")= file:///C:\DIANA\TRAD\clienti\<o
></o
>
' Range("A1") = LinkedCell<o
></o
>
' Range("H3") = .xlsx<o
></o
>
' Range("K3")=contain the value of Range("J3")<o
></o
>
' Range("M5")= HYPERLINK($K$3)<o
></o
>
Sheets("CLIENTI").Select<o
></o
>
Range("J3").Select<o
></o
>
Application.CutCopyMode = False<o
></o
>
Selection.Copy<o
></o
>
Range("K3").Select<o
></o
>
Selection.PasteSpecialPaste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<o
></o
>
:=False, Transpose:=False<o
></o
>
<o
></o
>
Sheets("CLIENTI").Range("M5").Hyperlinks(2).Follow<o
></o
>
<o
> </o
>
If GetUserAddress = True Then<o
></o
>
MsgBox "Successfullyfollowed hyperlink."<o
></o
>
Else<o
></o
>
MsgBox "Could not followhyperlink."<o
></o
>
End If<o
></o
>
End Sub<o
></o
>
<o
> </o
>
I get the errormessage:<o
></o
>
”Run-time error ”9”:<o
></o
>
Subscript Out of Range”<o
></o
>
Thank you in advance for any help.<o
></o
>
Kind Regards<o
></o
>
I have <o


A sheet called "START" in which anActiveX ComboBox named ”CLIENTI” is inserted,<o


and<o


A sheet called "CLIENTI" in whichthe Range ”B3:B100” contain hyperlink addresses to various Workbooks<o


ListFillRange – ”CLIENTI!B3: B100”<o


LinkedCell – ”CLIENTI!A3”<o


Sheet files in the list of"CLIENTI" are located in C:\DIANA\TRAD\clienti\<o


I want to open the selected file from ComboBoxby activating the hyperlink<o


I wrote thefollowing procedure, but it does not work.<o


Sub Open_pg_client()<o


'<o


' Open_pg_client Macro<o


' Range("J3")=CONCATENATE(G3;A1;H3)<o


' Range("G3")= file:///C:\DIANA\TRAD\clienti\<o


' Range("A1") = LinkedCell<o


' Range("H3") = .xlsx<o


' Range("K3")=contain the value of Range("J3")<o


' Range("M5")= HYPERLINK($K$3)<o


Sheets("CLIENTI").Select<o


Range("J3").Select<o


Application.CutCopyMode = False<o


Selection.Copy<o


Range("K3").Select<o


Selection.PasteSpecialPaste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<o


:=False, Transpose:=False<o


<o


Sheets("CLIENTI").Range("M5").Hyperlinks(2).Follow<o


<o


If GetUserAddress = True Then<o


MsgBox "Successfullyfollowed hyperlink."<o


Else<o


MsgBox "Could not followhyperlink."<o


End If<o


End Sub<o


<o


I get the errormessage:<o


”Run-time error ”9”:<o


Subscript Out of Range”<o


Thank you in advance for any help.<o


Kind Regards<o

