Excel - makro na automatickou změnu hyperlinků v buňkách
Napsal: 20 kvě 2011 13:16
Já se připojím ať nezakládám další vlákno. Potřebuju udělat makro na automatickou změnu hyperlinků v buňkách.
Mám jeden list pojmenovaný "seznam" kde jsou pod sebou jména zaměstnanců (celkem 150, ob 3 buňky). A pak mám dalších 150 listů (pojmenovaných 1 - 150), kde jsou údaje o zaměstnancích (co list to zaměstnanec).
Potřebuju abych měl hyperlinky zaměstnanců na jejich karty, ale nevím jak na to. Dole je prozatímní kód co jsem napsal, ale nevím jak vypisovat proměnou y do formátu 'y!A1'..
// Dotaz oddělen od jiného tématu.
// Pročti si pravidla fóra.
// mike007
Mám jeden list pojmenovaný "seznam" kde jsou pod sebou jména zaměstnanců (celkem 150, ob 3 buňky). A pak mám dalších 150 listů (pojmenovaných 1 - 150), kde jsou údaje o zaměstnancích (co list to zaměstnanec).
Potřebuju abych měl hyperlinky zaměstnanců na jejich karty, ale nevím jak na to. Dole je prozatímní kód co jsem napsal, ale nevím jak vypisovat proměnou y do formátu 'y!A1'..
Kód: Vybrat vše
Sub Makro3()
' Makro3 Makro
' Makro na změnu hypertextových odkazů, zatím nefunkční
' Target.Formula = "=HYPERLINK(""" & "E:\Excel\" & Target.Value & """,""" & Target.Value & """)"
' Selection.Hyperlinks(1).SubAddress "=" '&y&'"!A1&"x"
'
Dim x As Integer
Dim y As Integer
y = 41
Range("B131").Select
For x = 1 To 30
Selection.Hyperlinks(1).SubAddress = "y!A1"
ActiveCell.Offset(3, 0).Select
y = y + 1
Next x
End Sub
// Dotaz oddělen od jiného tématu.
// Pročti si pravidla fóra.
// mike007