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
Něco pro inspiraci http://office.lasakovi.com/excel/vba-listy-bunky/r adky-sloupce-excel-vba-kody/#0… Siki83 07.10.2013 22:28	Siki83	07.10.2013 22:28
To jsem taky našel, zkoušel jsem to napasovat na svůj kód a nějak se mi to nezadařilo, napadlo mě po… HonzaB 08.10.2013 15:11	HonzaB	08.10.2013 15:11
Taks to napasoval blbě (pokud neuvedeš kód, nic jiného Ti říct nemůžeme). Cpát do toho cykly je zbyt… nový MachR55 11.11.2013 10:13	MachR55	11.11.2013 10:13
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

Něco pro inspiraci
http://office.lasakovi.com/excel/vba-listy-bunky/r adky-sloupce-excel-vba-kody/#02

To jsem taky našel, zkoušel jsem to napasovat na svůj kód a nějak se mi to nezadařilo, napadlo mě použít i Do..Loop, ale za boha nevím jak to implementovat

Taks to napasoval blbě (pokud neuvedeš kód, nic jiného Ti říct nemůžeme). Cpát do toho cykly je zbytečný zpomalení. Tento kód:

PosledniPlnyRadek = Range("A1").End(xlDown).Row ' Ve sloupci A 
PrvniPrazdnyRadek = PosledniPlnyRadek + 1 
MsgBox "První prázdný řádek má číslo: " & PrvniPrazdnyRadek

prostě musí fungovat!
Jen musíš v prvním řádku místo "A1" zvolit tu správnou buňku. Jediná komplikace spočívá v tom, že pro správnou funkci výše uvedeného kódu musí sloupec obsahovat souvislý blok obsazených buněk. Tzn. - pokud třeba máš první řádek prázdný, pak máš v řádcích 2 a 3 nějaké záhlaví tabulky, pak opět 1 řádek prázdný, a teprve od pátého řádku jsou již obsazené buňky souvislé, tak v příkazu místo "A1" napíšeš "A5".

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