ide tam o nieco matematicke, co sme sa ucili na zakladnej skole - trojčlenka.
Třeba
Maticový vzorec, jeho zadání se ukončí CTRL+SHIFT+ENTER
???
With wsData
MaxR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
With .Cells(MaxR, 1).Resize(R, S)
.NumberFormat = "General"
.Formula = "=REPT(" & Vzorec & "A2,1)"
.NumberFormat = "@"
.Value2 = .Value2
End With
End With
Snažíš se dělat průměr z TEXTU nikoliv čísla.
Označen sloupec E -> CTRL+H -> najit "tečku", nahradit "čárku"
rozlišuje malá a velká písmena v textu, což už je větší problém
Funkci NAJÍT vyměň za HLEDAT a máš po problému.
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.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.