Detalhes de Excel planilha vba copia ultima linha branco

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





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