WWW pro školy
Jak na Office - tutoriály, video návody











Vytvoř si párové triko

Poradna - Ahoj všichni, kteří umí VBA můžu požádat o radu?

hlavní kategorie | zpět | + odpovědět na toto téma
Ahoj všichni, kteří umí VBA můžu požádat o radu? - diskuze na toto téma
Potřebuji vytvořit makro pro tlačítko v exelu a to: zkopírování pojmenované oblasti (TEST) skládající se z buněk na listu1 B-5 až G-5 na řádek B-9 až G-9 a to za podmínky že je prázdný, pokud ne tak na následující volný. Pokud lze něco takového napsat budu za každou pomoc velmi vděčný.

pidlla | 14.8.2014 14:42  
 
 
Sub oEmpty() Dim Radek Radek = ActiveCell.Row Radek = 9 Do While WorksheetFunction.CountA(Range("A" & Radek, "P" & Radek)) <> 0 Radek = Radek + 1 Loop Range("B5:G5").Select Selection.Copy Range("B" & Radek).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub
Odpověď
pidlla | 14.8.2014 14:49  
 
 
Ještě ukázkový soubor
Odpověď
Lunovov | 14.8.2014 19:53  
 
 
To je přesně ono :-) DÍKY MOC JSEM TI ZAVÁZÁN. Ještě jeden dotaz: šlo by místo přidání na další řádek udělat přidávání tak aby poslední kopírovaný údaj byl vždy nahoře. p.s. pokud jsi z Brna a okolí máš u mě flašku :-)
Odpověď
pidlla | 14.8.2014 22:17  
 
 
Poslední kopírovaný údaj má tedy být vždy v B9:G9? A předchozí hodnoty co byly v B9:G9 stlačit o řádek níž nebo rovnou vymazat?Ono po malých úpravách to bude úplně jiný VBA kód :). Poku mne nikdo nepredbehne, tak se na to mrknu o vikendu.
Odpověď
Lunovov | 15.8.2014 14:39  
 
 
Ano přesně jak píšeš "Poslední kopírovaný údaj má tedy být vždy v B9:G9? A předchozí hodnoty co byly v B9:G9 stlačit o řádek níž" Nic nemazat. Dík a noboj i když tě někdo předběhne, počkám si na tvoji verzi. Jen ať tě zbytečně nezaměstnávám :-) Díky
Odpověď
pidlla | 16.8.2014 21:11  
 
 
Obě řešení jsou v sešitě.
Odpověď
Lunovov | 17.8.2014 00:11  
 
 
Jsi opravdu ochotný a za to díky moc!! Je to přesně to co jsem potřeboval Díky Díky
Odpověď