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

Příspěvky uživatele

Microsoft nabízí k úplné odinstalaci office nástroj, hledej office removal tool. Co se týče toho doplňku *.xlam, tak je potřeba zrušit "asociaci" v nastavení. MOŽNOSTI -> DOPLŇKY -> SPRAVOVAT "Doplňky Excelu" - přejít a zrušit zatržítko.

Tak samozřejmě to možné je. Buď si "překlad" zapíšeš přímo v kódu, nebo na skrytý list odkud budou proměnné čerpat data při načtení userformu.
Celý ten požadavek je ale nějaký zmatený, userformy budou zobrazovány v "jiném" jazyce a co zbytek faktury? Ten zůstane v CZ?

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;"")))

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje