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.

Teraz ked som preniesol vsetky harky do spolocneho zosita, narazil som na problem, ze dlzka nazvu harka je dost obmadzena na to, aby sa dalo plnohodnotne pomenovat vsetky harky pre ich rozlisitelnost v zozname.
Tak ma napadlo, ze ci by sa nedalo upravit makro, aby aj s tymi sucasnymi bunkami, presuvalo aj ob-susedne bunky, kde si napisem poznamky k tomu.

Pre istotu nechcem, aby to presuvalo cele riadky, ale radsej iba bunky v zozname s nazvami harkov + ob-susedne bunky s komentmi.

Prikladam finalny subor, ktory budem pouzivat a naznacil som v nom ako by to mohlo byt.

Dik moc

stale potrebujem

A s čím konkrétne nevieš pohnúť?

Ako zvycajne. Neovladam makro vba programming ani trosku. Prosim o napisanie celeho riesenia.
Ale ide len o modifikaciu toho, co uz siki porobil.
Stiahni si ten subor je to tam naznacene. Opakujem, co som uz vyssie napisal:

potrebujem zviazat pozicie komentovych buniek k poziciam zoznamovych buniek. Teda ked zmenim poradie sheetov v subore a kliknem na Make list, aj komentove bunky sa presunu - palalelne k zoznamovym k prisluchajucemu harku.
Nechcem aby sa menili cele riadky ale iba konkretne bunky.

cize:
Make list

sheet1 koment1
sheet2 koment2
sheet3 koment3

zmena poradia:
Make list

sheet1 koment1
sheet3 koment3
sheet2 koment2

bunka koment3 a koment2 si uspesne vymenia pozicie prisluchajuc k ich sheetu.
Teraz to tam vobec nie je implementovane, cize ak sheety v zozname zmenia poradie, komentove bunky ostanu na svojej pozicii bezo zmeny

Dakujem

Napr. ak bude ten komment na kazdom liste v bunke A1, tak si myslim ze staci pridat za
Cells(i + 1, 1) = Sheets(i).Name
novy riadok:
Cells(i + 1, 2) = Sheets(i).Cells(1,1)
pisem o to mmakre ktore si pastol vyssie, netahal som xls.

Sub Sheet_lister() 
    Dim ceLL As Range 
    Dim i As Long 
    Dim Button1 As Object 
    Dim Button2 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 "Sheet List" Then Exist = True: Exit For 
    Next 
    If Exist = True Then 
        With Sheets("Sheet List") 
            .Activate 
            .Columns(1).Clear 
        End With 
    Else 
        Sheets.Add before:=Worksheets(1) 
        ActiveSheet.Name = "Sheet List" 
         
        With Range("A1") 
            Set Button2 = ActiveSheet.Buttons.Add(Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height) 
        End With 
         
        With Button2 
            .Name = "Button2" 
            .OnAction = "Sheet_lister" 
            .Characters.Text = "Make list" 
            .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:="'" & Replace(ceLL.Value, "'", "''") & "'" & "!a1", ScreenTip:="Click to move to sheet", TextToDisplay:=ceLL.Value 
    Next 
     
    Range("A3:A" & Cells(Rows.Count, "A").End(xlUp).Row).Font.Underline = xlUnderlineStyleNone 
     
     
    Application.ScreenUpdating = True 
    Sheets("Sheet List").Activate 
End Sub 
 
Sub Back() 
    Sheets("Sheet List").Activate 
End Sub 

Ano v tom pridas za ten riadok ten dalsi riadok a bude to brat kommenty z A1 bunky na sheetoch. Teda ak tam v tomriadku nemam nejaky error :)

Ale komenty zacinaju v C1 a nizsie (hore je obrazok)
teda hovoris ze nieco mam nahradit inym, ci nanovo pridat ?

Precitaj si este raz co som pisal a pomaly.

1. kommenty ktore si dopisujes k zoznamu ti ziadne makro nebude spravovat, ptz ich to makro nevytvorilo. Je to jasne?
2. kommenty si mozes davat na jednotlive listy, potom ich moze makro davat na zoznam automaticky. Je to jasne?
3. ak budes mat kommenty na jednotlivych listoch (na kazdom sheete v bunke A1 bude tvoj KOMMENT pre dany sheet) tak do makra za ten riadok ktory som napisal pridas dalsi riadok ktory som napisal. A makro bude automaticky vytahovat kommenty z kazdeho sheetu (bunka A1) na ten zoznam. Bunka sa da zmenit Cell(1,1) mozes zmenit na akykolvek iny Cell(riadok, stlpec)

