Makro - nalezení prvního volného řádku

[Niki2]

Ahoj, moc prosím, můžete mi napsat makro pro nalezení prvního volného řádku a vložení dat? Mám tady od kolegyňky tohle, jenže nevim přesně, co to dělá, a tak to neumim upravit. Chtěla jsem vždycky najít první volný řádek a do třetího sloupce vložit zkopírovaná data..předem moc díky.

Application.ScreenUpdating = False
j = 0
i = ActiveCell.Row
lCol = Worksheets("Raw_header").Cells(i, Columns.Count).End(xlToLeft).Column

Do
If lCol = 1 And Trim(Cells(i, 1).Value) = "" Then
Cells(i, 3).Select
j = 1
Else:
Cells(i + 1, 1).Select
j = 0
i = ActiveCell.Row
lCol = Worksheets("Raw_header").Cells(i, Columns.Count).End(xlToLeft).Column
End If
Loop While j = 0

Application.ScreenUpdating = True

[Reklama]

[rk9]

Ahoj, zkus se kouknout zde: http://office.lasakovi.com/excel/vba-li ... -vba-kody/

[Niki2]

Mno, poctivě jsem to přečetla, ale zrovna dvakrát tomu nerozumim:/..

[Nefer]

rk9 mel nejspis na mysli tohle

Kód: Vybrat vše

PosledniPlnyRadek = Cells(Rows.Count, "C").End(xlUp).Row ' Ve sloupci C

Jestli tam teda chces vlozit neco ze schranky, pouzij neco v tomhle stylu

Kód: Vybrat vše

Range("C1").Offset(PosledniPlnyRadek).Select
ActiveSheet.Paste

Snad to pomuze