Příspěvky uživatele

Sorry, pořádně sem si neověřil chování vzorců. Přikládám upravený soubor. U maticových vzorců byla doplněna funkce A.

Některé vzorce stačilo zadat maticově, u jiných je nahrazena funkce JE.PRÁZDNÉ za DÉLKA.

Delta = Application.WorksheetFunction.CountA(Range("H" & alfa & ":M" & alfa))NEBO
Delta = Application.WorksheetFunction.CountA(Range("H" & alfa).Resize(, 6))

Sub Zamknout()

Dim sPass As String
sPass = InputBox("Heslo k odemknutí listu:", "Zamknout list")
Dim sh As Worksheet
If sPass = vbNullString Then Exit Sub

If sPass = InputBox("Zadejte heslo ještě jednou:", "Potvrdit heslo") Then
For Each sh In ActiveWorkbook.Sheets
sh.Protect Password:=sPass
Next
Else
i = MsgBox("Heslo zadané pro potvrzení není shodné.", vbExclamation, "Chyba")
End If

End Sub

Sub Odemknout()

Dim sPass As String
sPass = InputBox("Heslo:", "Odemknout list")
Dim sh As Worksheet

On Error Resume Next
For Each sh In ActiveWorkbook.Sheets
sh.Unprotect Password:=sPass
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, "Chybné heslo !!!"
Exit Sub
End If
Next
End Sub

Možná si sedím na vedení, ale v čem je problém?

?=KDYŽ(B9="B";K1*D9*0,5;KDYŽ(B9="O";K1*D9*1;KDYŽ(B9="K";K1*D9/0,75;"")))

To jako vážně?! Máš dojem, že se tu pohybují samý věštci a telepati?
Opravdu si myslíš, že na základě poskytnutých dat někdo dokáže zjistit případnou chybu bez znalosti jejich typu a struktury?
Pokud chceš opravdu poradit, přilož vzorový soubor, kde bude znázorněn požadovaný výsledek.

Upraveno

Přikládám soubor s malou (opravdu malou) úpravou spočívající v promazání kódu a seřazení dat v tabulce podle data požadavku OD. Bohužel i v tom tomto případě bude nutná manuální kontrola.

Kopírování do vedlejší tabulky sem nedělal, protože stále nevím jak to chcete řešit. Pokud by se jednalo o rezervaci na jeden den např 25.3, tak to je jednoduché, řádek se zkopíruje ke stejnému datu, ale pokud to má být rozmezí od - do např 10.3 - 28.3, tak to upřímně netuším jak to chcete přesně řešit. Řádek se zkopíruje k datu 10.3 nebo 28.3 nebo?
Hlavně by se měla brát v potaz i hodnota času.

Přiznám se, že vůbec netuším jak tohle udělat.

PS: ještě dva postřehy. Proč se na listě ZOZNAM ŽIADATEĽOV vybírá účel cesty, když se do žádostí vůbec nezapisuje?
A druhá věc souvisí s předchozím textem. Pokud sem to dobře pochopil formulář má sloužit k rezervaci konkrétního (jediného) služebního vozu. Pokud je to tak, je Ve Vašem přiloženém souboru chyba. Máte dva řádky s příznakem "Áno" s cílem Modra a Bratislava. Pokud má být vozidlo půjčeno 24.2 do 2.3 není možné ho znovu půjčit od 25.2 !

Pokud sem správně pochopil zadání, tak by šlo použít fci SVYHLEDAT viz. soubor.

, musím přiznat, že se mi celý ten koncept formuláře vůbec nelíbí. A podle toho, že je toto první reakce od položení dotazu, nejspíš nejsem jediný.

Vůbec sem nepobral, jakou formou mají být data vkládána do schválených žádostí (a proč vlastně, když jsou umístěny hned vedle žádostí), jakožto i ono umístění schválených, které znemožňuje odstranění celého řádku při smazání žádosti. To, že se nová data vkládají do případných prázdných řádků (po smazaní žádosti) je sice pěkné, ale neměly by jít data (datum) chronologicky za sebou? Tedy nová žádost vždy na poslední volný řádek tabulky? Přece nebude žádost ze dne 20.2 umístěna např. mezi daty 8.2 a 12.2 - celá takto vytvořená tabulka bude silně nepřehledná.

Přiznám se, že se mi do nějakých velkých úprav nechce pouštět, tak přikládám jen upravený kód makra PRIDAJ_DO_ZOZNAMU_ZIADOSTI

@shq32
Zákazníkům neposílej soubor excelu, ale *.PDF a budeš mít 100% jistotu, že se to všem zobrazí stejně.

Takto?
= KDYŽ(ZAOKR.DOLŮ(D7/5000;1)>3;3;ZAOKR.DOLŮ(D7/5000;1))

Co takhle funkce NEDEF()?
V en excelu možná NA().

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje