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

Saberexcel - o site de quem precisa aprender Micros Microsoft Excel VBA

Estes macro do aplicativo Microsoft Excel VBA, copia os dados da célula Plan2(I7) para as células F7 e I5 da Plan1, também fiz um macro que copia
dados de outro livro ativo para uma determinada folha planilha. Espero que os exemplos possam lhe ser útil. fique com Deus, Expedito Marcondes
'- - - - - - - - - -
Sub sbx_copia_Dados()
Saber1.Range("F7") = Saber2.Range("I5").Value
Saber1.Range("F7").Copy Saber1.Range("I5")
Application.CutCopyMode = False
MsgBox ("Dados copiados com o macro 'sbx_copia_dados'"), vbInformation, "Saberexcel - o site das macros"
End Sub
'- - - - - - - - - -
Sub sbx_copiar_saberexcel()
Saber1.[F7] = Saber2.[I5]
Saber1.[F7].Copy Saber1.[I5]
MsgBox ("Dados copiados com o macro 'sbx_copiar_saberexcel'"), vbInformation, "Saberexcel - o site das macros"
End Sub

'reproduza o exemplo deste macro para teste, pois não fiz neste livro exemplo. (por precisar de 2) ok...
Sub sbx_copiando_dados_outro_livro()
Dim wkb1 As Workbook, wkb2 As Workbook
Dim vRange1 As Range, vRange2 As Range

Set wkb1 = Workbooks("wkb1") 'nome do primeiro livro
Set wkb2 = Workbooks("wkb2") 'nome do segundo livro

Set vRange1 = wkb1.Worksheets("Plan1").Range("A1")
Set vRange2 = wkb2.Worksheets("Plan1").Range("A1")

[vRange1].Copy [vRange2].PasteSpecial 'xlPasteValues

End Sub

'- - - - - - - - - -
Sub sbx_limpar_teste()
Saber1.[F7,I5].ClearContents
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.