vlozeni noveho radku makrem

[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

[Reklama]

[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í.

[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

[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!

[mmmartin]

Sub
'
Selection.EntireRow.Insert
End Sub

Dáš kurzor na řádek, nad kterým má být ten vložený, a spustíš maro.

[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.

[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.

[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 Sub

Bohuž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á...

[kyklop]

díky ti moc za pomoc!

[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 Sub

Mí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.