Například takto:
A řešení je v nastavení zabezpečení zatrhnout:
Soubor sem si stáhl, a hlásí mi toto:
Opravdu nepotřebuješ x maker.
Sub Makro1()
Dim Cil As Range
Set Cil = List1.Range("Q14")
Select Case List1.Range("B1").Value
Case 1
Cil.Value = "Ano"
Case 2
Cil.Value = "Ne"
Case 3
Cil.Value = "Nevím"
Case 4
Cil.Value = "Asi ne"
Case 5
Cil.Value = "Asi ano"
Case Else
Cil.Value = "Vymýšlím hovadiny"
End Select
Set Cil = Nothing
End Sub
Jasně rozumíme, v tom případě požádej původního autora kódu o doplnění.
Nijak, buď zkusíš ve svém storu vyhledat aplikaci s požadovanou funkcionalitou, nebo si ji necháš od někoho napsat.
Pokud vlastníš android, můžeš zkusit kontaktovat uživatele Pavla z https://pc.poradna.net/questions/3031013-napad-na-aplikaci
Ke konci vlákna tam prezentoval podobnou apku, možná by ji upravil podle Tvých potřeb.
Nejjednodušší řešení je ukotvit první řádek a tlačítko umístit tam.
Takto?
Proč bys měl vyhledávat sazbu DPH? Prostě ji jen vepíšeš do tabulky a pak jen SUMIF.
Ahoj, zkus tohle:
Vyzkoušej:
Pravé tl. myši na soubor -> Vlastnosti -> karta Obecné a dole zatrhnout Odblokovat.
Range("D1").FormulaLocal = "=DOSADIT(ZLEVA(A" & j & ";HLEDAT("" "";A" & j & ")+2);"" "";"""")&"" Test_Q"" "
Edit:
nebo lépe
Range("D1").Formula = "=SUBSTITUTE(LEFT(A" & j & ",SEARCH("" "",A" & j & ")+2),"" "","""")&"" Test_Q"" "
Na tohle je super záznamník maker.
Takto vypadá vzorec pro výsledek ve sloupci B a hodnotu čerpanou ze sloupce A
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(LEFT(RC[-1],SEARCH("" "",RC[-1])+2),"" "","""")&"" Test_Q"""
=DOSADIT(ZLEVA(A1;HLEDAT(" ";A1)+2);" ";"")
=DOSADIT(ZLEVA(A1;HLEDAT(" ";A1)+2);" ";"")&" Test_Q"
Do české varianty vzorce se mu vloudila anglická funkce LEN, přepiš na DÉLKA.
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.