P.S: mozno ten novy riadok bude treba takto: Cells(i + 1, 2).Value = Sheets(i).Cells(1,1).Value

To je problem. Pokial to spravne chapem, navrhujes, aby som komenty vpisoval dovnutra sheetu na vopred urcene miesto. Napr.:
Lenze to si nemozem dovolit, lebo kvoli komentu nemozem prerabat uz hotove mega veci v harkoch a tiez pri novom sheete nemozem vsetko predvidat, ze kde to bude najmenej zavadzat.

Když máš tedy problém s umístěním popisu listu do nějaké konkrétní buňky (i když myslím, že třeba umístění v buňce A10000 by vzhled tabulky neohrozilo), nemohl bys na ten popis využít komentáře k buňce?

Človek by mu to aj spravil, napriek tomu, aký je arogantný, veď napokon ide len o "pár riadkov sprostostí" len už vidím, ako mu tam vadia tie červené trojuholníčky komentárov... a že ak náhodou zablúdi myšou nad takú bunku, tak mu tam komentár prekryje nejaký dôležitý text, prípadne mu nenavrhneme dostatočne veľký rám komentára ak tam bude musieť napísať dlhší text, ktorý sa nezmestí do uška hárka.
OK už budem dobrý a dám mu pokoj...
OK daj sem posledný stav ale boh ťa chráň, ak zas budeš frflať a vymýšľať svoje špeciality!!!

A co mu chces spravit, ked to neni mozne spravit?

co navrhujes prosim ta
kuk na moj post o 13:36

Tak chces to riesit ty?!?
Vravim ti, ze daj sem posledny stav (dufam,ze si ho nemodifikoval !!!) a nestaraj sa!
Pises, ze sa tomu nemienis venovat, tak naco ti mam vysvetlovat, co s tym idem robit?
Upozornujem vsak, ze analyzovat to nebudem, len ti doplnim komenty. Ak si si to medzitym dokalicil, tak sorry.
A ked este vyjdes s nejakou blbinou, tak dostanes vystrelovaci dazdnik do analu a otvorim!

Pisal si si s inymi clenmi tejto diskusie, tak odkial som mal vediet, ze chces pomoct ? Aj ked za cenu rypania a vulgarizmov

zas príliš filozofuješ...
čakaj...

Tu máš...
Komentáre sú vždy v bunkách A1 aj keď sú nevidteľné.
Upravíš si ich tak, že klikneš na A1 pravým tlačidlom a dáš upraviť komentáre...
Pozor, akonáhle budeš v komentároch zalamovať Enterom, prenesie sa to zalomené i do hárku so zoznamom, čo asi nechceš...
A už prosím ťa nechaj Excel na pokoji!

Nie je za čo...

A len tak na margo:
Ja som vulgarizmus na teba prvý nepoužil, len som Ti ho vrátil

ok vdaka
1, takze si pripisal tieto 3 riadky. to bolo vsetko co by som o tom mal vediet pre buducnost ?:
prvy:

druhy, treti:

Komenty su v oblasti pouzivanych buniek v harkoch na poziciach A1.

Ak nieco robim s bunkou ako zvycajne, tak sa s tou manipulaciou vezie aj koment. Co je blbe.
2, Da sa nasilu ukotvit ten koment aby ostal iba v tej jednej bunke, bez ohladu na manipulaciu a formatovanie ?

3, Da sa nastavit, aby sa po ocitnuti kurzora na bunke, nezobrazovala ta bublina komentu ?

4, Da sa urobit makrom, aby ked zmenim obsah komentu v harku1 so zoznamom, aby sa tie zmeny automaticky premietli do skutocnych komentoch v harkoch na pozicii A1 ?
Toto by bolo idealne, pretoze hentak upravovat komenty je nachylne na omyly a neprakticke.

dakujem

Sub aktualizace_komentu()
Dim y As Long
Dim new_koment As String

For y = 2 To Sheets.Count
new_koment = Cells(y + 1, 3).Value
    With Sheets(y).Range("A1")
        .ClearComments
        .AddComment
        .Comment.Text Text:=new_koment
    End With
Next y
Columns(3).AutoFit
End Sub

siki som rad ze si dosiel
dik za pomoc

