Nedělal jsem kontrolu, zda vzorec správně reaguje na patřičné hodnoty, ale v přiložených vzrorcích jsou místo středníku čárky, a v číslicích jsem musel použít čárku místo tečky. To asi chyba nebude, pokud to máte v nastavení. =KDYŽ(A(J10>1,5;F10>1,5;D10>9,5;I10>2,5);"A";KDYŽ(NEBO(A(J10>1,5...

Dobrý den.
Jenom takový první nástřel.

Dobrý večer.
Koukněte tady:
https://exceltown.com/navody/makra/vba-zajimave-ukazky-maker/makro-pro-kopirovani-z-jednoho-souboru-do-jineho/
https://office.lasakovi.com/excel/vba-listy-bunky/radky-sloupce-excel-vba-kody/

Hoj, co takhle použít PF.

Zdravím, snad takto?

Hezký den.
Snad to pomůže, ale jen za předpokladu, že pracovní doba nebude přes půlnoc.

Edit: počítani prac. doby přes půlnoc jde také, ale s pomocným řádkem.

Zdravím, nerad dělám DÚ, ale posílám nástřel. Tento úkol se da najít během par minut.

Epep píše:Na jedné stránce se má objevovat a na druhé se ovládá, problém je, že někdy funguje a někdy ne

U mě to funguje za jakéhokoliv počasí. Office 2013.

Ahoj, zkus tady toto: Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range If Target.Column = 2 Then Set rng = Target.Resize(1, 6) With rng.Borders .LineStyle = xlContinuous .Weight = xlThin End With End If Nic = Application.WorksheetFunction.CountA(Columns(2)) If Nic = 0 Then Set rn...

Dobrý den, snad takto. Sub plus() For a = 0 To 999 If Worksheets("inventory").Range("A10").Offset(a, 0) = 1 Then Worksheets("inventory").Range("M10").Offset(a, 0) = Worksheets("inventory").Range("M10").Offset(a, 0) + Worksheets("invent...

Dobrý den.

Nechal bych si první list jako vzor a z něho dělal kopie. Viz příloha.

Ahoj,

tady to je.