• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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.

Zaslat odpověď >

---

Poki(16.1.2011 12:10)#003774

asi nejak takto:Sub odstranit_bunky()
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 4)).Delete Shift:=xlUp
End Subcitovat

marficek119(16.1.2011 13:45)#003779

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)

citovat

Poki(16.1.2011 15:36)#003780

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

marficek119(16.1.2011 15:49)#003781

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

marficek119(18.1.2011 19:57)#003821

Prosím o pomoc....citovat

Poki(19.1.2011 12:35)#003831

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.

Příloha: 3831_export-faktura.zip (44kB, staženo 16x)

citovat

marficek119(20.1.2011 19:39)#003846

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

Poki(21.1.2011 11:53)#003855

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.

Příloha: 3855_export-faktura.zip (38kB, staženo 19x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse