Sub Prepisi()
Dim zadnja_vrstica As Long
zadnja_vrstica = List2.Range("D65536").End(xlUp).Row
List1.Range("A4:C100").Copy List2.Range("D" & (zadnja_vrstica + 1))
End Sub
Na to sem vam že odgovarjal, pa sem očitno pozabil pritisniti gumb 'Pošlji'. Definitivno pa sem odgovarjal, ker vem, da sem se razpisal, kako se nisva mogla narobe razumeti, saj dosedaj niste nikoli govorili, da bi želeli vrstice in kolone obračati....
Sub Prepisi()
Dim zadnja_vrstica As Long
zadnja_vrstica = List2.Range("A65536").End(xlUp).Row
If (List2.Cells(zadnja_vrstica, 1).Value <> "") Then zadnja_vrstica = zadnja_vrstica + 1
Dim i As Integer
For i = 1 To 10
List2.Cells(zadnja_vrstica, i) = List1.Cells(i, 1)
Next
End Sub
kako pa se v napisanem makru izognem fiksnemu poimenovanju listov (List1, List2)?
Sam bi na en list (npr. Skupaj) želel združiti podatke iz vseh ostalih listov, imena katerih pa so vsakič drugačna.