Ir ao conteúdo
  • Cadastre-se

Fabio Nalon Cortez

Membro Júnior
  • Posts

    1
  • Cadastrado em

  • Última visita

Reputação

0
  1. 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

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

×
×
  • Criar novo...