Makro VBA -kopírování do první prázdné buňky

Zdravím všechny,
hodně jsem googloval, ale odpověď, která by řešila můj problém jsem nenašel, proto se obracím na Vás.
Píšu jednoduché makro, které má za úkol zkopírovat buňky z jednoho listu a vložit do druhého. Ve druhém listu je seznam a já chci, aby se data z prvního sešitu ukládala do druhého listu postupně (aby tvořili seznam, tj. vložení do první prázdné buňky).
Tady je můj kód

Sub faktura_vydana()
Sheets("FAKTURA").Activate 'vybere listu faktura
Range("J15").Select
Selection.Copy 'vybere buňku a zkopíruje
Sheets("VYDANÉ FAKTURY").Activate 'vybere list vydané faktury
xx xxxxx 'zde by měl být příkaz na vložení dat do prvního volného řádku ve sloupci

End Sub

Za jakoukoli radu/odkaz předem velice děkuji!

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
Pro případné další, téma bylo již vyřešeno (9.10) přes e-mail. Edit: Pokud by někoho zajímal kód ta… poslední Siki83 11.11.2013 15:30	Siki83	11.11.2013 15:30

Pro případné další, téma bylo již vyřešeno (9.10) přes e-mail.

Edit:
Pokud by někoho zajímal kód tak zde.

Sub faktura_ulozit()
Dim Radek As Long

Radek = Worksheets("VYDANÉ FAKTURY").Cells(Rows.Count, 1).End(xlUp).Row + 1 'najde poslední plný řádek a přičte 1
'Debug.Print Radek

Worksheets("VYDANÉ FAKTURY").Cells(Radek, 1) = Worksheets("FAKTURA").Range("J14").Value 'datum
Worksheets("VYDANÉ FAKTURY").Cells(Radek, 2) = Worksheets("FAKTURA").Range("H3").Value 'odberatel
Worksheets("VYDANÉ FAKTURY").Cells(Radek, 3) = Worksheets("FAKTURA").Range("D13").Value 'forma uhrady
Worksheets("VYDANÉ FAKTURY").Cells(Radek, 4) = Worksheets("FAKTURA").Range("I49").Value 'castka
Worksheets("VYDANÉ FAKTURY").Cells(Radek, 5) = Worksheets("FAKTURA").Range("J16").Value 'datum splatnosti
End Sub

Zpět do poradny Odpovědět na původní otázku Nahoru