wow, supr, pomohlo to. sám bych na to nepřišel. děkuji! jen škoda, že to nemá outlook přímo v možnostech, aby se uživatel nemusel hrabat v registrech.

NO super. Je to tak, když se dělá moc věcí najednou.
Děkuju. moc jste mi pomohl. Supr

Díky moc funguje jak má.
Já vím, že ty moje slepence jsou hrozný ale jsem rád, že mi to nějak funguje.
Ještě jednou děkuji.

Díky, ale já to nemám pod pravým talčítkem myši, ale našel jsem to v možnostech kont. tabulky v analýze. Excel 2013

Yes to jsem myslel, děkuji moc ;)

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

Lubo, Vy máte ten PQ v krvi ... :clap:

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