MS Excel

Téma: Výběr listu podle hodnoty v buňce

Zaslal/a sewerman_cz 6.2.2015 16:50

Ahoj,
potřeboval bych poradit.
V buňkách mám načteny všechny názvy listů. Potřebuji makro které vezme název listu z buňky na které stojím a na tento list se přepne.
Zkoušel jsem načíst aktivní hodnotu do proměnné a poté proměnou použít k aktivaci listu, ale debuger vyhazoval chybu.
Poradíte jak na to?
Předpokládám že zakopaný pes je ve formátech.

Uzamčeno - nelze přidávat nové příspěvky.

ji026441(6.2.2015 17:11)#023504

Mi funguje toto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim NazevListu As String

NazevListu = ActiveCell.Value

If Len(NazevListu) > 0 Then
Sheets(NazevListu).Select
End If

End Subt

End Sub
citovat

AL(6.2.2015 17:56)#023505

Prečo nepoužiješ hyperlinky?
Do kódového okna listu so zoznamom listov vlož:Sub VytvorHyperlinky()
'nazvy listov v stlpci A, zacinaju od riadku 1, bez volnych buniek medzi nazvami
Dim i As Byte, sh As Worksheet
For i = 1 To WorksheetFunction.CountA([A:A])
On Error Resume Next
Set sh = Sheets(Cells(i, 1).Value) 'kontroluje existenciu listu s danym nazvom
On Error GoTo 0
If Not sh Is Nothing Then _
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", _
SubAddress:="'" & Cells(i, 1) & "'!A1", TextToDisplay:=Cells(i, 1).Value
With Cells(i, 1).Font 'pokial nechceme, aby hyperlink vyzeral ako hyperlink
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Set sh = Nothing
Next i
End Sub
Kód spusti, následne môžeš zmazať. Proti tomu, čo navrhuje Jirka, a čo si chcel pôvodne, to má tú výhodu, že vo finále nepotrebuješ žiadne udalostné makro, ktoré môže teoreticky spomaľovať rýchlosť aplikácie.citovat

sewerman_cz(6.2.2015 18:47)#023506

Děkuji oběma. Použiji první kód, protože budu s listem ještě dále v makru pracovat.

Díkycitovat

Téma: Výběr listu podle hodnoty v buňce

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje