Příspěvky uživatele
< návrat zpět
Jednoduše:
=KDYŽ(E13>=1;KDYŽ(F13>400;1,5*F13;600);"")
Další studijní materiál:
https://www.encodedna.com/excel/how-to-add-events-to-dynamically-created-controls-in-excel-using-vba.htm
Mám dvě varianty:
1) Funkce Svyhledat a pomocná tabulka
2) Funkce Zvolit a pomocné hodnoty TagS a TagE ve správci názvů
B2:
=ZVOLIT(A1;"Sklad A";"Sklad B";"Sklad C";"Sklad D")
Např.
?
Jelikož je to takový neustálý lepení kódu, šel sem na to cestou nejmenšího odporu a "na hulváta" přidal do modulu veřejnou proměnnou typu Boolean a do "spouštěcího" kódu za MojeMakro blok If.. Then, který doplní hodnotu "ANO".
Odporuje to, ale zadání, které požaduje, aby byla hodnota "ANO" zapsána před vlastním zápisem datumů.
Což moc nechápu.
PS: tak komentář buňky G1 požaduje pravý opak 
@MartyZ
Ahoj, náhodou sem narazil na tohle vlákno.
Píšeš, že procházení word souborů není problém, tak sem jen udělal takovou ukázku jak načíst data z ovládacích prvků, které máš umístěné ve vzorovém souboru.
Za chvíli letím do práce, tak jen hrubý nástřel. Neošetřeny případné chyby atd.
Vyzkoušej zda by to takto vyhovovalo.
https://www.connectionstrings.com/
@ elnino
Bez problému soubor otevřu a můžu s ním pracovat. Pokud vytvořím další list a chci přejmenovat na Historie, Excel protestuje.
https://www.linkedin.com/pulse/why-cant-you-name-worksheet-history-excel-ajay-anand
Deš na to moc složitě.
Do toho makra, které se má spouštět pouze jednou dáš na začátek či konec kód pro vložení aktuálního data:Worksheets("historie").Cells(1, 4).Value = Date
a do Private Sub Workbook_Open()
If Worksheets("historie").Cells(1, 4).Value = Date Then Exit Sub
Call MakroCoNecoDela
Pár poznámek:
Cells(1, 4) - není adresa buňky A4
Worksheets("historie") - seš si opravdu jistý jménem toho listu? Excel nepovoluje pojmenovat list jménem historie.
Proč makro? Stejného výsledku dosáhneš vzorcem (DNES) v buňce.
Proměnná rng vrací adresu buňky z listu "List2" hledaného jména. Tedy pro jméno Beáta vrátí adresu $D$2.
Pokud by došlo k tomu, že na nějakém z listů by se vyskytlo jméno, které by nebylo současně přítomno na obou listech vedlo by to k chybě v kódu, protože proměnná rng by byla prázdná.
Řádek If Not rng Is Nothing Then tedy testuje zda proměnná rng není prázdná, pokud by byla znamená to, že hledané jméno nebylo nalezeno a tento kód
Select Case Objednal
Case "AA"
rng.Offset(, 2).Value = Datum
Case "BB"
rng.Offset(, 3).Value = Datum
Case Else
'pro případ, že by položka Objednal neměla hodnoty AA nebo BB
'?????
End Select
by se přeskočil a zobrazil se MsgBox s chybovou hláškou.
Upraveno.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články