Code:
Sub DodavanjeRedovaREALIZACIJA()
ActiveSheet.Unprotect "1"
Rows("2:2").Select
Selection.EntireRow.Hidden = False
RATR = Range("A" & Rows.Count).End(xlUp).Row - 1
Rows("2:2").Select
Selection.Copy
Range("A" & RATR).Select
ActiveCell.Resize(20).EntireRow.Insert Shift:=xlDown
Rows("2:2").Select
Selection.EntireRow.Hidden = True
With Worksheets("REALIZACIJA unos")
.Protect Password:="1", userinterfaceonly:=True, AllowFormattingRows:=True, AllowFiltering:=True
.EnableOutlining = True
End With
Range("A5").Select
Sub DodavanjeRedovaREALIZACIJA()
ActiveSheet.Unprotect "1"
Rows("2:2").Select
Selection.EntireRow.Hidden = False
RATR = Range("A" & Rows.Count).End(xlUp).Row - 1
Rows("2:2").Select
Selection.Copy
Range("A" & RATR).Select
ActiveCell.Resize(20).EntireRow.Insert Shift:=xlDown
Rows("2:2").Select
Selection.EntireRow.Hidden = True
With Worksheets("REALIZACIJA unos")
.Protect Password:="1", userinterfaceonly:=True, AllowFormattingRows:=True, AllowFiltering:=True
.EnableOutlining = True
End With
Range("A5").Select
Debug javlja problem sa linijom
Code:
ActiveCell.Resize(20).EntireRow.Insert Shift:=xlDown
ActiveCell.Resize(20).EntireRow.Insert Shift:=xlDown