Příspěvky uživatele
< návrat zpět
V tom případě sem vlož vzorový soubor a někdo se na to určitě mrkne.
Za prvé si řádně deklaruj proměnné, a, b a c máš deklarovány jako Variant a d jako Integer
Zobraz si v editoru okno Locals ať vidíš jakých hodnot proměnné nabývají. Hlavně proměnná c (počet řádků). Být Tebou tak změním d na Long.
Taky si oprav tu podmínku.
If Len(Text) = O Then - Tohle není NULA, ale velké ó.
Chyba je v deklaraci proměnné d viz
http://wall.cz/excel-navod/deklarace-promennych-a-prehled-datovych-typu-vba
protože c= rows.count > c = 1048576
Načíst hodnoty do ComboBoxu při otevření sešitu.
Worksheets("List1").Range("B" & beta + 1 & ":B" & alfa + 28).Value = Worksheets("List2").Range("A2:A" & alfa).Value
Něco ve smyslu
Select case ovl.prvek
Case CZ
proměnná = "dodavatel"
Case EN
proměnná = "supplier"
End Select
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ř.
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