Ir ao conteúdo

Posts recomendados

Postado

Boa noite amigos, preciso da ajuda de vocês com um código..

Preciso completar esse código:

 

Sub inserirlinha()

Application.ScreenUpdating = False

Range("A" & Rows.Count).End(xlUp).Select

Intersect(Selection.EntireRow, _
Range("A:j")).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

 

O excel deve analisar a última linha preenchida. caso nesta linha, as colunas Ax ou Bx (pode ser só uma ou as duas) estejam preenchidas, a linha A até J deve ser copiada e colada logo abaixo, porém os campos da coluna A e B devem estar vazios e os outros (C ATÉ J que conterão fórmulas), deverão estar com as fórmulas.

 

 

Sem título.png

Postado
Sub InserirLinha()

Dim LR As Long

LR = Cells(Rows.Count, 3).End(xlUp).Row

Application.ScreenUpdating = False
    If Cells(LR, 1) <> "" Or Cells(LR, 2) <> "" Then
        Range(Cells(LR, 3), Cells(LR, 10)).Copy Range(Cells(LR, 3), Cells(LR, 10)).Offset(1, 0)
        Application.CutCopyMode = False
    End If
Application.ScreenUpdating = True

End Sub

 

  • Curtir 1
Postado
18 horas atrás, Wendell Menezes disse:

Sub InserirLinha()

Dim LR As Long

LR = Cells(Rows.Count, 3).End(xlUp).Row

Application.ScreenUpdating = False
    If Cells(LR, 1) <> "" Or Cells(LR, 2) <> "" Then
        Range(Cells(LR, 3), Cells(LR, 10)).Copy Range(Cells(LR, 3), Cells(LR, 10)).Offset(1, 0)
        Application.CutCopyMode = False
    End If
Application.ScreenUpdating = True

End Sub

 

Funcionou perfeitamente! Obrigado Wendell =]

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

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

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!