skusil som toto makro pridat na koniec povodneho, aby sa to vsetko naraz porobilo po stlaceni tlacitka Make list.

chybu nepise, ale nefunguje to. Asi to nebude take jednoduche

Uprav si riadok:

Cells(i + 1, 3) = Sheets(i).Range("A1").Comment.Text

na tento riadok sprostosti:

If Not (Sheets(i).Range("A1").Comment Is Nothing) Then Cells(i + 1, 3) = Sheets(i).Range("A1").Comment.Text

a môžeš si z môjho postupu v predošlej odpovedi vynechať riadky týkajúce sa toho riadka (t.j. odrážku 2 a 7)
(t.j. označenie za komentár a zrušenia označenia komentára)

Aké jednoduché, však?
A ostatní z toho robia neviem čo... !

Ok dik
cize toto by mala byt finalna verzia:

Sub Sheet_lister()
Dim ceLL As Range
Dim i As Long
Dim Button1 As Object
Dim Button2 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 "Sheet List" Then Exist = True: Exit For
    Next
        If Exist = True Then
            With Sheets("Sheet List")
                .Activate
                .Columns(1).Clear
                .Columns(3).Clear
            End With
        Else
            Sheets.Add before:=Worksheets(1)
            ActiveSheet.Name = "Sheet List"
            
            With Range("A1")
                Set Button2 = ActiveSheet.Buttons.Add(Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
            End With
    
            With Button2
                .Name = "Button2"
                .OnAction = "Sheet_lister"
                .Characters.Text = "Make list"
                .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
If Not (Sheets(i).Range("A1").Comment Is Nothing) Then Cells(i + 1, 3) = Sheets(i).Range("A1").Comment.Text
Columns(1).AutoFit
Columns(3).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:="'" & Replace(ceLL.Value, "'", "''") & "'" & "!a1", ScreenTip:="Click to move to sheet", TextToDisplay:=ceLL.Value
Next

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


Application.ScreenUpdating = True
Sheets("Sheet List").Activate
End Sub




Sub Back()
Sheets("Sheet List").Activate
End Sub




Sub Update_comments()
Dim y As Long
Dim new_comment As String

For y = 2 To Sheets.Count
new_comment = Cells(y + 1, 3).Value
    With Sheets(y).Range("A1")
        .ClearComments
        .AddComment
        .Comment.Text Text:=new_comment
    End With
Next y
Columns(3).AutoFit
End Sub

1, Pri testovani: Ked pridam novy koment, aplikujem sikoho makro, vymazem koment, aplikujem sikoho makro. Nemalo by v danom harku ostat nic, ale vidim:

Da sa makro upravit, aby si po sebe upratalo bubliny bez obsahu ?

2, V praxi, ked sa vratim k mojmu suboru po dlhsom case, moze sa lahko stat, ze okomentujem zopar novych harkov a zabudnem spustit sikoho makro predtym ako stlacim Make list.
Dalo by sa sikiho makro nasilu implementovat dovnutra tlacitkoveho makra, aby pri stlaceni tlacitka Make list, este predtym ako ten list urobi, aby aplikoval sikiho makro ?

vdaka

1) Uprav Sikiho kód nasledovne:

Sub Update_comments()
Dim y As Long
Dim new_comment As String

For y = 2 To Sheets.Count
new_comment = Cells(y + 1, 3).Value
    Sheets(y).Range("A1").ClearComments
    If new_comment <> "" Then
        With Sheets(y).Range("A1")
            .AddComment
            .Comment.Text Text:=new_comment
        End With
    End If
Next y

Columns(3).AutoFit
End Sub

A vravel som Ti, že v budúcnosti už nemá význam opakovane aplikovať toto makro ale môžeš, keby si pridal väčšiu dávku nových hárkov bez komentov v A1.
Ale musíš zas spustiť nezávisle, že prečo, viď bod 2

2) Nečítal si pozorne. Načo by si to implementoval? Vieš čo by to robilo?:
Vyčítalo by to komenty z buniek A1 jednotlivých hárkov a opätovne ich poprepisovalo za to isté. Aký to má význam?
Vravím Ti: v budúcnosti začni tým, že do nových hárkov pri ich vytvorení hneď založ do A1 koment!
Keď chceš dodatočne v budúcnosti doplniť alebo opraviť komenty v bunkách A1, doplň ich rovno do svojich hárkov. Potom aktualizuješ zoznam tlačítkom.

Hotovo!

Nie nie
ved predsa sikiho makro funguje tak, ze ak ja urobim zmenu komentu v prvom harku(tam kde mam zoznam a tlacitko Make list), tak sa to prenesie-ulozi do daneho harku na poziciu A1. Nie opacne ako si to ty pochopil.
A o to ide, ja potrebujem komentmi rozlisit harky v zozname. Teda komenty ma zmysel vytvarat iba v tom zozname, aby sa dalo porovnavat.
Cize napisem koment do C stplca a ked stlacim Make list, chcem aby sa to zapisalo do A1 v danom harku, ktoreho sa to tyka.

Veď to robím!
A nejde o žiadne porovnávanie, ide o priradenie

Neanalyzuj, konaj!

"Veď to robím!"
- teda mam pockat na dalsiu upravu ?

Ďalšia úprava nebude

Na kieho koňov by si vytváral nanovo komenty v prvom hárku?
Toto Ti má ušetriť jednorazovú prácu pri prvotnom naplnení komentov do jednotlivých hárkov.
Upravené Sikiho druhé makro "Update_comments" ich potom naloží do buniek A1 v jednotlivých hárkoch.
Keď budeš chcieť zmeniť koment v niektorom hárku, TAK UŽ HO BUDEŠ MENIŤ V TOM HÁRKU!!!!!

Ale ok, môžeš to použiť nanovo, keď Ti zas pribudne dávka nových hárkov bez komentov v A1, ALE:

Každopádne najprv zaktualizuješ zoznam tlačítkom, ručne dopíšeš do stĺpca C komenty kde neboli alebo chceš zmeniť a použiješ "Update_comments"

Podstatné je ale to, že to musí byť urobené nezávisle, nie začlenene do programu, ktorý Ti robí zoznam, lebo by si si tie ručne dopísané komenty zničil tým, že by boli hneď prepísané vytvorením zoznamu so starými (prípadne prázdnymi) komentami, chápeš?

Ako Ti to ešte povedať?

Vobec si ma nepochopil.
Cely ucel tohto vsetkeho tykajuceho sa komentov je:
- komenty si vzdy pisem v prvom harku tzv. zoznamovom harku.
- komenty skovane v nejakom konkretnom harku na pozicii A1 pre mna nemaju vyznam, lebo su tam skovane a ja ich potrebujem vidiet v zoznamovom harku kde su vsetky pokope. Cize tam(A1) su len pre ucely makra, aby sa to vobec nejako dalo urobit. Su tam ako vedlajsi produkt !
- tlacitko Make list, chcem pouzivat aj na 'ukladanie' komentov do svojej domovskej pozicie A1 v harkoch. Cize sa to musi udiat skor, ako sa vytvori zoznam, aby sa neprepisali nicim alebo predoslym ako si napisal vyssie.
- vzdy ked napisem novy koment do prazdnej bunky v C stlpci, zmazem koment, zmenim koment;; tak pri stlaceni tlacitka Make list, sa aktivuje sikiho makro Update_comments(), urobi svoju pracu a potom sa aktivuje makro Sheet_lister(). Cize velmi logicky, prakticky, efektivne vyriesene. Tak ako to prosty rozum kaze od zaciatku, len v exceli sa to neda tak lahko porobit.

Vobec si ma nepochopil. Do zoznamu sa ti budu natahovat tvoje komenty, vycitane z jednotlivych harkov! Ked uz v harkoch budu!
Zoznam nie je na to, aby si odtial zadaval komenty. Siki ti pomohol tie komenty priradit k harkom. Ano, je to pohodlnejsie naplnit odtial, ked nabiehas na tento styl prace a prvotne by si mal vela prace preklikavat sa po harkoch a doplnat komenty. Ale ked zakladam novy harok, tak ho uz rovno vybavim aj komentom! Len kvoli tomu, ze sa ti neda pouzit dlhsi text pre nazov harka! Takze ty predsa uz pri zakladani noveho harka vies, aky tam chces koment tak preco ho tam hned nezadat?
Napriek tomu som ti povedal, ze to mozes pouzit aj inokedy, ale popisal som ti postup a dovod. Ja to prerabat kvoli tvojej pohodlnosti nebudem...
Aj doteraz, co som ti popisal, tak len kvoli tomu, ze to bolo len urcite "odladenie nedokonalosti" ale myslim, ze takto ti to uz musi fungovat. Dalej to uz neriesim. Odovzdavam stafetu dalsim zaujemcom o spolupracu s tebou.

