Stránka 1 z 1
vlozeni noveho radku makrem
Napsal: 01 úno 2007 11:02
od cardis
zdravim potrebuju poradit
mam sablonu kam vkladam vykresy a tech je vzdy jinak. Potrebuju makrem nejak vlozit radky.
Potrebuju vlozit radek za urcity radek a aby mel stejne vlastnosti jako ten vychozi dekuji moc
Napsal: 01 úno 2007 11:54
od Jan Pašek
POkud jde o vložení na konec tabulky kde ještě nejsou buňky naformátované Je močné použít kopírování a funkci Vložit jinak. Pokud je třeba vkládat do středu tabulky asi bych použil znovu kopírování tedy označit oblast CTRl+c přesun kurzoru na řádek kam se má vložit Ctrl+ + a nakonec stisk delete vymažou se hodnoty formáty zůstanou. Do makra lze zapsat pomocí funkce Záznam makra pokud to má být stále na stejné místo nesmí být označeno relativně.
Určitě to jde ještě jinak ale to bych si musel s tím hrát moje znalosti jsou více méně povrchní.
Napsal: 13 úno 2007 11:14
od kropec
Sub Makro1()
Rows("10:10").Select 'řádek 10
Selection.Copy
Rows("11:11").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
Application.CutCopyMode = False
End Sub
Napsal: 15 led 2008 11:59
od kyklop
Ahojda,
potřeboval bych poradit s úpravou toho makra zde uvedeného a to tímto způsobem:
Toto makro přidá vždy řádek pod řádek 10, mno, a já bych potřeboval, aby se nový řádek vytvořil vždy POD nově přidaným, čili začnu u řádku 10, přidá se řádek 11 a pak se vloží další řádek pod nově vytvořený, tedy pod 11 se vloží řádek 12. Jde to nějak? Díííky za pomoc!
Napsal: 15 led 2008 12:42
od mmmartin
Sub
'
Selection.EntireRow.Insert
End Sub
Dáš kurzor na řádek, nad kterým má být ten vložený, a spustíš maro.
Napsal: 15 led 2008 13:26
od kyklop
Toto je řešení, nicméně bych to potřeboval 100% zautomatizovat, aby se vždy nový řádek vytvořil před posledním vytvořeným, bude u toho sedět človíček, který tomu moc nehoví... mocmoc díky.
Napsal: 15 led 2008 14:20
od Jan Pašek
Tak přiděl makru klávesovou zkratku nebo dej hypertextový odkaz doposlední buňky vřádku kam vkládáš data pokud ti kurzor posouvá po entru do prava jednou enter potvrdím vložené údaje do poslední buňky v řádku podruhé enter spustím makro.
Napsal: 15 led 2008 14:30
od mike007
Stejné vlastnosti myslíš jako stejný formát buněk kopírovaného řádku?
Tady je makro :
Kód: Vybrat vše
Sub vlozit_radek()
Selection.Offset(1, 0).EntireRow.Insert
End SubBohužel Excel si nebude stále pamatovat kam předtím umístil nový řádek. Je vždy potřeba kliknout na poslední řádek a spustit makro. Makro pod posledním řádkem vytvoří řádek nový se stejným formátem.
Také by bylo dobré toho človíčka, který tomu nehoví malinko zaškolit. U nás v práci se to běžně dělá...
Napsal: 16 led 2008 06:57
od kyklop
díky ti moc za pomoc!
Napsal: 17 led 2008 10:14
od mikel
Pokud to chceš plně zautomatizovat (bez zaškolení toho človíčka), můžeš makro upravit tímto způsobem:
Kód: Vybrat vše
Sub vlozit_radek()
Range("A1").End(xlDown).Offset(1, 0).EntireRow.Insert
End SubMísto buňky A1 tam musíš dát buňku z prvního řádku tabulky a sloupce, kde je na každém řádku nějaký údaj (nesmí být uprostřed tabulky prázdná buňka).
Příklad: Tabulka hodnot začíná na řádku 3 a ve sloupci A. Ale ve sloupci A se může vyskytnout prázdná buňka (třeba číslo výkresu, které se teprve později přidělí), ve sloupci B je vždy (na každém řádku) nějaká hodnota (název vytvořeného výkresu). V tom případě namísto A1 vložíš do makra buňku B3.