Příspěvky uživatele

tak to vypadá na delší studium... po obědě

Zatím děkuji a pak se ozvu.

tabulku jsem upravil - příloha

Dobrý den, nechal bych to na vás.
Buď tam bude datum nebo "nějaký znak" (že nebylo nic odesláno a nic se neočekává).
Není to striktně dáno, dá se přizpusobit. Pokud můžu požádat o komentáře ke kodu, abych to mohl (nejen já) použít i v jiných případech jako "vyuku" :-)
S vyhodnocováním některých rozhodovacích procesů mám někdy problém, hlavně jak to zjednodušit aby to nebyl vzorec (nebo kod) na dva řádky.. :-)

to Vovka: tento problém už vyřešený mám, ale nezříkám se vašeho řešení pomocí VBA.
Pokud by se vám chtělo ho navrhnout, možná to pomůže i ostatním a já ho použiju jindy.
Předem díky.

Díky pepe74287 - funguje :-)
to Vovka - VBA by to zbytečně zkomplikovalo :-) A s "logikou" mám problém, proto žádost o pomoc.

Hmm, asi to bude komplikovanější...
odeslano = *** => neočekávám odpověď, neberu sloupec přijato do rozhodování (nebo ho můžu také vyplnit ***, pokud to zjednoduší práci)
pokud jsou oba sloupce odesláno s datem => žlutá bude pokud je alespoň jeden sloupec přijato vyplněn datem a zelená pokud oba.
Snad jsem to postih všechno...

Dobrý den
požádam znalce, zda by mi mohli pomoct s rozsvícením "semaforu"

Potřebuji nastavit logiku podmíněného formátování. Vysvětleno v příloze.
Předem díky.

..zapomněl.
Děkuji za jekékoliv náměty či řešení.
George

Dobrý den
uvedený "problém" umím vyřešit ručně, ale potřeboval bych ho zautomatizovat

.
Office 2010, Win 7 Pro
Plán z Excelu převést po měsícich do Kalendáře.
U každého měsíce (listopad) bude tlačítko (buňka AU1) - po stlačení se úkoly z daného měsíce načtou do Outlooku.
Leden-říjen jsou momentálně skryté.
Sloupce (skoro) odpovídají položkám v Outlooku, pokud ne chtěl bych je mít v poznámce Kalendáře (nevím zda je to správné označení, ale myslím tím to největší pole při zobrazení události, na samostatných řádcích).
Vytvoření (pokud to bude zapotřebí) pomocného souboru a/nebo záložek v tomto sešitě je možné.
Řádky se budou průběžně doplňovat, opravovat... předpoklad je celkově do 100 řádků.
Doufám, že jsem na nic nezapomněl...

Nedostal jsem se k rychlejší odpovědi...
Popišu to jak to FUNGOVALO na Win XP a Excel 2003 (současný systém Win7 profesoinal a Excel 2010)
1. Personální tabulka, co řádek to údaje o osobě
2. určím si, že potřebuji tisknout řádky 101-103 (3 formuláře o dvou výtiscích - 6listů)
3. z tabulky se načtou údaje o osobě 101 do formuláře (list "tisk01" a list "tisk02" = výtisk č.1 a č.2. - liší se v pár položkách)
4. vyvolá se pokyn k tisku (Sheets("tisk01").PrintPreview)
5. zkontroluji udaje, navolím tiskárnu (může být místní, síťová), oboustranný tisk a potvrdím -> vytiskne se osoba101 výtisk č.1
6. (Sheets("tisk02").PrintPreview) - totéž výtisk č.2
7. makro pokračuje - doplní do STEJNÉHO formuláře údaje o osobě 102 a provede se Preview...
8. osoba 103...
9. konec

V Excelu 2010 mi nefunguje PrintPreview (objevi se náhled a po stlačení Print vyskočí hláška "RT error 1004, Metoda PrintPreview třídy Worksheet selhala."
Možnost Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
se jevila jako funkční, jenže v případě zobrazení náhledu se makro nezastaví, rychle proběhnou náhledy osob 101, 102 a zastaví se až na 103. Můžu tedy vytisknout jedině poslední z vybraných osob.
Možna jdu na to špatně a existuje něco jednoduššího :-)
Potřebuji mít možnost volby tiskárny (parametrů) před tiskem a doplňovat do STEJNÝCH 2 listů různé udaje a ty tisknout.
Díky za nápady.

George, myslím, že nesprávne používaš termín cyklus.
Sheets(Array("Sheet1", "Sheet3")).Selectnie je cyklus.
Ale já se bavím o cyklu
For x = 1 To 3
Sheets(Array("Sheet1", "Sheet3")).Select
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Next x

to AL: samo, že tam je Next x (jen jsem to špatně opsal :-)

Díky za MsgBox.. přišel jsem na to, že v cyklu makro "nečeká" na akci uživatele (potvrzení tisku) a projede cyklus do konce. Takže v reálu se vytisknou jen první formuláře z cyklu.
Jak tedy donutit makro aby počkalo na potvrzení tisku, vytisklo formulář a pokračovalo v cyklu.
Tohle makro fungovalo na Excel 2003 bez problémů :-(
Možná to jde nějak jinak...
Podstatou je, že potřebuji zkontrolovat tiskárnu, způsob tisku... odsouhlasit tisk a čekám na další formulář (PrintPreview fungovalo v 2003 bez problémů).

Sub ExecutePrint()
Sheets(Array("Sheet1", "Sheet3")).Select
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub
Díky tohle funguje, jenže

Sub ExecutePrint()
for x=1 to 3
Sheets(Array("Sheet1", "Sheet3")).Select
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
x=x+1
End Sub

Tohle už ne. Po tisku makro skončí a nepokračuje v cyklu (zjednodušený příklad). Ve skutečnosti se jedná o formulář, kde se v cyklu mění některé položky. Někdy je těch cyklů i deset...

asi jsem to špatně popsal...

...
Sheets("tisk1").Activate
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Sheets("tisk2").Activate
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Sheets("tisk3").Activate
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
...

proběhne první tisk a pak se zobrazí na displeji stránka "tisk2" a makro skončí..

to elninoslov
To nové náhľadové okno
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Můžete mi poradit jak bude vypadat tisk několika tabulek/stran (v cyklu) z několika (konkretních) listů?
S využitím výše uvedeného náhledového okna.
Díky

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje