| Descricao: |
 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 Aplicativo Microsoft Excel VBA - SaberExcel
|