Příspěvky uživatele


< návrat zpět

Strana:  1 2 3 4 5 6 7 8 9   další » ... 41

njn Musím dát občas o sobě vědět 1
A nemáš jiné řešení? Možná by to šlo i přes maticový vzorec, ale to mi nejde.

Třeba takto:=KDYŽ(DENTÝDNE(A3;2)=6;KDYŽ(DEN(A3)<=6;SUMA(POSUN(M3;-(DEN(A3)-1);-2):K3);SUMA(POSUN(M3;-6;-2):K3));0)

Sčítá odpracovanou dobu od soboty do předchozí neděle.

Vždyť ten list3 je pořád prázdný.

Resize je funkce POSUN.
Pokud dám posun o MaxRadek, tak se z H5 dostanu na H12
Protože jsem na řádku 5, musím odečíst ty 4 předchozí a pak dostanu oblast H5:H8, tedy od H5 po poslední řádek.

No, nevím, jestli jsem to vylepšil :)

camron napsal/a:

Nešlo by to podle počtu znaků? Vždy 12 a více, porovnávej jestli OK nebo NOK-červená, všechny ostatní nezvyrazněné.

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


Strana:  1 2 3 4 5 6 7 8 9   další » ... 41

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Výmaz řádku podle hodnoty v konkrétním sloupci

elninoslov • 7.2. 21:49

Výmaz řádku podle hodnoty v konkrétním sloupci

Alfan • 7.2. 14:02

Výmaz řádku podle hodnoty v konkrétním sloupci

Alfan • 7.2. 11:44

plán 12 h směn na celý rok

PE1PA • 6.2. 14:56

plán 12 h směn na celý rok

elninoslov • 6.2. 14:16

plán 12 h směn na celý rok

elninoslov • 6.2. 14:15

plán 12 h směn na celý rok

elninoslov • 6.2. 13:21