Ja bi isto uradio kao što kolega @djux66 savjetuje u postu iznad. (desnom tipkom miša uhvatiš za
"FillHandle -> Copy Cells")
Evo ti VBA makronaredba, ako želiš klikati :)
Sličan VBA sam nekada koristio za druge svrhe, pa sam prilagodio tvom zahjevu.
Code:
Sub CopyPasteRange()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Rows.Range("A3:A11").EntireRow.Hidden = False
Set copySheet = Worksheets("Sheet1")
Set pasteSheet = Worksheets("Sheet1")
copySheet.Range("A3:M11").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
Rows.Range("A3:A11").EntireRow.Hidden = True
Cells(104536, 1).End(xlUp).Offset(0, 0).Select 'za Excel 2007 i noviji
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sigurno postoji elegantniji način.
Uoči u primjeru da je ROWS 3:11 Hidden (skriveni). Oni se u stvari kopiraju pri svakom kliku na VBA button.
Nakon kopiranja range, u stupcu 'A' merged ćelija je obojana crvenom bojom.
Kada upišeš datum boja nestane (ovo je samo "kontrola" da bi obratio pažnju i upisao datum)