Home Excel - Dicas Microsoft Excel VBA Excel VBA - Copiar Excel planilha vba copiar range data determinadas para outra planilha

Excel planilha vba copiar range data determinadas para outra planilha

E-mail Imprimir PDF

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)

Última atualização em Qua, 10 de Agosto de 2011 08:25  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4081
mod_vvisit_counterOntem4432
mod_vvisit_counterEsta Semana30604
mod_vvisit_counterSemana passada46212
mod_vvisit_counterEsse mês17810
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10440639
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA