Příspěvky uživatele

Takže ide o to, spočítať, koľko je tam buniek obsahujúcich písmeno "m"?

=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.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje