• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Takže sa musí z "Datum zaúčtování" zistiť rok a mesiac, a v riadku daného roku a mesiaca pripočítať k už doteraz naspočívavanej sume? Teda napr. v.r. 5614843 patrí do listu "NB 2" čo je vlastne inak pomenovaný "NE 2". V ňom pre záznam z 3.11.2022 platí, že prepíšeme bunku C19 na 3.11.2022 a bunku D19 na 1375,00. A nemôže nastať situácia, že v bunke C19 alebo D19 už budú dáta? Ak môže, a dáta tam už budú, "částka" sa má zrátať/prepísať? A čo v prípade rozdielneho dňa v mesiaci, to fakt neviem. Alebo ako to teda. To pole "platba č." neznamená mesiac? V tom prípade je strašne nevhodné v prílohe použiť pre každý rok čísla 1-12.

=LEN(A2)-LEN(SUBSTITUTE(A2;"|";""))
=DÉLKA(A2)-DÉLKA(DOSADIT(A2;"|";""))

V tom prípade som Vás zase nepochopil. Tu sú 2 príklady pomocou COUNTIF a SEARCH/HLEDAT. (maticové vzorce: Ctrl+Shift+Enter)
=IFERROR(INDEX(VYROBCI;MATCH(TRUE;COUNTIF(A1;"*"&VYROBCI&"*")>0;0));"")
=IFERROR(INDEX(VYROBCI;POZVYHLEDAT(PRAVDA;COUNTIF(A1;"*"&VYROBCI&"*")>0;0));"")
=IFERROR(INDEX(VYROBCI;MATCH(FALSE;ISERROR(SEARCH("*"&VYROBCI&"*";A1));0));"")
=IFERROR(INDEX(VYROBCI;POZVYHLEDAT(NEPRAVDA;JE.CHYBHODN(HLEDAT("*"&VYROBCI&"*";A1));0));"")
Je to iba príklad, určite existujú ďalšie možnosti poskladania funkcií (napr. s pomocou MIN() a ROW()/ŘÁDEK().

Takže to nie je táto téma. Mali ste dať otázku do danej témy, alebo pridať odkaz na danú tému alebo prílohu. Automaticky som predpokladal nasledovné:
-Pod exportom si v drvivej väčšine predstavujem export dát a iba dát. Teda bez tlačítok, bez makier. Teda mažem všetky tlačítka. Preto
Dim btn As Button
For Each btn In ActiveWorkbook.Worksheets(1).Buttons
btn.Delete
Next btn
-Predpokladám, že hovoríte o tejto téme, a teda predpokladám tlačítka spomínané v tejto téme. Preto
ActiveWorkbook.Worksheets(1).Buttons(Split(NAZVY & ",btnReset", ",")).Delete
-Export listu sa robí väčšinou (záleží prípad od prípadu) pomocou .Copy listu, a následnom mazaní ovládacích tlačítok z aktívneho novovytvoreného zošitu. Preto
ActiveWorkbook...

Vy ale obchádzate všetky predpoklady, neupozorníte na inú tému, neodkážete na prílohu, nespomeniete názvy tlačítok.

Takže.
1. Ak poznáte názvy tlačítok (Nájsť a vybrať - Tabla výberu)
NejakýZošit.NejakýList.Buttons(Array("Button 1", "Button 2")).Delete
2. Ak nepoznáte názvy tlačítok, alebo neviete ich počet
Dim btn As Button
For Each btn In NejakýZošit.NejakýList.Buttons
If btn.name<>"toto tlačítko nemazať" Then btn.Delete
Next btn

Čo znamená ?

Žiadny export sme predsa neriešili. Každopádne buď vymažte menný zoznam (ak ho viete):
ActiveWorkbook.Worksheets(1).Buttons(Split(NAZVY & ",btnReset", ",")).Delete
alebo vymažte všetky nájdené tlačítka na liste (ak neviete ich názvy a počet):
Dim btn As Button
For Each btn In ActiveWorkbook.Worksheets(1).Buttons
btn.Delete
Next btn

???

Takže to nie je dátum. Je to text uložený vo formáte Všeobecný. A ten sa snaží Excel rozpoznať. A rozpozná ho ako dátum. Buď text naformátujte ako Text, alebo namiesto
.Value = .Value
použite
.Copy
.PasteSpecial Paste:=xlPasteValues

Môžete priložiť nejaký príkladový súbor? Mne to s formátom nič nerobí (mena, desatinné číslo, dátum, ...).

Ctrl+H, zaškrtnúť "Hľadať zhodné bunky", Nájsť všetky, Ctrl+A, Zavrieť, Delete
Ak to prenášate vzorcom, prázdna proste nezostane.

Maličká zmena...

A na ktorom riadku to zostane stat?

OT: V tomto príspevku som naspodu v časti OT vysvetlil prečo mi radšej nick neskoňujte. To "slov" vynechajte, použite iba Elnino - to sa dá skloňovať

Tak podmienený formát si už nejako vypodmienkujte. napr. takto. Len presne bude záležať od ktorého riadku začínajú data, či je medzi dvojicami medzera, a pod. To všetko je pre PD podstatné.

Tak niekam vhodne, napr. pred
Posledni = .Cells(Rows.Count, 1).End(xlUp).Row
vložte riadok
.Range("A:TV").EntireColumn.Hidden = False

Ak chcete pridať tlačítko, musíte mu nastaviť meno. Karta "Domov" - vpravo "Nájsť a vybrať" - "Tabla výberu". Tam som ich pomenoval "btn1", "btn2", ... aby sa dali v makre jednoducho identifikovať. Ak chcete meniť počet tlačítok, dá sa to urobiť aj tak, že iba nove tlačítko pomenujete tak, aby boli všetky tlačítka o ktoré sa jedná, rovnako pomenované, a makro si ich nájde samé, keď budú spĺňať nejakú podmienku, napr. názov začína na "btn". Chápeme sa?

To zaskrolovanie+označenie poslednej bunky v A sa dá urobiť aj tak, že sa zistí viditeľná oblasť listu (pretože môže byť okno rôznej veľkosti, zoomu apod), a zaskroluje sa tak, aby bola tá označená bunka na spodku viditeľnej časti. Lebo teraz je na vrchu, a tie bunky nad ňou nevidno. Teraz som to dal tak, aby ostalo viditeľných 5 buniek nad ňou.

Keďže sa tie názvy používajú na 2 miestach, tak som urobil na začiatku konštantu, a stačí zmeniť iba tú jednu.

Odstránil som tie komentáre, čo ste tam mali, lebo mi to stále písalo, že súbor obsahuje nejaké problémy. Už je to OK. Tak si ich prípadne doplňte.

Dajte vedieť o tej prípadnej zmene tlačítok a počtu stĺpcov na dynamické...

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse