MS Excel

Co takhle:
Sub hyperodkaz()
Dim odkaz As String
Range("A1").Select
Selection.End(xlDown).Select
odkaz = ActiveCell.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
odkaz, TextToDisplay:= _
odkaz
End Subcitovat

Tak problém s příponou jsem vyřešil :
Private Sub CommandButton1_Click()
Dim odkaz As String
Dim nazev As String
Range("A1").Select
Selection.End(xlDown).Select
odkaz = ActiveCell.Value
nazev = odkaz & ".xlsx"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
nazev, TextToDisplay:= _
odkaz
End Sub
ale jaksi se nemohu dopátrat jak proměnou "nazev" začlenit do úplné cesty.... tedy D:\Složka1\Složka2\nazev.xlsx mi nefunguje citovat

Co takhle 2 jiné způsoby:
buď vložíš cestu k souboru třeba do buňky B1 a příponu do C1, nebo cestu a příponu definuješ do konstant přímo v makru.
Sub hyperodkaz()
Dim odkaz As String
cesta = Range("B1").Value '1 způsob
pripona = Range("C1").Value '1 způsob

cesta2 = "F:\Data\Složka1\Složka2\" '2 způsob
pripona2 = ".xls" '2 způsob

Range("A1").Select
Selection.End(xlDown).Select
odkaz = ActiveCell.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
cesta & odkaz & pripona, TextToDisplay:= _
odkaz
End Sub

Snad to bude vyhovovat. Nejsem žádný specialista přes VBA. Sám sem chodím pro rady ... citovat

Zdravim, já mám ten stejný problém, akorát bych potřeboval jako adresu odkazu použít hodotu vedlejší buňky. Můžete prosím poradit? Předem díky.citovat