< návrat zpět

MS Excel


Téma: Odkaz rss

Zaslal/a 19.11.2010 10:53

Zdravím všechny odborníky podruhé 2
Potřebuji makro které mi zajistí nalezení poslední vyplněné buňky v určitém sloupci(tř.A) a do této buňky vloží odkaz na soubor.Název souboru je vždy shodný s textem v nalezené buňce. Soubor uložen třeba na C:/.
Díky za ochotu.

Zaslat odpověď >

#003225
Lano
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
#003228
avatar
Ahoj, tak odkaz to vytvoří, ale po kliknutí na odkaz to píše, že soubor nelze otevřít. Zřejmě je třeba mít zadaný úplný název, tedy s koncovkou.xls. A taky bych to potřeboval upravit s úplnou cestou k souboru. Soubor je totiž v jiné složce než ten s odkazem (D:\Složka1\Složka2\odkaz.xls). Poradí si s tímhle někdo?citovat
#003229
avatar
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 3citovat
#003230
avatar
Koukám, že si tu dopisuji tak nějak sám 2
No zkusil jsem použít selský rozum a kupodivu to funguje :
Dim odkaz As String
Dim nazev As String
Range("A1").Select
Selection.End(xlDown).Select
odkaz = ActiveCell.Value
nazev = "D" & ":" & "\" & "Složka1" & "\" & "Složka2" & "\" & odkaz & ".xlsx"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:=nazev _
, TextToDisplay:=odkaz

Aleurčitě existuje elegantnější řešení. Tak kdyby ho někdo znal...rád se poučím! 4citovat
#003255
Lano
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 ... 4citovat
#003256
avatar
Určitě lepší způsob než můj návrh. Díky za rady a držím palce v učení. Taky se budu snažit 4citovat
#007894
avatar
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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Výmaz řádku podle hodnoty v konkrétním sloupci

elninoslov • 7.2. 21:49

Výmaz řádku podle hodnoty v konkrétním sloupci

Alfan • 7.2. 14:02

Výmaz řádku podle hodnoty v konkrétním sloupci

Alfan • 7.2. 11:44

plán 12 h směn na celý rok

PE1PA • 6.2. 14:56

plán 12 h směn na celý rok

elninoslov • 6.2. 14:16

plán 12 h směn na celý rok

elninoslov • 6.2. 14:15

plán 12 h směn na celý rok

elninoslov • 6.2. 13:21