Saberexcel - o site de quem precisa Aprender Microsoft Excel VBA

Esta macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), copia e cola a ultima linha na coluna B na folha de planihas. Exemplo poderá servir em muitas situações 

Sub Copia_ultima_linha()
Dim DadosRange As Range
Dim vUltimaLinha As Integer
Dim vCelula As Range

r = 6

vUltimaLinha = Cells(Rows.Count, "B").End(xlUp).Row
Set DadosRange = Range("B4:B" & vUltimaLinha)

For Each vCelula In DadosRange
  If vCelula.Value > 0 Then
     vCelula.EntireRow.Copy
     Sheets("Plan1").Range("A" & r).PasteSpecial xlPasteValues
    
     r = r + 1
  End If
Next vCelula

End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




  Baixe o exemplo de planiha contendo o macro acima
Excel planilha vba copia ultima linha branco (19.11 KB)

Publicidade
Compre com segurança, garantia e ótimos preços