[ snenad_82 @ 28.07.2017. 12:51 ] @
Koristim macro za otključavanje sheeta, unos 20 novih redova, sa kopiranjem reda broj dva u iste (2. red sadrži sve formule i formatiranja koje želim da zadržim) i ponovno zaključavanje sheeta. Sve odlično funkcioniše dok nisam probao da formatiram deo sheeta u kome se radi kao tabelu u želji da preko Pivot tabela oformim još neki izveštaj. Da li neko zna šta i kako trebam da prepravim da bi kod za dodavanje 20 novih redova na kraju radio i kada je deo formatiran kao tabela. 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 Debug javlja problem sa linijom Code: ActiveCell.Resize(20).EntireRow.Insert Shift:=xlDown |