Dobry den Lasky, dna 15.11.2000 si napisal(a):
> No ako naschval, mam to doma, takze:
> Vyplneny je jeden stlpec, kde su texty cojaviem napr.:
> 1.bunka: "zoznam" + "http://www.zoznam.sk"
> 2.bunka: "seznam" + "http://www.seznam.cz"
> atd. cca 250, proste nejaky odkaz na www priradeny k
> urcitemu textu. Ked na tu bunku kliknes, ides na web.
> Ale v niektorych bunkach odkaz priradeny nie je.
> Ten odkaz sa ukaze len pri prechode mysou a dost blbo
> by sa to prepisovalo. Potrebujem tie odkazy oddelit,
> na formate nezalezi a v helpe nie je ani prd :-((
>
> Lasky
>
pomocou maleho makierka:
------------------cut--------------------
Sub jedBoxo()
Dim HypLink As String
Dim Pocet As Integer
Do Until ActiveCell = ""
Pocet = ActiveCell.Hyperlinks.Count
If Pocet = 0 Then
ActiveCell.Offset(0, 1) = "žiadny link"
Else
HypLink = ActiveCell.Hyperlinks(1).Name
ActiveCell.Offset(0, 1) = HypLink
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
--------------------end cut-------------------------------
predpokladam, ze mas bud 97 alebo 2000
makro vloz do nejakeho modulu, ak si s makrami este nerobil rozpisem sa.
nastavis sa na prvu bunku (pomocou sipiek) a spustis makro
--
s pozdravom
AleXXX
This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 04:18 CEST