poslední věc a už vas snad nebudu otravovat 
potřebuju to propojit s jiným makrem musim nějak změnit tu hlavicku Private sub nebo něco ?citovat
potřebuju to propojit s jiným makrem musim nějak změnit tu hlavicku Private sub nebo něco ?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: označení posledního řádku a mazání
MS Excel
Téma: označení posledního řádku a mazání 
Zaslal/a Hannuman 29.9.2015 7:51
Dobrý den prosím o radu: mam makro a potřebuji když mám u čtvrtého sloupce poslední položku prazdnou tak aby se označil celý řádek a všechno co je pod ním se smazala. nevíte nekdo jak na to ?? díky moc
Strana: « předchozí 1
2
Fúúha, tak teraz Vám už nerozumiem vôbec. Z tohoto makra chcete volať nejaké iné makro ? Stačí do kódu na vhodné miesto (podľa toho čo to má robiť) napr. pred "End Sub" v prípade, že sa má vykonať vždy pri zmene (akejkoľvek):
Call NazovMakra
Ak sa to má vykonať iba vtedy keď sa mažú rie riadky, tak pred "Application.EnableEvents = True" to Call dajte.
Ak má tento proces vymazávania byť volaný z iného makra, tak bude lepšie prerobiť toto makro na proceduru a nie udalosť, a volať procedúru z Vašeho makra.
Nieje problém, len sa musíte vyjadrovať podstatne konkrétnejšie, a urobíme...citovat
Call NazovMakra
Ak sa to má vykonať iba vtedy keď sa mažú rie riadky, tak pred "Application.EnableEvents = True" to Call dajte.
Ak má tento proces vymazávania byť volaný z iného makra, tak bude lepšie prerobiť toto makro na proceduru a nie udalosť, a volať procedúru z Vašeho makra.
Nieje problém, len sa musíte vyjadrovať podstatne konkrétnejšie, a urobíme...citovat
mám vytvořené makro které se nazýva: Sub Makro4() Kod End Sub a potřebuju ho k tomu přiložit aby se spustil nakonci to makro ktery mám od vás:) nebo aby tam bylo uložene protože když ho dám za to End Sub tak už se mi neprovede jen ten kod predtim co jsem si udelal.citovat
posílam jak vypada kod makra
Příloha: 
27123_makropriklad.zip (4kB, staženo 18x)
citovat27123_makropriklad.zip (4kB, staženo 18x)No, akoby som to povedal ... to Vaše makro je hrozné, vymazal som Vám tie tisíce riadkov, zjednodušil mnoho vecí, zrušil Selecty, ale poviem Vám, že minimálne od tej hviezdičkovanej čiary, ktorú som Vám tam urobil, netuším o čo ide. V tom makre sa pokúšate o toľko Selectov, Filtrov, vkladaní riadkov, jednoducho som to nerozlúštil, a vôbec netuším, či som Vám s tým zjednodušovaním neurobil nejakú chybu. Každopádne moje makro som Vám upravil tak, aby sa volalo pomocou Call odkiaľkoľvek, teraz je na konci Vašeho. Čiže už to nemáte tak, že sa spustí automaticky. Spúšťa ho Vaše makro, čiže ako si spustíte to Vaše makro neviem.
Aby som toľko nepísal, tiež nemám čas, ak chcete urobiť z jednej tabuľky úplne inú, a chcete s tým pomôcť, bez reálnych vstupných dát, a reálneho požadovaného výstupu, Vám s tým asi nepomôžem. Pretože je to čistá tipovačka (z mojej strany).
Pozrite sa na to, a niečo s toho snáď použijete.
Aby som toľko nepísal, tiež nemám čas, ak chcete urobiť z jednej tabuľky úplne inú, a chcete s tým pomôcť, bez reálnych vstupných dát, a reálneho požadovaného výstupu, Vám s tým asi nepomôžem. Pretože je to čistá tipovačka (z mojej strany).
Pozrite sa na to, a niečo s toho snáď použijete.
Příloha: 27126_priklad.rar (14kB, staženo 18x)
citovat27126_priklad.rar (14kB, staženo 18x)píše mi to: Runtime Error '424':požadovaný objekt
v radku CR = UsedRange.Rows.Countcitovat
v radku CR = UsedRange.Rows.Countcitovat
Nevoláte to makro z iného zošitu, alebo formulára ? Skúste použiť "With". U mňa všetko OK, ale volám to z aktívneho listu "List1". Ak to bude s "With" tak to môžete volať odkiaľkoľvek.
Příloha: 27132_priklad.rar (16kB, staženo 19x)
citovat27132_priklad.rar (16kB, staženo 19x)
Strana: « předchozí 1
2
Uživatelské menu
Nejste přihlášen(a)
\n
\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