• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Tak tady jeden příklad, ale jak píše lubo, je nutno upřesnit zadání. Je tam spoustu nejasnosstí.

Třeba, proč právě řádek 17 má být červený, když nesedí ani řádky 16, 18, 15, 14. Podle čeho má excel poznat, že zrovna porovnám řádek 17 a ne 16?

Dejte přílohu s tím co jste vytvořil. Jinak nezjistíme, co je špatně.
A ještě přidejte informaci, co má zezelenat. :)

Vždyť to @elnino napsal. Jako první parametr bude rozsah: =COUNTIF(A1:A6;"*"&A1&"*")>0

=A($Y1<DNES();$X1="") - podmíněné formátování v buňce Y1 (deadline)

"Vyšší level" jsem nepochopil, které datum a ktré buňky zabarvovat.
Vložte příklad s několika různými kombinacemi a ručně vybarvenými.

Třaba takto s pomocným sloupcem.
Ale nejd eo univerzální řešení. Je to konkrétní řešení na tento příklad.

Příloha?

Opravil jsem toho víc.

Do pole se načítá jen sloupec B, když ten zbytek není potřeba
Protože se teď jedná o jednorozměrné pole, tak jsem upravil indexy polí
Ten cyklus "k" na konci je teď zbytečný. Uložím jen jednu hodnoty do jedné buňky.

Jestli jsem to dobře pochopil, tak zkuste toto.

Děkuji.
Děkuiji i za bonus v podobě ošetření chyb. Třeba kontrolovat, zda není word již otevřen by mě vůbec nenapadlo.

Poznámka pro ty, kdo si stáhnou příklad, tak je tam chybka v podobě dvojího zpětného lomítka:

jedno zpětné lomítko na konci cestyadresar = ThisWorkbook.Path & "\"
druhé zpětné lomítoi na začátku názvu souboruSet oDokument = objWord.Documents.Add(adresar & "\Potvrzení1.docx")
To zpětné lomítko na začátku názvu souboru je tam zbytečné.

Mám makro, kdy si zapíši data z excelu do wordu.
Teď mi makro skončí, word zůstane otevřený, ale já se do wordu musím přepnout ručně, abych si mohl prohlídnout a doupravit vzniklý dokument.
Rád bych, když makro skončí, tak abych zůstal ve vytvořeném wordu (excel zůstane otevřený).

Sub tlačítko2_Kliknutí()
Dim oDokument As Word.Document
Dim jmeno As String
jmeno = Range("A2").Text
adresar = ThisWorkbook.Path
soubor = jmeno & ".docx"

Set objWord = New Word.Application
Set oDokument = objWord.Documents.Add(adresar & "\Potvrzení1.docx")
objWord.Visible = True

oDokument.Bookmarks("jmeno").Range.Text = jmeno
oDokument.Bookmarks("datum").Range.Text = Range("A1").Text

' oDokument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1", copies:="2"
oDokument.SaveAs (adresar & soubor)
MsgBox "konec"
' oDokument.Close SaveChanges:=True
' Word.Application.Quit
End Sub

Šlo by to pomocí makra.

Co třeba takhle:
=KDYŽ(POSUN(List2!A$1;ŘÁDEK((A1))-1;0)>0;POSUN(List2!A$1;ŘÁDEK((A1))-1;0);"")

Do makra jsem jen doplnil nějaký komentář.

Opraveny nedostatečné hranice intervalu.
Můžete pokračovat v testování.

Samozřejmě, že to nefunguje.

Meruňky, pomeranče a kokos měly u nové (dosud nezpracované) objednávky Shipped Qty a Remain Qty prázdné a v reálném souboru máte v Shipped Qty 0 (pomlčku) a v Remain Qty máte počet kusů, které se musí doplnit. Prakticky tedy Remain Qty = Requested Qty.

Makro tedy doplní řádek 9, zbyde mu 41 kusů.
Najde sice řádek 21 se stejným materiálem, ale protože Remain Qty je stejné jako Requested Qty, tak to bere jako dokončenou objednávku.
Další objednávku s tímto materiálem nenajde, tak těch 41 nechá v řádku 9 jako přebytek (-41).

Přikládám upravený soubor na nové (jiné) vstupní údaje.
Teď by to mělo chodit dobře.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse