A Makrem přes to tlačítko? Díky

Dodatečně přidáno po 3 hodinách 49 minutách 52 vteřinách:
Ano, tohle je přímo super. Děkuji moc za velkou pomoc.

no po dĺĺĺhom čase skúste pokus
Skúšajte hlavne makro VyhledatICO2 na liste makro2. To funguje úplne inak, neotvára súbory a je podstatne rýchlejšie.
Makrá sú ale trošku zložitejšie, lebo Excel nepracuje rovnako napr. so vzorcami odkazujúcimi na...

Super, jen pro příště je dobré dát vědět, že jsi příspěvek upravil, nezobrazuje se na úpravu notifikace (na nový komentář ano).

Převaděč souborů z T602 do Wordu ( . Od petr22
Guru Level 15 - Ten prevodnik vyzaduje nejake 22 let stare knihovny nebo kdovi co.

A v mé konfiguraci nefunkční.

Naprosto dokonalé, vřelé díky. Pouze jsem udělal chybu a v makru opravil, obrázky mám L a R (líc a rub).

Zkouším si tady na papír napsat různé scénáře a k tomu podmínky, ale asi jsem si vzal moc velké sousto... Přemýšlím nad tím nějak takto:

Nejdřív pomocné výpočty:
- A Ending = A Initial - A Demand
- A Diff to 0 = ABS( MIN (0 + A Ending; 0))
- A Diff...

Jak prosté.

Děkuji za pomoc.

Tak se omlouvám, už se mi to povedlo. Hlásilo mi to pořád chybu, ale nakonec se zdařilo. Trochu jsem si s tím musel pohrát.
Ten zápis jsi mi psal tuším ty, jseš dobrej. Ale přesto díky.
Jo stačilo doplnit:
If...

Option Explicit

Sub TestBunek()
Dim Bunka As Range

For Each Bunka In Range("F4:G11")
If IsEmpty(Bunka) = True Then
MsgBox "Některá z kontrolovaných buněk je prázdná!", vbCritical, "Chyba !!!"
Exit Sub
End If...

Díky, už se mi podařilo vyřešit. Ale je to přesně ono. Děkuju

Doplň řádek:
.Item.attachments.add(file), kde file = např. "c:\data\soubor.pdf"

Děkuju. Je to přesně to, co jsem chtěl, dál už si poradím. Supr práce.

Super díky

Špica, funguje bez chyb. Moc děkuju za pomoc.

Nakonec se mi vše nějak podařilo nastavit a hlavně funguje. Tak díky. Zamykám

Funguje supr.

Děkuji

Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(Target.Row, 17).Value = "1" And Cells(Target.Row, 18).Value = "" Then
Cells(Target.Row, 18) = Now
ElseIf Cells(Target.Row, 17).Value =...

Pro zjištění posledního výskytu hodnoty, můžeš použít maticové vzorce viz soubor.
Jejich zadání se ukončí trojkombinací CTRL+SHIFT+ENTER

Dobrý den, děkuji za odpověď.
Pravda, na maticové vzorce jsem si nevzpomněl.

soubor byl moc velký, ale už jsem to pořešil, takže díky a zamykám

Děkuji za nakopnutí a máte pravdu.
Požadavek na prázdnou budu muset řešit nabízenou 0 nebo jinak.

Skrytí nul pro přehlednost by pak bylo
0;-0;;@
nebo
0,0;-0;;@
podle požadavku na desetinná místa.

Umí... Ve wordu se mi zobrazuje, jen po exportu z wordu přes Soubor/exportovat/vytvořit soubor PDF se ty háčky a čárky nepřenesou.
Zkusila jsem to i přes on-line převodník a tam se mi změnil font v celém dokumentu...

Dodatečně přidáno po 17...

Dobrý den,
děkuji za reakci.
I na obecnou otázku může obecná odpovědět poskytnout obecné vodítko případně i pro ostatní.

Tak už jede. Odinstaloval jsem a nainstaloval Office který jsem měl na flash. Pak ještě nějaké klikání s účtem/tak trochu tohle a támhleto, nejsem schopný říct co se chytlo/ a v pořádku. Jen byl problém s OneDrive, pořád to chtělo odblokování a...