Příspěvky uživatele

A nemohli by ste poskytnúť prílohu na vyskúšanie a prezretie makro procedúr ?

OT: Akékoľvek upozornenie na chybu, by mal človek brať ako pomoc/radu. Možno sa to niekedy zle počúva (číta), ale s odstupom času, si (snáď) každý uvedomí, že mu aj keď možno nešťastnejšími slovami podaná rada/pomoc/výtka/upozornenie, niečo priniesla. Tak to beriem. Tak sa predsa učíme celý život:

V škole : Ferko, 2+2 nieje 5, ale 4.
V puberte : Fero nelez na plot, lebo si nabiješ držku.
V práci : Fero, Ty d..l, nestláčaj to červené tlačítko!
V domove dôchodcov : Pán František, pomaličky po tých schodoch, chcete sa nám tu dolámať?
V márnici : No vidíš Ferko, bolo ti treba prechádzať cez tú cestu...

PS: Keď tu vidím niektoré EXCELentné riešenia od skúsených borcov, a ja som si stým lámal makovicu, tak si pripadám ako úplný blb. Tomu verte. Ale to vôbec nevadí, ja mám Excel iba ako príležitostné hobby.

Takže v pohode, ale kto toto tu bude čítať ...

Niekedy sú odpovede dosť narýchlo, a keď človek raz za mesiac či dva skúšobne použije Select, okamžite ho kameňujú. Au.

Nikto niesme (chvalabohu) neomylný.
Sub SkocNaDatum3()
Dim V
On Error Resume Next
With Worksheets("List1")
V = WorksheetFunction.Match(Format(Date, "d.m.yyyy"), .Rows(1).Value, 0)
If Err Then MsgBox ("Dátum " & Date & " sa na List1 nenachádza.") Else Application.Goto .Cells(1, V)
End With
End Sub
Aby niekto nepovedal, že Application.Match je pomalšia ako WorksheetFunction.Match, tak som to vymenil a adekvátne zmenil odchyt chyby. Pridané zjednodušenie With a samozrejme podnet na opravu od xlnc.

Nieje nič zlé na tom, ak užívateľ chce tlačítko namiesto aktívneho textu. Naozaj nič. Tlačítko je oproti aktívnemu Shape do očí bijúce, a každý okamžite očakáva udalosť. To že tlačítka vyzerajú predpotopne, no kvôli tomu novú Class vytvárať nebudem. Ak chce niekto GlassButton, nech si vloží obrázok z netu, či vytvorí v PS, a aktivuje.

OT: Či sa bude v dnešnej dobe pýtajúci sa snažiť prísť veci na kĺb? Máte opäť pravdu, je to naivná idea. Teraz nemám na mysli konkrétne užívateľa Merlin99. Dnes, keď má každý možnosť napísať dotaz na 10 fór, kde mu dobrovoľníci zadara tŕn z päty vytrhnú, tak v 50% prípadov to dopadne tak, že sa ani neunúva odpovedať, nieto ešte študovať riešenie.
Kde sú tie časy keď som sa učil Basic z časopisu Elektrón, a keď som úplne sám naprogramoval v Assemblery na PMD-85-3 môj prvý skutočný program, obrovské digitálne hodiny, pamätám si aký som bol šťastný, pyšný, a áno aj "obdivovaný". Dnes je to iné ... Neviem, či prichádzate do styku s mladou dženerejšn, ak nie, tak verte, že by ste sa divili, aké sú predstavy mladých o tom, čo všetko musia dostať, okamžite, zadara, všade, vždy, a čo oni nemusia (učiť sa už vôbec nie). Asi do smrti budem spomínať na mladého administrátora, ktorý za svet nevedel dostať pár mailov z jedného do druhého PC.
Nikto z neba múdry nespadol, ale nie každý by musel do neba aj hlúpy znova vystúpať. Takže, ak je aspoň nejaká odozva od užívateľa, hneď to beriem pozitívne.

To je presne to čo mi nešlo, transponovať vnútorné vzorce. Treba na to ísť len inak, a ono to ide krásne. Palec hore.

To čo som Vám minule poslal funguje či nie ? Teraz som to doplnil o roslišovanie, či sa jedná o prázdnu bunku H alebo 0, previedol na ExcelTable. Pridávanie vzorca v G funguje automaticky, vyhodnocuje to správne, tak neviem, podľa mňa OK.
Tým makrom si môžete naformátovať aj ExcelTable, nemusí byť farebná, zvýraznená ob-riadok, ani mať filtrovacie tlačidlá, ani orámovanie..., stĺpce môžu mať inú šírku alebo rez písma.

Ak ExcelTable nechcete, a chcete mať dynamické pridávanie toho vzorca, tak jedine použitím Worksheet_Change metódy, v ktorej si podľa toho ktorý riadok bol pridaný vyplníte vzorec. Chcete aj toto predviesť ?

Na liste B je v I1 teraz aktuálny dátum vložený funkciou, ak si tam chcete napísať iný dátum, len funkciu prepíšte iným dátumom.

@Tartyf: Skúste toto. Vysporiada sa to aj s hromadnou zmenou. Posledné AKTIVACE sú vždy na konci. Na konci makra si len zvoľte či to chcete mať na druhý list, alebo na ten istý (v tomto prípade premiestnite apostrof z toho Cells... na to Worksheets...).

@marjankaj: "nová záložka" Tartyf tým myslí nový list.

@xlnc: uživateľa Pitr tiež nechápem.

@Pitr: Skúste dať prílohu. Váš popis je pre Vás zrozumiteľnejší ako pre nás.

@xlnc: Dobrý návrh. Ak bude vyhovovať takéto riešenie, tak tu je jeden návrh:
=HYPERLINK("#'List1'!"&ADDRESS(1;MATCH(TODAY();List1!$1:$1;0));"Skok na List1")

Tak ?
Ak áno, tak si môžete previesť tabuľku na ExcelTable, a ten vzorček Vám bude samé pridávať do nových riadkov.

alebo niečo takéto bez cyklu:
Sub SkocNaDatum2()
Dim V
V = Application.Match(Format(Date, "d.m.yyyy"), Worksheets("List1").Rows(1).Value, 0)
If IsError(V) Then MsgBox ("Dátum " & Date & " sa na List1 nenachádza.") Else Worksheets("List1").Activate: Worksheets("List1").Cells(1, V).Select
End Sub

Public wbPracovni As Workbook

Sub pok1()
Set wbPracovni = ThisWorkbook
End Sub

Sub pok2()
MsgBox wbPracovni.Name
End Sub

To nastavenie premennej urobte rovno v Workbook_Open
Ale prečo nepoužijete rovno volanie ThisWorkbook namiesto wbPracovni ?

PS: A naplnenie môžete robiť pri otvorení zošita
Private Sub Workbook_Open()
Call pok1
End Sub

Presne tak, skopírovať si najmä dlhší príspevok pred odoslaním, je veľmi dobré si osvojiť. Veľa krát pomohlo. Ale zase na druhej strane tu nie sú reklamy - zatiaľ.

No to nepôjde, pretože to je proti logike filtra. Ja som to čo požadujete sprevádzkoval tak, že som druhý list vôbec nepoužil. Stĺpce C:I som skopíroval do listu 1. Na A1:J1 som aplikoval štandardný filter (klik na lievik). Potom v C1 kliknite na šípku - Clear - AK. A máte to, môžete vypĺňať relevantné dáta v ostatných stĺpcoch. Ak chcete zobraziť/upravovať iné alebo všetky, tak opäť klik na šípku v C1 a Select All alebo Clear - FR (alebo čokoľvek iné).
Iba takto Vám ja dokážem pomôcť.
PS: Názov mesiaca by som vymenil s prvým riadkom, aby sa nevyfiltrovával.

OT: Keď už sa niečo dostane do červených čísel, tak za to väčšinou môže management

Podľa mňa bude potrebné, aby aj tie ostatné stĺpce boli v tej zdrojovej tabuľke v prvom liste.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje