Dobry den prosím Vas potreboval by som pomoct. Potreboval by som presuvat hodnoty z harku 1 a harku 3 do harku 2 tak aby bolo vedla seba (isli subezne). Lenze ked mam takyto zdrojovy kod ktory tu pripnem tak mi to robi paseku prvy hodnoty su v poriadku lenže tie ostatne robia paseku posunu sa o x nižie nechapem preco.
dakuje za rady tu je kod
Sub ALL()
Workbooks("ma.xlsm").Activate
Hárok1.Select
Range("j2
2").Copy
Hárok2.Select
Range("a10000").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Hárok3.Select
Range("h3:m3").Copy
Hárok2.Select
Range("g10000").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.OnTime Now + TimeValue("00:30:00"), "ALL"
End Sub