Verzia s kopírovaním hodnôt. Teda funguje aj keď sú tam vzorce. Podmienené formátovanie a SUM je zatiaľ nastavený na 100 riadkov.
Keď do Vášho súboru nalejem vzorce, tak Vám to samotný rozpis prepočíta, aj rozpis kurtov podľa počtu, aj dvojice, tak ako ste to "nastínil". Ale vo vzorcoch sa asi stratíte :)
pred riadok
Application.CutCopyMode = False
dajte
Application.Goto Cells(1, 2)
ale má to Achylovu pätu, keď nebude v Backup liste v 1. riadku posledná bunka zároveň poslednou bunkou smerom vpravo, tak Vám prepíše tie, ktoré sú v ďalších riadkoch viac v pravo. Aj preto je potrebné lepšie špecifikovať dáta.
Inak ak tam máte v A1 vzorec napr.
=SUM(B:D)
=SUMA(B:D)
musíte ho zmeniť na nepriamy odkaz, lebo sa robí vystrihnutie a vloženie, a to zmení vzorec na cieľovú adresu, teda do listu Backup.
=SUM(INDIRECT("B:D"))
=SUMA(NEPŘÍMÝ.ODKAZ("B:D"))
Ako som písal pred tým, dá sa to urobiť mnohými spôsobmi. Ja by som uprednostnil iba kopírovanie hodnôt a zmazanie starých cez .ClearContents. A zároveň by som udržiaval v jednej bunke v Backup (napr. A2) číslo posledného zápisu. Potom by sa ľahko násobkom *3 vyrátal správny stĺpec pre zápis, a nezáležalo by na tom, či sú vo všetkých stĺpcoch dáta, ani na vzorcoch. atď...
Veď presne to robí vzorec od marjankaj. Skúšal ste to vôbec?
EDIT:
Oba vzorce fungujú presne podľa požiadaviek.
-do A1 si dajte nejaký testovaný dátum
-do A2 dajte
v SK
=IF(WEEKDAY(A1;16)=7;A1;A1-WEEKDAY(A1;16))
v CZ
=KDYŽ(DENTÝDNE(A1;16)=7;A1;A1-DENTÝDNE(A1;16))
-do A3 dajte
=INT((A1+1)/7)*7-1
-bunky A1:A3 naformátujte na Dátum
Pri zmene dátumu v A1, dostávate oboma technikami rovnaký výsledok.
OT:
marjankaj napsal/a:
Zdá sa že už to netreba zipovať.Příloha: 35557_zosit1.xlsx (8kB, staženo 9x)
No Data1 reaguje na Vašu zmenu, Data2 na zmenu vzorcom. Presúvajú sa celé stĺpce. Ak chcete iba kopírovať stĺpce, treba upresniť, ak chcete kopírovať iba hodnoty (bez formátovania a pod) treba upresniť, ak nie celé stĺpce, ale iba určité riadky, treba upresniť, ak sa majú vynechať prázdne bunky, treba upresniť, atď...
Plansecur1 napsal/a:
vytvořil jsem kopii DB a odstranil veškeré data s r.č. atd
jak mohu DM nyní poslat?
Keď to máte takto funkčné a zažité, tak nové dáta vkladajte pod staré, natiahnite si vzorze v transformačnom liste, aj v tlačovom, a v tlačovom si dajte v hornom riadku filter, kde si zvolíte obdobie aké chcete. Takt by sa to dalo poriešiť podľa mňa ľahko...
Ne neviem, neviem. Citácia z MS fóra:
...You can't change the color of the selected cell indicator...
Priložte prílohu, ale nie PDF, ale Excelácku.
1. Vytvorte si definovaný názov ZOZNAM, tu je to na liste Data A1:A4
2. Nastavte do Overenie dát, tento ZOZNAM, v tomto prípade pre bunky Tbl C2:C6
3. Do vedľajších buniek si dajte obrázky tak, aby boli celé v bunke, v tomtoprípade do Data B1:B4
4. Označte si bunku s obrázklom 1, Ctrl+C, prepnite sa do listu Tbl
5. Kliknite pravým na bunku, kam sa má prenášať obrázok (napr Tbl G2), vyberte Prilepiť špeciálne - Prepojený obrázok
6. Vytvorte si definovaný názov PREPOJENYOBRAZOK1
=OFFSET(Data!$B$1;IFERROR(MATCH(Tbl!$C$2;ZOZNAM;0)-1;0);IF(ISERROR(MATCH(Tbl!$C$2;ZOZNAM;0));1;0))
=POSUN(Data!$B$1;IFERROR(POZVYHLEDAT(Tbl!$C$2;ZOZNAM;0)-1;0);KDYŽ(JE.CHYBHODN(POZVYHLEDAT(Tbl!$C$2;ZOZNAM;0));1;0))
7. Označte obrázok 1 v Tbl G2, a v riadku editácie vzorcov prepíšte vzorec na "=PREPOJENYOBRAZOK1" bez úvodzoviek
Popis vzorca:
nájde pozíciu zvolenej hodnoty z výberového zoznamu Overenia dát v Tbl C2
ak nenájde, tak je posun bunky Data B1 dole nulový, ale do strany posunie o 1 - teda na prázdnu pozíciu Data C1 (to je kvôli prázdnej položke)
inak posunie odkaz na bunku Data B1 o (pozícia položky -1)
Ako keby ste určoval súradnice, kam sa má pozerať.
Žiaľ mi nefunguje relatívne adresovanie u tejto funkcie. Teda musí sa zadať hľadanie absolútnej bunky Tbl $C$2, nie Tbl $C2
Teda je potrebné toto opakovať pre každý riadok, čo je na prd.
Nechce sa mi zisťovať, prečo na toto nefachá relatívne adresovanie...
Skúste makrom.
Function PocetStran1(REF As Range) As Long
PocetStran1 = REF.Parent.PageSetup.Pages.Count
End Function
Do Googlu si zadajte "free symbol fonts", a choďte na Obrázky, tam si vyberte, a kliknite na "Navštíviť stránku". Ak to bude voľne na stiahnutie tak si stiahnite (alebo kúpte) a rozbalte.
Ja som skúsil narýchlo:
http://www.fontriver.com/
a
http://www.1001fonts.com/
Do Štart napíšte "Písma" a otvorte nájdený adresár. Prekopírujte do neho rozbalený font - ten sa sám nainštaluje (Win10). Použite ho v Exceli (Excel bude treba reštartnúť).
Pridal som tam ešte obrázky PNG, ale nefachá mi relatívny posun, takže som musel urobiť 5 absolútnych - a to je nevýhodné z pohľadu počtu položiek.
.
môžete aj pomocou PF, viď ukážka. Font si nájdite taký, ktorý obsahuje Vami požadované symboly (Wingdings a iné). Ľahko si zistíte aký kód ma daný znak (teda symbol), a potom obdobne ako som ja riešil PF si napr. cez CHOOSE/ZVOLIT nahodíte daný znak.
Dá sa to potom, ak by nebolo veľa riadkov, riešiť aj odkazom na obrázky v inom liste. To tu bolo už tiež riešené X krát.
KT?
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.