Bom dia,
Preciso de ajuda para acertar a macro abaixo.
O objetivo é inserir uma nova linha na "11" copiando as fórmulas da 12.
Também poderia ser na última linha antes do fechamento (total).
Sub inserirLinha()
'
' inserirLinha Macro
'
'
ActiveSheet.Unprotect ("BMMCGC")
Range("M11").Select
Rows("13:13").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("12:12").Select
Selection.AutoFill Destination:=Rows("12:13"), Type:=xlFillDefault
Rows("12:13").Select
Range("M11").Select
ActiveSheet.Protect ("BMMCGC"), DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True
End Sub
Desta forma está entrando na linha 13, quando tento colocar na 11 não faz as cópias corretas.
Seria um plus acertar o range para copiar apenas as fórmulas e não valores, e também o contador (col
Abs
Pedido teste_v8.zip