Nemělo by být ve VBA spíše VLOOKUP než SVYHLEDAT ?!
Snad sem pochopil zadání, použit maticový vzorec!
Funguje na sloučené i nesloučené buňky
Zbygi napsal/a:
Taky pěkné makro, ale bál bych se že si smažu data.
Což se mi stalo hned napoprvé :(
neoznačil jsem správně první až předposlední, ale poslední a data fuč....
Pro tisk formuláře existuje jen příkaz PrintForm (UserForm1.PrintForm), který tiskne celý Formulář. Pokud chceš nějaký prvek (tlačítko) z tisku vynechat musíš si to ošetřit v kódu. Tedy před samotným tiskem prvek skrýt, vytisknout a opět zobrazit.
Jak sem slíbil, přikládám další variantu.
Pokud se nikdo nechytne, tak Ti to večer až přijdu z práce udělám.
viz předchozí reakce
Ve VBE si zobraz okno Locals
Klávesou F8 krokuj kód
a kontroluj jakých hodnot nabývají proměnné.
Pokud se jedná o soubor *.xlsm, tak jej nejprve musíš zabalit do archivu (*.zip, *.rar, *.7zip).
Jinak to makro co jsi vložil nevkládá řádek, ale sloupec.
Co znamená: vše přestalo fungovat jak má???
Ve VBE si zobraz okno Locals
a kontroluj jakých hodnot nabývají proměnné.
Předpokládám, že Tebou uvedená fce je UDF.
V příloze je podobná fce (stažená z netu), kterou sem upravil. Délka řetězce (počet znaků) se zadává jako třetí parametr v pořadí.
Testování příjmení na duplicity je na pytel. Osobně bych to odstranil. Stačí zakomentovat příslušnou část kódu.
viz soubor
Nějakou dobu sem se v tom šťoural, tak se koukni na výsledek. Nevím zda sem splnil všechny požadavky, ale už na to nemám čas.
Než se elnino vytasí se svým řešením, přikládám to mé. Přiznám se, že sem šel cestou nejmenšího odporu
Řešení pomocí makra viz soubor.
Spuštění přes kartu vývojář nebo ALT+F8 a Spustit
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.