Příspěvky uživatele

No s tým Vašim súborom som začal teda pracovať, a prišiel som na množstvo čiastkových problémov, a poprerábal som tam veľa vecí. Nechce sa mi to písať všetko. Mám tu rozrobenú verziu, pozrite sa na to, či by to takto mohlo byť, a či ísť týmto smerom. Je tam úplne nový algoritmus zoraďovania oddelení, ktorý už nerozbíja podmienené formátovanie, mali ste tam nesprávne oblasti v súčtoch operácií, teda Vám to dávalo zlé výsledky v niekoľkých súčtoch. Proste kopec vecí.

Ale aj tak mi to príde stráášne zložité. Napr. ak by nemuseli byť tie oddelenia v zadanom poradí, tak by sa dal na zlúčenie (zaradenie novo dopísaných) namiesto tohto relatívne zložitého algoritmu použiť obyčajný filter, a aj tie poradové čísla by sa nemuseli makrom riešiť, mohol by ich riešiť vzorec COUNTIF.

Spočítavanie času mi príde divné. Na jednom liste pripočítate k celým hodinám za jednotlivé oddelenia, aj počet hodín za zvyškové minúty v oddeleniach dokopy. Ale v druhom liste, už s nimi nerátate. Ja by som to prerobil na zadávanie časov vo formáte 3:30, 1:45 v jednom stĺpci namiesto 3 + 30 a 1 + 45 s samostatných stĺpcoch.

Chcete tam počítať skutočne s počtom pracovných dní, alebo tým máte na mysli počet dní mesiaca. To je rozdiel.

Upravené PF, overenie dát, vzorce ... inak vzorce sú robené tak ako sú, kvôli tomu, že na základe vzorcov SUMPRODUCT, formátu súboru, a pod, predpokladám nasadenie v Office 2003, ktorý nemá niektoré novšie funkcie ako SUMIFS/COUNTIFS.

atď...

Vyskúšajte, dajte vedieť. Je to iba rozrobená verzia, pokusy robiť VÝHRADNE NA KÓPII DÁT V SAMOSTATNOM ADRESÁRI, kvôli prepisovaniu súborov.

Sákriš, ide Vám to stiahnuť ? JA dostanem vždy hlášku

Čo obsahuje, kam odkazuje, pomenovaná oblasť ?Range("kl_1_vyrizeneUvery")
a návazne aj "oblast"... nerozumiem tomu posunu, vzájomnej pozícii týchto 2 oblastí a následnej veľkosti.
Pole definujete ako
kl_1_vyrizeneUvery() As Variant
ale priraďujete do nedefinovanej premennej
kl_1_vyrizeneUveryPole

Skúste uviesť nejaký príklad dát. To musí ísť, aj keď niekedy nastanú "nezmyselné" problémy ako písal xlnc.

Naozaj ste skúsil obyčajnú podmienku?
=IF(A3>=0;"Kladné";"Záporné")
=KDYŽ(A3>=0;"Kladné";"Záporné")

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bunka
Set Bunka = Intersect(Columns(1), Target)
If Not Bunka Is Nothing Then
Cells(2, 16).Value2 = LCase$(Replace$(Left$(Bunka.Cells(1).Value2, 11), "/", ""))
Set Bunka = Nothing
End If
End Sub

To sa dá určite viacerými spôsobmi rozdeliť. Mňa napadli ešte 3 vzorce, sú trošku kratšie ako ten Váš.

Ak by tam tie mená zdvojené neboli, šlo by to ľahko cez KT, tú by ste si obnovoval cez tlačítko, ale žiaľ ...
Potom teda tak ako to máte, by to šlo poriešiť napríklad pomocou jedného pomocného stĺpca (schovajte si ho) vo výsledkovom liste, a vzorcami s dostatočným počtom riadkov (teraz je 1000, ale to podstatne zvyšuje veľkosť súboru). Dáta sú zaradené bez makra a bez kliknutia na tlačítko na obnovenie.
Išlo by to ale možno aj cez PQ...
Neviem, čo by Vám viac vyhovovalo.

To mepexg : Parádne ...

príklad

1. Dajte vo formáte bunky Zarovnanie - Zalomiť text
2. Vzorec upravte na:
=TEXT(I3;"dd.mm.yyyy")&CHAR(10)&"(týden "&I2&" )"
=HODNOTA.NA.TEXT(I3;"dd.mm.rrrr")&ZNAK(10)&"(týden "&I2&" )"
3. Pozor, hodnota bude už ako Text, nie ako dátum.

Upravená verzia. Lebo v predošlom prípade som použil Objekt Tabuľka, ktorý ale v XLS nepracuje správne. Rovnako ani rozsah odkazujúci na stĺpec v tomto Objekte. Takže úprava bez Objektu Tabuľka:

Veď normálny VLOOKUP/SVYHLEDAT, nie ?

Iný príklad riešenia. Ak prezradíte, na základe čoho sa má zistiť posledný rok, tak to upravím. Je totiž rozdiel v prístupe, podľa toho, či sú tam na pevno vložené "prázdne" roky až do 2035, alebo či sa nejako postupne pridávajú tabuľky s rokmi.
Teraz je to tak ako som popísal v komentári bunky O2.
Súbor

Pre ukážku som natvrdo zmenil dáta v riadkoch 17,18,22 pre rok 2035. Obnovte si tam potom prípadne vzorce.

Nerobia tie výpočty na iných listoch makrá ? Ak áno, tak je to jasné - XLSX neobsahuje makrá, na to je XLSM.

Automatický výpočet vzorcov máte zapnutý ? karta Vzorce - Možnosti výpočtov - Automaticky ?

Ak stlačíte F9 tiež sa nič nezmení ?

Odkazy v prípadných vzorcoch na tých listoch sú validné ? Označte jednu takú bunku, skontrolujte aby nebola formátu Text, vojdite do editácie vzorca a stlačte ENTER. Ani teraz ho nevyráta? Odkrokujte si výpočet (Vzorce - Vyhodnotiť vzorec).

Ak ten korektný XLS otvoríte v Exceli a uložíte ako XLSX (alebo XLSM - podľa odpovede na 1. vetu), počíta to ? Ak áno, tak používajte metódu XLS, pretože tá záhadná Aplikácia nefunguje korektne s novším formátom.

Overte to na viacerých kombináciách verzií Win/Office.

Vložte nejaké príklady, prílohy.

Ak ste to ani nečítal, ani nepochopil, teda ani nekontroloval a hneď odoslal, urobil ste asi to najhoršie, ale budiš ... Vaša voľba.
Dobrú noc.

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje