• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Fórum

Příspěvky uživatele

S tou chválou to nepřeháněj, takhle to vypadá, když si to po sobě někdo pořádně neotestuje .
Kód upraven a otestován, nyní už by to mělo být v pořádku. Přidat tlačítko a skrýt list jistě dokážeš sám.

Teda chlape, co Ty s těma objednávkama tvoříš?
V příloze je pokus o řešení. Netvrdím, že je to to nejlepší možný řešení, ale nic lepšího mě nenapadlo. Někdo jistě přispěje něčím lepším.

PS: Pro funkčnost kódu je důležitý znak (kolečko) umístěný v prvním řádku některého ze šedých sloupců, tedy nemazat! Můžeš však nastavit stejnou barvu fontu jako má pozadí buňky pro jeho optické skrytí.

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje