Příspěvky uživatele

=SUM(OFFSET(B9;;COUNTA(8:8)-G5;;G5))
=SUMA(POSUN(B9;;POČET2(8:8)-G5;;G5))

Ovládať webový Outlook asi nepôjde. Pozrite si, či by na odosielanie vyhovovala CDO metóda (meno a heslo do mailovej schránky by bolo priamo v makre ako text !).

Paráda, funguje, ďakujem!

Človeče, kam Vy na toto chodíte ? ... To je hodnotnejšie, ako sa pýtať Googlu

??? Veď stačí iba do bunky C3 napísať =B3-B2, a vzorec z C3 za ten malý štvorček vpravo dole natiahnuť po C1000 alebo kam... alebo Ctrl+C na bunke C3, označiť C4:C1000 a Ctrl+V.

Posun môžete riešiť aj cez OFFSET/POSUN alebo INDIRECT/NEPŘÍMÝ_ODKAZ.

Zdravím dámy a páni.

Riešil ste už niekto A-Z radenie v PQ v lokálnej abecede?

Mám napr.:
Čistý
Ábel
Bublina
Žuvačka
Zvon

SK Excel to zoradí správne :
Ábel
Bublina
Čistý
Zvon
Žuvačka

No SK PQ dá všetku diakritiku až za "Z" :
Bublina
Zvon
Ábel
Čistý
Žuvačka

Nemôžem nájsť riešenie.

PS: Áno stále sa to dá dosortovať následne v hotovej Tabuľke v Exceli, no potreboval som One-Click riešenie.

Ďakujem.

=IFERROR("Jistina - "&REPLACE(REPLACE(A1;1;FIND("ANO / NE 1";A1)+10;"");FIND(" 0 21";REPLACE(A1;1;FIND("ANO / NE 1";A1)+10;""));LEN(A1);"");"")
=IFERROR("Jistina - "&NAHRADIT(NAHRADIT(A1;1;NAJÍT("ANO / NE 1";A1)+10;"");NAJÍT(" 0 21";NAHRADIT(A1;1;NAJÍT("ANO / NE 1";A1)+10;""));DÉLKA(A1);"");"")
alebo
=IFERROR("Jistina - "&TRIM(LEFT(SUBSTITUTE(REPLACE(A1;1;FIND("ANO / NE 1";A1)+10;"");" 0 21";REPT(" ";LEN(A1)));LEN(A1)));"")
=IFERROR("Jistina - "&PROČISTIT(ZLEVA(DOSADIT(NAHRADIT(A1;1;NAJÍT("ANO / NE 1";A1)+10;"");" 0 21";OPAKOVAT(" ";DÉLKA(A1)));DÉLKA(A1)));"")

Prílohu som ešte nepozeral. Mám rozpracované to čo som spomínal. Bude to ukladať disk priamo do spoločnej tbl, s tým že nahradí predchádzajúce údaje z disku s rovnakým názvom, prípadne pridá celý nový disk. Ďalšie listy budú zbytočné. Ale je to zložitejšie na premyslenie, je to na 2. koľaji. Dám vedieť.
Neviem síce čo chcete označiť, ale skúste nepoužiť xlDown, ale od konca xlUp. A pracujte s určite vyplneným stĺpcom, čo A nieje.
Lomítko "\" na konci - ako som písal minule, bez neho to bola asi prapôvodná vizuálna požiadavka. Neviem.

Sub Vytvor_HL()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Start", "niečo iné" 'vylúčené listy
Case Else: ws.Range("C3").Hyperlinks.Add ws.Range("C3"), "", "Start!A1", "List Start", "List Start" 'na všetky ostatné urobí link
End Select
Next ws
End Sub

Tu máte to makro. Treba otestovať, príliš som to neladil...
Ale ten stĺpec s príznakom zaplatenia by som tam doplnil.

Skúste si toto. Je to iba PF + vzorce + Smart Filter.

Hmm, no podľa mňa možno termínom "faktúra po splatnosti" označiť iba faktúru, ktorá nebola do konca dňa jej splatnosti zaplatená. Nie faktúru, ktorej dátum splatnosti je menší ako dnešný. Treba rozlíšiť, ktorá je už uhradená. A iba neuhradené kontrolovať na "po splatnosti".

Výpis do msgboxu je veľmi nepraktický, nedá sa odtiaľ nič napr. skopírovať, a musíte ho zatvoriť, aby ste mohol pokračovať v Exceli.

PQ je dobrá voľba. Ak budete trvať na makre tak Vám ho kľudne napíšeme. No na takéto zvýraznenie ani nepotrebujete znalosti PQ či VBA. Stačí Podmienený formát + filter na farbu (+ možno nejaká informačná bunka so vzorcom COUNTIFS a textom upozornenia).

Na jednorazové doplnenie:
vyplnenie:
A1
Ctrl+Shift+medzernik
Ctrl+Shift+šípka vľavo, aby ostal len A
Ctrl+G - Špeciálne - Prázdne bunky - OK
napíšeme "=" a šípkou hore sa doplní prvá bunka nad prvou prázdnou, teda "=A2"
Ctrl+Enter

prevod na hodnoty
A1
Ctrl+Shift+medzernik
Ctrl+Shift+šípka vľavo, aby ostal len A
Ctrl+C
pravé myšítko, prilepiť hodnoty (ikona "123")

Vo Vašom prípade ale ide o dynamický report, takže určo buď doplniť stĺpec, alebo na tento report urobiť PowerQuery dotaz do dátového modulu a naň napojiť KT.

EDIT:
Vy máte výsledný súbor XLS? Takže ide o starší Office ako 2010? Tak to PQ nepôjde.

Zatiaľ málo času, ale prišiel som na zaujímavé veci.
Uvádzam príklad toho, čo dám načítať v objFSO.GetFolder a aký adresár skutočne dostanem:
"c:" - "C:\Program Files\Microsoft Office\root\Office16".
"d:" - "D:\Dokumenty"
"e:" - "E:\Download"
a keď tam nechám lomítko \:
"c:\" - "C:\"
"d:\" - "D:\"
"e:\" - "E:\"
sranda čo? To lomítko tam musí byť! Neviem, prečo sme ho dávali vtedy preč, asi podľa požiadavky vzhľadu.

Teraz k chybe. Tá vzniká pri načítaní disku a určovaní veľkosti spracovávaných dát.
Ak spracovávame adresár vieme určiť jeho veľkosť (kvôli progresu)
CelkVelkost = objFolder.Size
ale ak sa jedná o root
tak táto vlastnosť neexistuje, a veľkosť obsadených dát potrebujeme vypočítať na základe kapacity a voľného miesta
CelkVelkost = objFolder.Drive.TotalSize - objFolder.Drive.FreeSpace
takže
If objFolder.IsRootFolder Then CelkVelkost = objFolder.Drive.TotalSize - objFolder.Drive.FreeSpace Else CelkVelkost = objFolder.Size

Nad ďalšími vecami musím najskôr porozmýšľať a mať na to čas. Ale to s tým označovaním farbou asi nepôjde...

Potrebujete Office 365.

Takže to makro parametrizujeme, pže ho potrebujete spúšťať na inom liste/disku. To že ste povedal z iného modulu, to vyznie úplne inak. To nebude problém.
Počet zdrojov je známy a nemenný?
Každý zdroj/disk má svoj list?
Ak sa jeden zdroj aktualizuje (teda sa spustí makro na jeho liste), ako sa aktualizuje tá tabuľka "zdroj spojené"? vymazať sa nemôže, to by sa museli aktualizovať všetky zdroje. Dalo by sa vyhľadať/vyfiltrovať iba podľa mena zdroju/disku/partície a vymazať iba tie, a pridať aktualizované...
No a načo je potom tá Tabuľka "Tabuľka1" na liste Tabulka? To sú už vlastne triplicitné dáta. Dávala by zmysel, ak by sa pomocou PowerQuery z nej robil ten zoznam na liste Filmy. No tu je problém, že si tam značíte manuálnym podfarbením asi čo ste videl, alebo vlastné hodnotenie, alebo neviem čo, a to by Vám po akejkoľvek aktualizácii nesedelo. Pže po pridaní jediného filmu by sa to zoradilo, ale iba dáta, nie podfarbenia. Riešením by bolo asi jedine, toto značenie robiť v ten súhrnnej tabuľke/Tabuľke v nejakom pridanom stĺpci, napr. hodnotenie 1..5, alebo V - videl. A to by sa premietlo do Podmieneného Formátovania pri danom filme, nech by bol zoradený kdekoľvek. ALE. Museli by byť vytvorené jedinečné identifikátory v tejto tabuľke/Tabuľke (napr. jedinečné číslo, ktoré by sa neopakovalo, ani po zmazaní záznamu). Prečo? Lebo sa film môže volať rovnako, a pritom pôjde o niečo iné. ALE. Toto tiež skrachuje na aktualizácii PQ.

Myslím, že niektoré veci, ktoré chcete dosiahnuť, mi zapínajú. Ale bude to možno komplikovanejšie, ak si zatiaľ myslíte.
Tiež mám zbierku, a ako pribúdali komplikácie katalogizácie, tak som sa to vysr...kašľal, a teraz mám krásny nefalšovaný chaos a neviem nič nájsť

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje