Word
Excel
PowerPoint
Access
Outlook
ECDL
Poradna - Ahoj všichni, kteří umí VBA můžu požádat o radu?
Vložení příspěvkuhlavní 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ý. 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ěď 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ěď 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ěď 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ěď Jsi opravdu ochotný a za to díky moc!!
Je to přesně to co jsem potřeboval
Díky Díky Odpověď |
