Excel - makro na automatickou změnu hyperlinků v buňkách Vyřešeno

[pre.vit]

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'..

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

[Reklama]

[mike007]

Tohle by ti mohlo stačit: http://www.pc-help.cz/viewtopic.php?f=3 ... AF#p233831

[cmuch]

Ahoj,
tady to by mohlo pomoci
http://www.pc-help.cz/viewtopic.php?f=35&t=36071&hilit=seznam+listu

[pre.vit]

Tak nakonec vyřešeno takto. Díky za nasměrování!

Kód: Vybrat vše

Sub Makro3()
'
' Makro3 Makro
' Makro na změnu hypertextových odkazů
'
Dim x As Integer
Dim y As Integer
y = 1
Range("B11").Select
For x = 1 To 150
    Selection.Hyperlinks(1).SubAddress = "'" & y & "'" & "!A1"
    ActiveCell.Offset(3, 0).Select
    y = y + 1
Next x
End Sub