prenos hiperpovezave

Pomoč pri delu z MS Excelom
Odgovori
andro
Prispevkov: 36
Pridružen: To Dec 12, 2006 1:40 pm
Kraj: krško

prenos hiperpovezave

Odgovor Napisal/-a andro »

Zdravo
pomoč potrebujem pri prenosu hiperpovezave.
primer:
V celici A1 v datoteki "povezava" obstaja hiperpovezava.
Želel bi v datoteki "podatki" tudi v celici A1 enako povezavo vendar črpano iz prejšnje datoteke.

Če označiš kar (=povezava!A1) ti prenese zapis in ne hiperpovezavo.
Kako naj prenese se hiperpovezavo?

Hvala
lp
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: prenos hiperpovezave

Odgovor Napisal/-a admin »

Pozdravljeni,

Če je vsebina celice hiperpovezava, potem s sledečo funkcijo:

Koda: Izberi vse

=HYPERLINK(A1)
V kolikor pa želite iz celice zares dobiti povezavo, pa boste morali uporabiti VBA:

Koda: Izberi vse

Function GetURL(cell As Range)
  If (cell.Range("A1").Hyperlinks.Count <> 1) Then
    GetURL = "ni povezave"
  Else
    GetURL = cell.Range("A1").Hyperlinks(1).Address & "#" & cell.Range("A1").Hyperlinks(1).SubAddress
  End If
End Function
in potem na delovnem lustu

Koda: Izberi vse

=GetURL(a1)
lp,
Matjaž Prtenjak
Administrator
Odgovori