Příspěvky uživatele

Ž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é...

Tak toto by som urobil inak. Predpokladám, že v reále namiesto Buňka 1, Buňka 2, ... sú tam nejaké texty. Tak by som to urobil jedným jediným makrom, ktoré by si našlo v 12. riadku správnu pozíciu podľa nápisu na stlačenom tlačítku. Toto uvádzam len jednu z možností. Kľudne sa to dá urobiť na dynamický počet tlačítok, dynamický počet stĺpcov a pod.

Ďalších niekoľko príkladov. To sa dá nakombinovať, rôzne možnosti, presne podľa toho čo makrá robia (nevieme), koľko je tlačítok (nevieme), ako sú rozmiestnené (nevieme), stály/dynamický počet (nevieme), ich názvy (nevieme), podmienený formát, zápis pod tlačítko, zápis do spoločnej bunky, počítanie na základe riadku, ...

Príklad pri každom uložení súboru.

Našiel som si nejaké staršie verzie, no nejako sa mi to zlieva a neviem určiť čo ste zmenil oproti verziám z 14.9.,3x 15.9., 3x 16.9., 19.9. Ale ten posledný ste asi Vy nevidel, tak som sa to pokúšal prerobiť na Tabuľku namiesto tabuľky. Ale väčšinou to končí práve na tom, že ma prestane baviť stále zisťovať logické súvislosti a následne prerábať (a často aj vysvetľovať logické nezmysly). A obávam sa, že niečo také nastalo aj v týchto súboroch, že to prekročilo nejakú medzu a "opustil" som Vás...
Budem úprimný, neviem či sa mi do toho chce.

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje