asi nejak takto:Sub odstranit_bunky()
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 4)).Delete Shift:=xlUp
End Subcitovat
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 4)).Delete Shift:=xlUp
End Subcitovat
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: Posun řádku
MS Excel
Téma: Posun řádku 
Zaslal/a marficek119 16.1.2011 10:43
Ahoj,
opět bezradný.
Potřebuji pomocí makra udělat, aby když je kurzor na libovolném řádku v tabulce se vymazala data pouze ve sloupci A:D v daném řádku. A ostatní řádky pod ním by se posunuly o jeden řádek výše. Odstranit aktivní řádek ale nemůžu, jelikož je ve sloupci E vzorec. Makro by se zpouštělo ovládacím tlačítkem.
Poradíte někdo?
M.
Ahoj a díky funguje. Nicméně to není nejtastnější řešení mého problému. Napadlo mě asi efektivnější. K řádkům jsem přidal zaškrtávací tlačítka, tím bych označil řádky (oblast vymazání je v příkladu označena šedě) a tlačítkem bych hromadně buňky v řádcích odstranil. Bez posuvu řádku na horu, to vyřeším hromadným skrytím prázdných buněk. Pomůžeš, prosím?
Příloha: 
3779_export-faktura.rar (33kB, staženo 13x)
citovat3779_export-faktura.rar (33kB, staženo 13x)No mozna si ne uplne rozumime.
Ono nelze skryt bunky (lze skryt jen cele sloupce nebo radky). Stejne tak nelze odstranit bunky bez jejich posunu.
Spis by bylo dobre, kdybych vedel, co ma byt cilem teto procedury a navrhl bych nejlepsi reseni.
Prijde mi to spis jako, ze by stacilo smazat obsah bunek (ne je odstranovat)...citovat
Ono nelze skryt bunky (lze skryt jen cele sloupce nebo radky). Stejne tak nelze odstranit bunky bez jejich posunu.
Spis by bylo dobre, kdybych vedel, co ma byt cilem teto procedury a navrhl bych nejlepsi reseni.
Prijde mi to spis jako, ze by stacilo smazat obsah bunek (ne je odstranovat)...citovat
Máš pravdu, špatně jsem se vyjádřil, buňky vymazávat ne, jen vymazat data z buněk. Princip je takový, že budu mít jakýsi mustr faktury, který se bude jen obměňovat. Tzn. že př. položku v řádku 8 a 9 budu potřebovat dát z faktury pryč, tak si označím řádek a data v buňce budou vymazána. Buď budou nahrazena novou položkou, nebo pomocí makra řádek skryji, aby tam nevznikalo prázdné místo.citovat
Prosím o pomoc....citovat
Upravil jsem kod na smazani obsahu z radku a upravil jsem taky kod pro export listu.
Odstranil jsem moznost aktivni list, protoze aktivni list je vzdycky list 'Faktura' (formular se spousti z listu Faktura). Pokud budete potrebovat upravit nazvy listu, musí být stejné popisky na userformu pro jednotlive listy.
Odstranil jsem moznost aktivni list, protoze aktivni list je vzdycky list 'Faktura' (formular se spousti z listu Faktura). Pokud budete potrebovat upravit nazvy listu, musí být stejné popisky na userformu pro jednotlive listy.
Příloha: 3831_export-faktura.zip (44kB, staženo 16x)
citovat3831_export-faktura.zip (44kB, staženo 16x)Díky, funguje dle očekávání super. Ten export aktivního listu jsem myslel, že budu userform spouštět i z jiných listů. Časem přibudou další a nerad bych je všechny vypisoval do Userformu, proto jsem myslel exportovat aktivní list. Ostatní vypsané se zaškrtávacímí políčky bych nechal, protože tyto listy spolu mají (budou mít) souvislost.
Do budoucna budou v sešitě listy, které budu potřebovat exportovat jednotlivě.
Mcitovat
Do budoucna budou v sešitě listy, které budu potřebovat exportovat jednotlivě.
Mcitovat
Pridal jsem export aktivniho listu, jen jsem musel osetrit to, kdyz je aktivni list ten, ktery je mezi explicitne vyjmenovanymi, aby nebyly duplicity.
Snad je to OK.
Snad je to OK.
Příloha: 3855_export-faktura.zip (38kB, staženo 19x)
citovat3855_export-faktura.zip (38kB, staženo 19x)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