excel 2010, ako sa z indexoveho zoznamu harkov presunut na dany harok 1 klikom

siki
pouzivam seznam listu upraven 2
ale narazil som na chybu. ked je v nazve harka apostrof ', tak pise ze: odkaz nie je platny a nepresunie ma nan

da to opravit ?

dik

Da to opravit.

Jednoducho do nazvu harka nedavaj apostrof! Kto to kedy videl!
Vidim, ze este stale si sa nedal do studia zakladov prace s PC...

ty curak, len do mna rypes
ja to musim mat v anglictine cele, a preto sa apostrofu nevyhnem !

Ehm, apostrofu sa da vyhnut vzdy, aj v anglictine.

Necital som to tu cele, (to je tak na pol dna), ale tak si predsa ten odkaz uprav tak, aby fungoval, ked nutne potrebujes apostrof. Bud treba ten apostrof escapovat (\pred neho alebo co) alebo zapisat ako hex hodnotu, v zavislosti od toho co to tam mas za makra alebo co to tam vlastne robis.

Ja VBA neviem. Do nazvov apostrof musi ist. Cize vo VBA sa musi odignorovat ako koment a zobrat ako pismeno, ak bude v strede nazvu. Predpokladam ze cez nejaku IF podmienku

siki, los, ak ste tu, popravite to prosim ? Chcem to uz pouzivat

To sa nerobi cez ziadne if ale ten apostrof sa zvycajne escapuje specialnym znakom pred tym, ak ma byt vnutri stringu.

Co tam mas vlastne za odkaz a jak to mas momentalne urobene? Skopiruj sem ten odkaz alebo VBA funkciu ktorou vyvolavas ten odkaz (prepnutie listu)

Toto su 2 makra v jednom module:

Sub seznam_listu()
Dim ceLL As Range
Dim i As Long
Dim Tlacitko As Object
Dim Tlacitko2 As Object
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim Exist As Boolean

Application.ScreenUpdating = False

