Historie úprav

Alesh

Odpověděl/a – 4.březen 15:23

Tohle půjde udělat přes VBA:

1. Otevři editor, např. klávesovou zkratkou Alt + F11
2. V Project Exploreru poklikej List2
3. vlož do něj tento kód:

Option Explicit

Private Sub Worksheet_Chan­ge(ByVal Target As Range)

On Error Resume Next

If Target.Address = „$A$1“ Then
Application.Goto ThisWorkbook.She­ets(1).Range(Tar­get.Value)
End If

End Sub

Alesh

Odpověděl/a – 4.březen 17:34

Tohle půjde udělat přes VBA:

1. Otevři editor, např. klávesovou zkratkou Alt + F11
2. V Project Exploreru poklikej List2
3. vlož do něj tento kód:

Option Explicit

Private Sub Worksheet_Chan­ge(ByVal Target As Range)

On Error Resume Next

If Target.Address = „$A$1“ Then
Application.Goto ThisWorkbook.She­ets(1).Range(Tar­get.Value)
End If

End Sub

Mně to funguje, ale tobě taky, ne? 🙂 Jsem kouzelník. 🙂 Hádej, napovím ti, že v kostele to nebylo. 😉