Este fórum está sendo desativado

[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

[alexandrevba]

Boa tarde!!

Poste seu arquivo modelo e nele contendo o resultado pretendido (Antes e Depois).

Att

[nmareis]

Gostava de saber se posso colocar aqui os ficheiros em formato excell...assim talvez fosse mais fácil, que me diz?

[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..

[alexandrevba]

Boa tarde!!

Foi isso que eu disse, favor postar seu arquivo modelo!!!!!!!!!!!!!!!

Att

[nmareis]

desculpe sou novo por aqui...o que postei chega para lhe esclarecer o que pretendo?..

[nmareis]

colocava os ficheiros mas não sei como o fazer

[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

[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

[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

[nmareis]

é só na folha "Ficheiro Ramais a Executar" em todos os livros..obrigado

[alexandrevba]

Boa tarde!!

Eu não estou entendendo o que você deseja, veja se ajuda.

Código: Selecionar todos

Sub 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

[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.

[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

[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

[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