Sub CopyToMaster()
ShtCount = ActiveWorkbook.Sheets.Count
For i = 2 To ShtCount
Worksheets(i).Activate
Range("A7:C44").Select
Selection.Copy
Sheets("Master").Activate
'Required after first paste to shift active cell down one
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial
Next i
End Sub
Nasao sam ovaj code koji sam malo preradi (amaterski), sigurno moze i bolje, posto ne znam gde treba da izmenim da bi mi kopirao sa redom razmaka izmedju podataka (podatak iz sheet1 pa razmak jedan red pa podatak sheet2 pa razmak pa sheet3 itd)?
Ovaj macro kopira neki rang iz svih sheet-ova u jedan master.
Mene zanima (pored onog razmaka) kako da se preurei code i da kopira vise rangova u master znaci pored Range("A7:C44") i jos 3 range A100:A150, A200:A250 i A300:A350?
Sheet master i ostali sheet-ovi su u jednom workbook-u.