MS Excel

Zdravím mam toto makro, kopírování funguje, ale potřeboval bych dopsat aby se
kopírované buňky vkládali do dalšího prázdného řádku ve sloupci.

např:buňka D2 se kopíruje do C4, ale podruhé potřebuji, aby se zkopírovala do
C5 atd...

děkuji za pomoc.

Sub kop data()

Dim strPath2 As String
Dim wbkWorkbook1 As Workbook
Dim wbkWorkbook2 As Workbook

strPath2 = "soubor kam kopíruji data"

Set wbkWorkbook1 = ThisWorkbook
Set wbkWorkbook2 = Workbooks.Open(strPath2)

wbkWorkbook2.Worksheets("List1").Range("F4").Value = _
wbkWorkbook1.Worksheets("Dod.list").Range("O59").Value 'kg

wbkWorkbook2.Worksheets("List1").Range("C4").Value = _
wbkWorkbook1.Worksheets("Tab vyzt").Range("D2").Value 'odběratel

wbkWorkbook2.Worksheets("List1").Range("D4").Value = _
wbkWorkbook1.Worksheets("Tab vyzt").Range("D3").Value 'část

wbkWorkbook2.Worksheets("List1").Range("E4").Value = _
wbkWorkbook1.Worksheets("Tab vyzt").Range("D4").Value 'č.v.

wbkWorkbook2.Worksheets("List1").Range("G4").Value = _
wbkWorkbook1.Worksheets("Dod.list").Range("O60").Value 'm

'zavření
wbkWorkbook2.Close (True)

End Sub

Zaslat odpověď >

Vovka(10.12.2015 9:49)#028605

Co znamená "podruhé potřebuji"? Budu předpokládat, že chcete plnit první volný řádek na listu List1. V tom případě si napřed zjistěte číslo N pro první volný řádek a pak místo Range("C4") plňte Cells(N, 3) atd.citovat

solar(10.12.2015 10:03)#028607

díky za odpověď. Potřebuji aby se mi buňky nepřepisovali, ale
aby se pokaždé když stisknu makro nakopírovali pod buňku která
byla kopírovaná před ní. po zadání cells se buňky přepisují.citovat

Vovka(10.12.2015 10:14)#028609

Nějak nevím, jestli reagujete na můj příspěvek. Pokud ano, pak nejspíš vaše makro nehledá správně první volný řádek (zpravidla se používá vyhledání posledního obsazeného, k němuž se připočítá jednička).citovat

Téma: kopírovat do další prázdné buňky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje