Página 1 de 1
copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 09:22
por nmareis
Bom dia,
gostaria de saber se é possivel copiar determinada informação de diversas folhas diferentes para uma folha e ordenar essa informação sem espaços vazios em outra folha com macro..exemplo: tenho uma coluna em todas as folhas com uma determinada data e quero que ao clicar na macro ela copie todos os dados que são das linhas com a coluna com essa data ( de todas as folhas ) para a minha folha final.
obrigado
Re: copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 12:25
por alexandrevba
Boa tarde!!
Poste seu arquivo modelo e nele contendo o resultado pretendido (Antes e Depois).
Att
copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 12:44
por nmareis
Gostava de saber se posso colocar aqui os ficheiros em formato excell...assim talvez fosse mais fácil, que me diz?
copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 12:52
por nmareis
Antes:
Livro 1
Expediente Ordem Concelho Freguesia X Rua Nº/LT/Nome Ramal Sem. Máx. Data de Exec.
P11082017010011 PC51022604 Águeda Aguada de Cima Rua Cruzeiro da Paz Nº 75/73 RC 01-03-2017
P11082017010018 PC51023009 Águeda Aguada de Cima Rua Cruzeiro da Paz Nº 45 RC 01-03-2017
P11082016040004 PC51019049 Águeda MOURISCA DO VOUGA Rua Cimalhas 12 31-12-2017
P11082016050015 PC51019047 Águeda MOURISCA DO VOUGA Rua Cimalhas 16 31-12-2017
P11082016050022 PC51019255 Águeda MOURISCA DO VOUGA Rua Cimalhas 20 31-12-2017
P11082016050014 PC51019043 Águeda MOURISCA DO VOUGA Rua Cimalhas 6 31-12-2017
P11082016040002 PC51019925 Águeda MOURISCA DO VOUGA Rua Cimalhas 3 31-12-2017
P11082016100029 PC51019774 Águeda MOURISCA DO VOUGA Rua Cimalhas 8 31-12-2017
P11082016050001 PC51018777 Águeda MOURISCA DO VOUGA Rua Pilatos 9000 - BL1 31-12-2017
P11082016040005 PC51018736 Águeda MOURISCA DO VOUGA Rua Pilatos 47 31-12-2017
Livro 2
P11022016100007 PC51019726 Albergaria-a-Velha Albergaria a Velha Rua Senhora Socorro 130 31-12-2017
P11022016120003 PC51022300 Albergaria-a-Velha Albergaria a Velha Rua Senhora Socorro 104 31-12-2017
P11022017010014 PC51023715 Albergaria-a-Velha Albergaria a Velha Rua Senhora Socorro 34 RC 01-03-2017
P11022017010009 PC51024175 Albergaria a Velha Albergaria a Velha Rua Vale (Rua João de Pinho) 9000 - FVALE LJ RC 01-03-2017
P11022016120001 PC51022296 Albergaria-a-Velha Albergaria a Velha Rua Senhora Socorro 5 RC 01-03-2017
Livro 3
P12092016100005 PC51019523 MdM21/15 Proc.5216 Mogofores Rua São João Bosco 42 RC 30-11-2016
P12092015070010 PC51000773 Anadia Sangalhos Rua do Passadiço Nº 200 31-12-2017
P12092017010002 PC51023764 Anadia Arcos Rua Chafariz - Famalicão 12
P12092016120002 PC51023763 Anadia Avelãs de Cima Rua do Campo - Candeeira 2
P12092017010004 PC51023933 Anadia Tamengos Rua Palmeiras - Mata da Curia 68
resultado Final:
Ordem de Trabalho Expediente Morada do Imóvel Local da Intervenção/Caixa Corte Geral Tipo de Ramal Data de execução
Concelho Freguesia Localidade Pref. Local Nº Duplicador
PC51022604 P11082017010011 Águeda Aguada de Cima Aguada de Cima Rua Cruzeiro da Paz Nº 75/73 RC 1-mar-17
PC51023009 P11082017010018 Águeda Aguada de Cima Aguada de Cima Rua Cruzeiro da Paz Nº 45 RC 1-mar-17
PC51023715 P11022017010014 Albergaria-a-Velha Albergaria-a-Velha Albergaria-a-Velha Rua Senhora Socorro 34 RC 1-mar-17
PC51024175 P11022017010009 Albergaria a Velha Albergaria a Velha Albergaria a Velha Rua Vale (Rua João de Pinho) 9000 - FVALE LJ RC 1-mar-17
PC51022296 P11022016120001 Albergaria-a-Velha Albergaria-a-Velha Albergaria-a-Velha Rua Senhora Socorro 5 RC 1-mar-17
PC51023764 P12092017010002 Anadia Anadia Arcos Rua Chafariz - Famalicão 12 RC 1-mar-17
PC51023763 P12092016120002 Anadia Anadia Avelãs de Cima Rua do Campo - Candeeira 2 RC 1-mar-17
PC51023933 P12092017010004 Anadia Anadia Tamengos Rua Palmeiras - Mata da Curia 68 RC 1-mar-17
os seja...apenas foram copiados os resultados referentes á data de 1/3/2017 de todos os livros..
Re: copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 12:59
por alexandrevba
Boa tarde!!
Foi isso que eu disse, favor postar seu arquivo modelo!!!!!!!!!!!!!!!
Att
copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 13:02
por nmareis
desculpe sou novo por aqui...o que postei chega para lhe esclarecer o que pretendo?..
copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 13:03
por nmareis
colocava os ficheiros mas não sei como o fazer
Re: copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 13:06
por alexandrevba
Boa tarde!!
Gostava de saber se posso colocar aqui os ficheiros em formato excell...assim talvez fosse mais fácil, que me diz?
Por favor poste seu arquivo!
Para anexar seu arquivo, verifique que abaixo do corpo do seu post na hora de responder tem a opção
Adicionar um anexo, click nela, selecione o arquivo depois click em enviar.
Att
copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 13:11
por nmareis
cá vão os anexos...envio as folhas de onde e para onde quero que passe a informação. depois é só ajustar o código a futuros ficheiros que possam existir...vai em formato rar...é só descompactar e verificar...pode acrescentar alguma coluna se assim achar necessário..obrigado
Re: copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 13:19
por alexandrevba
Boa tarde!!
Qual o campo (coluna) ou critério que eu vou me basear para copiar esses dados.
No arquivo Livro2 da guia Folha1 e arquivo Livro3 da guia Folha1 tem duas colunas com datas.
Se puder explicar melhor
Att
copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 13:25
por nmareis
é só na folha "Ficheiro Ramais a Executar" em todos os livros..obrigado
Re: copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 13:39
por alexandrevba
Boa tarde!!
Eu não estou entendendo o que você deseja, veja se ajuda.
Código: Selecionar todosSub AleVBA_4189()
Dim sFolder As String
Dim sFile As String
Dim wbD As Workbook, wbS As Workbook
Application.ScreenUpdating = False
Set wbS = ThisWorkbook
sFolder = wbS.Path & "\" 'Considere que os arquivos(Livro1,2,3 e Livro Final), estão dentro do mesmo diretório
sFile = Dir(sFolder)
Do While sFile <> ""
If sFile <> wbS.Name Then
Set wbD = Workbooks.Open(sFolder & sFile)
wbD.Sheets("Folha1").Range("A2:R5000").Copy
wbS.Activate
'Mude o nome da guia AleVBA para um nome desejado
Sheets("AleVBA").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
wbD.Close savechanges:=True
End If
sFile = Dir
Loop
Application.ScreenUpdating = True
End Sub
Att
copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 17:07
por nmareis
não estou a conseguir..será que me pode colocar o código no ficheiro e enviar-me de volta...está-me a dar um erro.
copiar de uma folha diferente e colar em outra - Macro
Enviado: 03 Mar 2017 às 17:17
por nmareis
possivelmente não estou a colocar os caminhos correctos..se me puder enviar a folha a funcionar agradecia...assim já via o que estava a falhar e já posso adaptar aos restantes ficheiros..obrigado
Re: copiar de uma folha diferente e colar em outra - Macro
Enviado: 04 Mar 2017 às 07:45
por alexandrevba
Bom dia!!
Insira o código dentro de um módulo!
http://ambienteoffice.com.br/blog/modulos/
Tenha certeza que tem uma guia de nome AleVBA no seu arquivo original e que todas os arquivos estão dentro da mesma pasta.
Att
copiar de uma folha diferente e colar em outra - Macro
Enviado: 04 Mar 2017 às 12:14
por nmareis
boa tarde...estive a ver que copia tudo para a guia AleVBA, mas não é só isso que pretendo..vamos por partes, apenas quero que copia as colunas que estão á vista...as outras não...consegue fazer essa configuração?...obrigado