Ok budem cakat na dalsieho spolupracovnika.

Ale stavim sa, ze keby si to mal robit takto ako je to teraz, rychlo by ta to omrzelo. Plus fakt ze po pracovnej odmlke so suborom, by si zabudol manualne aplikovat sikiho makro. Lebo naco, ked sa to da spravit rozumnejsie, co paradoxne nechces urobit, lebo vyhovorka pre moju pohodlnost.

Tak isto by sa mohli vyhovorit programatori IDE-ciek programovacich jazykov. Lebo sak kod sa da kludne napisat aj vo windowsackom .txt, tak naco by robili nadstandartne fíčury ....

A jeje opičkuješ po heavenlee?

Spravil som chybu, ked som sa dokopal do druhej serie pomoci pre teba.
Si arogantny nevdacnik.
Ubezpecujem ta, ze viac sa mojej pomoci nedockas.

napadá ma, že vypnutie indikátorov komentárov je vec nastavenia aplikácie, nie súboru, takže si to budeš musieť asi vypnúť sám...

Indikator komentaru je ten cerveny trojuholnik ?
Aj ked ho skryjem stale sa bude viezd s bunkou(ten komentar)

ano, úlohou komentára je poskytovať informáciu k tej bunke, takže s tou bunkou ostane stále, kým ho nezrušíš.
Tak si ujasni, či to chceš alebo nie... Ale to sa už budeš musieť pýtať iného.

Lebo teraz ked presuniem tu bunku s komentom inde, vratim sa k zoznamu, dam Make list, tak sa posaha cele makro a nefunguje to uz

Tak nepresuvaj tu bunku inde. OMG.
Ked chces mat tie kommenty automaticky v zozname, tak musia byt niekde v tych sheetoch. Inac sa to zviazat so sheetom neda (resp. neviem o tom)

Ok, ale tiez to plati aj pri kopirovani. Oznacim ju, skopirujem a mam tam aj koment.

Inak pravym som na to klikal a nenasiel som nic ako zakazat pop up tej bubliny alebo cerveneho trojuholnicka

Bol by si ochotny to so mnou dokoncit ?

Komenty skryt sa mi podarilo a aj tie trojuholnicky ale globalne vsetky naraz
http://www.officetooltips.com/excel/tips/how_to_hi de_display_comment_indicators.html
Co je problem, pretoze v jednom harku mam napisane komenty k vzorcom ako rataju a je to tam treba. Nie je tam miesto vedla niekde, kde by sa to napisalo klasicky do bunky.

Ach Boze...

Ešte existuje možnosť mať tú tvoju poznámku uloženú v makre toho listu, ku ktorému patrí. Definuješ si tam Public funkciu pomenovanú napr. GetDescription, ktorá vráti text poznámky, a potom ju už len budeš (dynamicky) volať. Takže poznámka nemusí byť v bunke alebo v komentári, ale v makre. Nič zložité.

Reagoval sem na toto:

Da sa urobit makrom, aby ked zmenim obsah komentu v harku1 so zoznamom, aby sa tie zmeny automaticky premietli do skutocnych komentoch v harkoch na pozicii A1 ?

Robert má pravdu pokud však trváš na spuštění makra (Update_comments) před vytvořením seznamu stačí vložit jeden řádek kódu do:

If Exist = True Then
Call Update_comments
With Sheets("Sheet List")

Děláš to však na vlastní riziko !!!

stačí ak zmení poradie hárkov a obslúži tlačidlo a má to v prdeli ale kto chce kam, pomôžme mu tam...

Je to loteria ? Co by sa mohlo zle stat, nerozumiem.
Ak vravis, ze to nie je dobre, dalo by sa co navrhol Los ?

"Ešte existuje možnosť mať tú tvoju poznámku uloženú v makre toho listu, ku ktorému patrí. Definuješ si tam Public funkciu pomenovanú napr. GetDescription, ktorá vráti text poznámky, a potom ju už len budeš (dynamicky) volať. Takže poznámka nemusí byť v bunke alebo v komentári, ale v makre. Nič zložité."

dik

Makro sem psal jen pro aktualizaci komentářů, podle Tvého požadavku. To znamená, že provedeš změnu komentáře a ručně (klávesovou zkratkou) spustíš makro. To jak se to bude chovat při každém vytvoření seznamu si budeš muset otestovat sám.

To co navrhuje Los není složité pro Losa. Já sem se s tím nesetkal, tudíž netuším jak na to. Budeš muset počkat na něj.

To je problem, lebo on sa tu niekde uz vyjadril, ze ziaden kod uz pisat pre mna nebude

A dal som tam ten novy riadok. Nenapisal si odsadenie. Tak som to skusil takto:

aj takto:

Komenty to zachova, ale uz si nedrzia svoju poziciu vzhladom na svoj harok v zozname.

up

up

up

Ešte jeden nezmyselný príspevok podobného typu a vlákno zamknem.

Namiesto upovania si vytvor na kazdom liste makro s public funkciou nazvi si ju jak chces (trebars GetDescription), jak ti pisal los. Funkcia len vrati string.

P.S> a zabudni na to ze si budes editovat kommenty na prvom liste. Vymyslas si uplne gebuziny, naprogramuj si normalnu aplikaciu, ta bude robit presne to co chces, a ne znasilnovat excel.

Ale to by predsa mal zas povinnost vybavovat jednotlive listy makrami! On proste nemieni mat dalsiu pracu, len si upravit komenty na harku zoznamu. Sikiho makro update_komments by sa dalo upravit, aby kommenty pridelovalo nie doradu ale podla nazvov harkov, co vsak znamena preverovanie existencie harka... A ked zisti neexistenciu, tak dotaz, ci s tym suhlasi a pod a pod a pod. A ked mu niekto pre jeho pohodlie bude venovat svoj cas, tak ho odmeni tak, ze jeho pracu a vedomosti nazve ako par riadkov sprostosti. On proste ziadnu namahu vynalozit nemieni... Sice som mu tymto zas spravil "up" ale vidim, ze uz konci a ak sa mieni takto spravat, tak uz aj jeho meno bude podnetom na ignorovanie dotazu. Ak aj zmeni meno, myslim, ze uz ho spozname...

Pockaj teraz nechapem. Los napisal, ze sa to bude dat ak:
"Ešte existuje možnosť mať tú tvoju poznámku uloženú v makre toho listu, ku ktorému patrí. Definuješ si tam Public funkciu pomenovanú napr. GetDescription, ktorá vráti text poznámky, a potom ju už len budeš (dynamicky) volať. Takže poznámka nemusí byť v bunke alebo v komentári, ale v makre. Nič zložité."
Ty si to tiez napisal:
"Namiesto upovania si vytvor na kazdom liste makro s public funkciou nazvi si ju jak chces (trebars GetDescription), jak ti pisal los. Funkcia len vrati string."
Ale potom si napisal, ze nebudem moct pisat poznamky v prvom liste, aby sa ulozili to makra a potom z makra vytiahli, ked sa bude robit list tlacitkom Make list.
Lenze to je nutnost vyriesit to tak, aby som mohol komenty upravovat v zoznamovom liste. Inac to cele strati zmysel.

robertko napisal nizsie ze:
"Sikiho makro update_komments by sa dalo upravit, aby kommenty pridelovalo nie doradu ale podla nazvov harkov, co vsak znamena preverovanie existencie harka... A ked zisti neexistenciu, tak dotaz, ci s tym suhlasi a pod a pod a pod."
Z toho ale neviem posudit ako to myslel, ci sa to da alebo neda.

Este ma napadla taka vec, ze ak je skutocne pravda, ze navrhovane riesenie Losom, by znamenalo manualne vytvorit v kazdom novom harku nove makro, tak nebolo by mozne napisat makro aby to robilo same ?
Ze bude zvlast makro na to, ze ked sa objavi novy harok v zosite, automaticky sa k nemu priradi to vseobecne makro, ktore bude mat na starosti uchovavanie komentov.

Dobry napad, co povies MM ?
Ale stale musi platit, ze editujem komenty vyhradne v prvom harku.

Obavam sa, ze tu ti uz ziadne makro nikto neurobi...
Takze moja posledna (a vobec nie ironicka) rada:
Na vsetko zabudni, urob si zoznam harkov manualne, pricom si tie harky v zozname nazvi ako len chces (aj s apostrofmi) a manualne si ich naviaz hypertextovymi odkazmi na prislusne harky. A vsetko ostatne bude zalezat na tvojej inteligencii narabania s obycajnym zositom excelu xlsx.
Zbohom!

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