For Each Ws1 In Worksheets
    If Ws1.Name Like "Seznam listù" Then Exist = True: Exit For
    Next
        If Exist = True Then
            With Sheets("Seznam listù")
                .Activate
                .Columns(1).Clear
            End With
        Else
            Sheets.Add before:=Worksheets(1)
            ActiveSheet.Name = "Seznam listù"
            
            With Range("A1")
                Set Tlacitko2 = ActiveSheet.Buttons.Add(Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
            End With
    
            With Tlacitko2
                .Name = "Tlacitko2"
                .OnAction = "seznam_listu"
                .Characters.Text = "Vytvor zoznam"
                .Characters.Font.Name = "Arial"
                .Characters.Font.Size = 11
                .Characters.Font.Color = vbRed
                '.Characters.Font.Bold = True
            End With
            
        End If


For i = 2 To Sheets.Count
Cells(i + 1, 1) = Sheets(i).Name
Columns(1).AutoFit

If Columns(1).ColumnWidth < 18 Then
    Columns(1).ColumnWidth = 18
End If

Cells(i + 1, 1).NumberFormat = "@* "
Next i


For Each ceLL In Range("A3", Range("A3").End(xlDown))
ceLL.Hyperlinks.Add Anchor:=ceLL, Address:="", _
SubAddress:="'" & ceLL.Value & "'" & "!a1", ScreenTip:="Kliknutím se pøesuneš do tohoto listu", TextToDisplay:=ceLL.Value
Next

Range("A3:A" & Cells(Rows.Count, "A").End(xlUp).Row).Font.Underline = xlUnderlineStyleNone


Application.ScreenUpdating = True
Sheets("Seznam listù").Activate
End Sub

Sub zpet()
Sheets("Seznam listù").Activate
End Sub

Druhe je to Sub zpet. Pri stlaceni ctrl+q ma vrati na zoznam harkov
Potom do dalsieho modulu davam toto, aby ma pri kazdom otvoreni suboru vratilo na prvy harok s tym makrom:

Private Sub Workbook_Open()
Sheets(1).Select
End Sub

Co som urobil:
vsetky potrebne harky co som mal v suboroch ako .xls, som ulozil do novej podoby .xlsx. Vsetky harky zo vsetkych suborov som preniesol do jedneho spolocneho suboru.
Potom som tam pridal to makro, ale nejako to nefungovalo do druhe Zpet makro.
Je dovolene nakoniec pridat makro co sluzi na pracu s harkami, ci to musi byt ako prva vec vlozena do noveho suboru ? Nechapem, taketo malickosti co mi nevychadzaju, mi zaberaju kopu casu. Neviem preco sa to deje..

Prenesením makra do iného zošita sa neprenesie aj priradenosť ku klávesovej skratke. Makro "Zpet" je treba znova naviazať na skratku CTRL+Q.
Za ďalšie, hárok 1 musíš mať nazvaný tak, ako je nazvaný vo VBA t.j. "Seznam listu"
Za ďalšie, makrá si môžeš do zošita preniesť kedy chceš.
Za ďalšie, počnúč Excelom 2007 je potrebné zošity obsahujúce makrá ukladať vo formáte xlsm
Za ďalšie všetkým problémom by si sa bol vyhol, keby si si bol svoje hárky preniesol do Sikiho predpripraveného zošita, čo som Ti už písal, ale ty samozrejme nedávaš pozor na to, čo sa tu hovorí...

Vzdy ked otvorim sikiho subor mi vyskakuje: je to z internetoveho zdroja povolit otvorenie, a tiez Povolit obsah ?

Povoliť. Vieš o čo ide, robil Ti ho Siki. (Dúfam, že ho už máš stiahnutý a spúšťaš ho u seba)
Ja mám 2007, kde sa to nepýta, tak neviem ako sa toho zbaviť ale skús si ho "uložiť ako" a či pri ďalšom otváraní bude chcieť povolenie zas...
Ovšem apostrofový problém ostáva...

Pocuvaj robertko
okolo teba sa svet netoci, to ze ty nie si ochotny tu poradit nic neznamena. Nie si jediny kto ovlada VBA. Hoci som ta videl kodit hocikomu inemu v inych temach, dobre ze si sa neisiel pretrhnut od ochoty. Bolo dobre viditelne ako to robis natruc.

Stale to riesim, ale teraz sa chcem vratit k tomuto mini makru:

Private Sub Workbook_Open()
Sheets("Sheet List").Activate
End Sub

Robi to, ze ked otvorim subor, otvori sa mi to vzdy na prvom harku. Ale ten zoznam harkov je dlhsi ako zobrazovacie pole obrazovky (ano, ak ked si dam mensiu lupu) a problem je, ze excel vzdy lipne na poslednom riadku z toho zoznamu, cize je to dole a zakazdym sa musim posuvat hore na zaciatok listu.
Potreboval by som to makro upravit tak, aby sa aj bunkovy kurzor excelu dal prinutit, aby spocival na jednej hornej bunke (napr. A1, alebo na tej kde je tlacitko Make list).
Dalo by sa ?
Dik

Private Sub Workbook_Open()
Sheets("Sheet List").Activate
ActiveWindow.ScrollRow = 1
End Sub

Ked si chcem oddychnut od mysi a pouzivat excel bez nej a otvorim si ten subor s vela harkami, chcel by som sa presuvat do danych harkov od-enterovanim na danej kurzorovej bunke v zozname.
Tzn. otvorim si subor, stlacim CTRL+Home, sipkou dole - zoznamom dole a enter. Ale enter urobi, ze prejde na dalsi riadok.

Je mozne upravit v tom jednom harku spravanie excelu, ze stlacenie enteru na zoznamovej bunke, bude znamenat to, akoby som tam stlacil lavym mysitkom ?

Dakujem

V nastaveních Excelu máš volbu, co má kurzor po stisknutí Enter udělat. Když si nastavíš aby zůstal v buňce, tak tam zůstane.

Pozrel som si to cele, ale nesplna to moje poziadavky pretoze:
- ak to nezafajknem, po od-enterovani ostane bunkovy kurzor na svojom mieste, ale aj bez akejkolvek aktivity
- zmeni to vsade, ja potrebujem len v jednom harku
- tym nastavenim sa neda prinutit, aby robil klik, ako napr vo windowse