Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, contém uma macro que copia dados referente a um determinado intervalo de datas e cola em outra folha de planilha também no mesmo intervalo de datas.


Sub Copiar_dados_para_outra_plan()

Dim vData As String
Dim vColuna As Integer
Dim vEncontrar As Boolean

On Error GoTo Err_Execute

'Retorna o valor da data
vData = Sheets("Planilha Dados").Range("B4").Value

Sheets("Plan").Select

'inicia na coluna(B)
vColuna = 2
vEncontrar = False

While vEncontrar = False

'se encontrar uma célula em branco na linha 2, termina a busca
If Len(Cells(2, vColuna)) = 0 Then
MsgBox "Dados não encontrados.", vbInformation, "http://www.saberexcel.com"
Exit Sub

'dados encontrado após a linha 2
ElseIf Cells(2, vColuna) = vData Then

'Seleciona valor para copiar da "Planilha Dados"
Sheets("Planilha Dados").Select
Range("B5:H6").Select
Selection.Copy

'Cola na "Plan"
Sheets("Plan").Select
Cells(3, vColuna).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

vEncontrar = True
MsgBox "Os dados foram copiados com sucesso!!", vbInformation, "http://www.saberexcel.com"

'continua a procura
Else
vColuna = vColuna + 1
End If

Wend

On Error GoTo 0

Exit Sub

Err_Execute:
MsgBox "Ocorreu um #erro#!", vbInformation, "http://www.saberexcel.com"

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 planilha contendo a macro acima
 vba copiar range data determinadas para outra planilha (21.5 kB)