-
Posts
1 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por Fabio Nalon Cortez
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
VBA - Inserir linha em local fixo
em Microsoft Office e similares
Postado
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