Código em VBA para copiar a última linha para a próxima linha.

[Renato CMJ]

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.

 

 

[Wendell Menezes]

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

 

[Renato CMJ]

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 =]

[Wendell Menezes]

@Renato CMJ , näo se esqueça do like