Příspěvky uživatele

Změnil sem multiselect z multi na singl.

Mě to funguje

.
Můj kód je v modulu pod názvem kopiruj_2.
Pod tlačítkem je původní kód.

Můj osobní názor je, že bez makra to nedáš.

Např.

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 !

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje