Toto asi možné nebude. Chvíľu som sa snažil rozbehať aspoň toto na Label-y, ale nedarí sa mi to - rezignujem.
O koľko prvkov zoznamu by sa malo jednať? Ak o pár, možno by to šlo komplikovane ofajať prekreslením prvkov cez seba s posunom, a odchyt kliku.
Presná príloha.
Ale ten Vlastný formát ste neskúšal na vizuálnu elimináciu 0, všakže nie!
General;;;
zobrazí kladné číslo áno, záporné číslo nie, 0 nie, text nie
General;General;;@
zobrazí kladné číslo áno, záporné číslo áno , 0 nie, text áno
Len slovo "General" bude v CZ asi "Všeobecný" (nie som si istý).
Všetky Vami spomenuté stránky (existujúce) mi fungujú v tom súbore, čo som Vám poslal. Žiadna nevypíše chybu. Iba jedna z nich neexistuje:
www-cns.mkcr.cz/cns_internet/
Na MKCR uvedený link existuje, no nefunkčný.
https://www.mkcr.cz/rejstriky-registrovanych-cirkvi-a-nabozenskych-spolecnosti-a-dalsich-pravnickych-osob-467.html
Priložte Vašu prílohu (anonymizovanú, so zachovaným rozložením, typom dát, formátom, zlúčeniami a pod) !
Urobte kurnik aspoň niekto niekedy na prvý krát, to čo Vám pomáhajúci radí, alebo čo od Vás chce ! Čo teda ten BreakPoint ?
Teraz som to písal aj na iné fórum - onedlho sa Vám na to milí užívatelia, tí pomáhajúci viete čo, ak nebudete spolupracovať na riešení VAŠEHO problému.
OT: Neviem či mám ísť vôbec aj čítať ďalšie témy, aký som dnes nasratý, tak Vás tu budem kosiť do radu ...
Ach ľudia, ľudia, moje chabé nervy ....
Čo znamená "Nefunguje mi to." ???
Vyhodí ten MsgBox "Chyba" ?
Makro sa zastaví na niektorom riadku? (Na ktorom?)
Makro spadne a vyhodí nejakú chybu? (Akú - screenshot)
Otvorí sa prehliadač, ale v nič v ňom nie je?
Otvorí sa prehliadač, ale stránka vypíše nejakú chybu? (Akú? - kód, screenshot)
Otvorí sa iná, ako požadovaná stránka?
Nič sa neotvorí, nič nezahlási, nič nespadne?
Skúste dať na riadok "On Error ..." BreakPoint (klik na ten zvislý obdĺžnik vedľa kódu - bordová značka) a do okna Watches si dajte
ThisWorkbook.ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address
To je adresa bunky, v ktorej sa nachádza ľavý horný roh obrázku, na ktorý ste práve klikli. Je správny?
Začína ten odkaz na "https://" ?
Netreba sa na tú stránku prihlasovať?
Dajte tie linky, ktoré nejdú...
Totálne sa nechápeme. Toto som si včera pripravil, že dnes dokončím, vyskúšajte ale je to NEDOKONČENÉ ....
Nenapadá ma, ako sa mám už pýtať. Vaše popisy sú pre Vás možno jasné a pochopiteľné, keď viete čo robíte, na čo myslíte, a čo chcete. Ja to fakt netuším. Pre mňa je to zmätočný popis. Nejednoznačný. Ako môžete zapisovať do týždňa, ktorý si zvolíte, keď chcete zapisovať do stĺpca C (po novom do D). To nemá s týždňom nič. Nemám teraz chuť čítať celú tému, a vypisovať Vám sem všetky nelogické veci (ktoré sú pre mňa nelogické, pre Vás možno nie) z textu. Napr. "ze kterého sloupce chce zapsat data" - tak buď "do kterého sloupce chce zapsat data" alebo "ze kterého sloupce chce načíst data" ...
2 makrá: Už som to písal. JEDNO - načíta data, DRUHÉ - zapíše data.
Včera som si to +- takto aj načrtol. Doplnil som tam všelijaké kontroly, pretože môže nastať mnoho vecí medzi spustením 2 makier (zmena zdroja, zatvorenie zošitu, zmena listu,...). Spomínal ste, že v reále nebudú tie makrá ani v zdroji ani v dátach, ale v treťom súbore. Ak spustíme makro z iného ako z otvoreného súboru (Application.Run), tak sa ten súbor otvorí. Takže budú otvorené všetky 3? Ja to mám zatiaľ urobené tak, že tlačítka aj makrá sú v tom treťom obslužnom súbore. Nebolo by lepšie pridať do Ribbonu 2 tlačítka, a makrá mať v PERSONAL.XLSB? Makro mám funkčné, len to musím ešte večer vyskúšať.
EDIT: Jáj a ešte niečo. Vy v tom Diff. máte vzorce. Tie sa prepíšu tou zmenenou hodnotou zo zdroja. Ste si toho vedomý?
Nosal, Nosal, čo s Vami ?
To čo požadujete je triviálne makro! To napíšem aj z pamäti bez jediného spustenia. Čo ale naozaj nedokážem - je vidieť do Vašich myšlienok a pochopiť Vás.
"Nosal" napsal/a:
...Potřeboval bych to nahrát do Sloupce C na listu Data, aby to přepsalo tu původní hodnotu do všech řádků v rámci skupiny...
"Nosal" napsal/a:
...Prostě si tam nakopíruje díly, které chce, někde zadá ze kterého týdne chce načíst data a makro bude pracovat jen v souboru Data, vezme data z týdne 44. a nakopíruje je do sloupce C (Diff.) pouze u těch dílů, které našel v soboru, Zdroj (List2)...
"Nosal" napsal/a:
...do sloupce C (Diff.)...
Takže List2 bude jeden SÚBOR, a list Data bude druhý SÚBOR. Budú obidva vždy otvorené? Lebo ak nie, makro bude musieť cieľový otvárať pre zápis, alebo otvárať zdrojový pre čítanie. Ktorý z nich má obsahovať to kopírovacie makro? Nevyjadril ste sa k zoznamu tých týždňov.
PS: Tie nové údaje v stĺpci C v zdrojovom liste/súbore List2, sú imaginárne a to sme si mali domyslieť ?
???
Prvý list sa volá List2. Šmarjá prečo?
Potřebuju nakopírovat vždycky data ze třetího řádku do sloupce C
Takže nejde o čísla, ako ste spomínal, ale o text. V tom prípade asi potrebuje Vlastný formát
General;General;;@
=INDEX(List2!A:A;ROW())
=INDEX(List2!A:A;ŘÁDEK())
Aby sa 0 nezobrazovali, stačí Vlastný formát
General;;;
Skúste to na tom SQL.
Takto ?
Dobré skratky.
Škoda že na ne onedlho zabudnem , ale aj to, že odstránenie nefunguje ak sú za Tabuľkou ešte neTabuľkové data. Ak ide o čisto Tabuľku, tak Odstrániť - Stĺpce tabuľky, ak ide o čisto neTabuľkové stĺpce tak Odstrániť - Celý stĺpec. Ale ak sa prelínajú typy stĺpcov, možnosť je nedostupná. Ale super ShortCut...
Ctrl+Shift+p.šípka ide po najbližšiu vyplnenú hodnotu alebo po koniec (Tabuľky či listu), tak je potrebné skúsiť, čo je posledná vyplnená hodnota a čo je už koniec (Tabuľky či listu).
EDIT:
Tak z oblasti následne urobiť celé stĺpce cez Ctrl+Medzera a potom pklik na ušká stĺpcov a Odstrániť. Vtedy nevadí Tabuľka/neTabuľka :)
Skúste vľavo hore do názvu bunky napísať X:XFD, označia sa Vám, potom kliknite pravý klik na názvy stĺpcov a vyberte Odstrániť. Nepoznám klávesovú skratku na výber od X po koniec v riadku. Iba ak Ctrl+End, ale to Vás hodí iba na koniec riadku, tak musíte aj tak myšou potom ísť na stĺpec X. Možno niekto pozná skratku. Ak to potrebujete urobiť na X súboroch, tak na to môžeme urobiť makro.
Pretože ste urobil Tabuľku na celú šírku Excelu - 16384 stĺpcov. Nechal som Vám 20.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.