Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 ajuda copiar várias planilhas em apenas uma

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Dimas Rocha



Mensagens : 1
Data de inscrição : 30/08/2012

MensagemAssunto: ajuda copiar várias planilhas em apenas uma   Qui Ago 30, 2012 8:35 pm

Olá...
Sintetizando...
preciso copiar várias planilhas (cada uma com duas abas) em apenas uma, na última coluna colar o nome da planilha copiada.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: ajuda copiar várias planilhas em apenas uma   Sex Ago 31, 2012 3:33 am

Boa noite!!

Só o que foi dito não basta...



http://www.planilhando.com.br/forum/viewtopic.php?f=21&t=5354

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Tcalderoni



Mensagens : 2
Data de inscrição : 11/09/2012

MensagemAssunto: Re: ajuda copiar várias planilhas em apenas uma   Qua Set 12, 2012 3:21 am

Isso é muito simples.
Você vai usar isso apenas uma vez? ou isso será uma rotina que vai se repetir varias vezes?
Se for repetir varias vezes crie um padrão de nomenclatura para suas planilhas.
O primeiro passo e criar uma função para abrir as planilhas, algo do tipo

Private Sub CommandButton1_Click()
Workbooks.Open ("C:\Documents and Settings\Administrador\Meus documentos\B.xls")
End Sub

Se tiver tudo na mesma pasta eu gosto mais de usar a função ThisWorkbook."sua planilha.xlsx"

Apos feito isso faça um laço para percorrer as abas uma a uma, algo do tipo

'Primeiro você seleciona a planilha que contem os dados
window("sua planilha.xlsx").activate
'depois faz um laço dentro dessa planilha

'for each ws in worksheets
plan = ws.name
sheets(plan).select
'pega a ultima celula com valor
rLast = Range("A1048576").End(xlUp).Row
'seleciona os dados a serem copiados ate rlast

'seleciona a planilha para consolidar
window("plan consolidada").activate
'pega a ultima celula com valor para saber a partir de que celula vai colar
rLast = Range("A1048576").End(xlUp).Row +1
'cola e volta para a planilha com dados

window("planilha com dados").activate

next

'repete isso para cada workbook que não tem erro.

abs
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: ajuda copiar várias planilhas em apenas uma   Hoje à(s) 8:53 am

Voltar ao Topo Ir em baixo
 
ajuda copiar várias planilhas em apenas uma
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Entrando de férias até dia 02/02/2011
» Ajuda Ndrive
» ajuda ajuda kies
» meu novo jogo[ajude-me a criar um historia]
» [Ajuda]Como fazer sistema de dinheiro "money"

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: