COPIAR CAMPOS ESPECIFICOS DE MULTIPLAS PLANILHAS
2 participantes
Página 1 de 1
COPIAR CAMPOS ESPECIFICOS DE MULTIPLAS PLANILHAS
Senhores,
boa tarde! estou com uma grande dificuldade para gerar um relatório "uma unica planilha" tenho mais ou menos umas mil planilhas todas no mesmo formato, quero copiar os dados de todas elas para uma unica planilha, ai vocês me dizem já falamos sobre isso, concordo porem não dessa maneira essas planilhas é como um pedido, e não quero todos os dados e sim campos específicos, como nome de empresa produtos comprados data de compra numero do pedido.
todos esses dados para uma unica planilha.
como poderia fazer essa macro?
na imagem anexa exemplifica exatamente o que necessito.
boa tarde! estou com uma grande dificuldade para gerar um relatório "uma unica planilha" tenho mais ou menos umas mil planilhas todas no mesmo formato, quero copiar os dados de todas elas para uma unica planilha, ai vocês me dizem já falamos sobre isso, concordo porem não dessa maneira essas planilhas é como um pedido, e não quero todos os dados e sim campos específicos, como nome de empresa produtos comprados data de compra numero do pedido.
todos esses dados para uma unica planilha.
como poderia fazer essa macro?
na imagem anexa exemplifica exatamente o que necessito.
spawnlecastilho- Iniciante
- Mensagens : 2
Data de inscrição : 06/03/2014
Re: COPIAR CAMPOS ESPECIFICOS DE MULTIPLAS PLANILHAS
Boa tarde!!
Use a pesquisa do fórum!!
Eu tenho uma postagem que pode te ajudar
https://usuariosdoexcel.forumeiros.com/t116-copiar-mesmo-intervalo-uma-guia-para-duas-guias-dif
Att
Use a pesquisa do fórum!!
Eu tenho uma postagem que pode te ajudar
https://usuariosdoexcel.forumeiros.com/t116-copiar-mesmo-intervalo-uma-guia-para-duas-guias-dif
Att
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Re: COPIAR CAMPOS ESPECIFICOS DE MULTIPLAS PLANILHAS
Alexandre muito obrigado, mas o que eu quero de verdade é o seguinte tenho em media umas mil planilhas todas em um diretorio diferente na verdade separado por mes
eu ja tenho isso
Sub copiar()
Sheets("PLANILHA PEDIDO").Range("N10").Copy Destination:=Sheets("CONSOLIDAR").Range("A" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("B10").Copy Destination:=Sheets("CONSOLIDAR").Range("B" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("S10").Copy Destination:=Sheets("CONSOLIDAR").Range("C" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("B22").Copy Destination:=Sheets("CONSOLIDAR").Range("D" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("C22").Copy Destination:=Sheets("CONSOLIDAR").Range("E" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("D22").Copy Destination:=Sheets("CONSOLIDAR").Range("F" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("J22").Copy Destination:=Sheets("CONSOLIDAR").Range("G" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("L22").Copy Destination:=Sheets("CONSOLIDAR").Range("H" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("M22").Copy Destination:=Sheets("CONSOLIDAR").Range("I" & LR + 1)
End Sub
que esta funcionando mais ou menos o que eu quero é que essa macro procure todas as planilhas e cole em uma planilha base
uma linha embaixo da outra.
eu ja tenho isso
Sub copiar()
Sheets("PLANILHA PEDIDO").Range("N10").Copy Destination:=Sheets("CONSOLIDAR").Range("A" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("B10").Copy Destination:=Sheets("CONSOLIDAR").Range("B" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("S10").Copy Destination:=Sheets("CONSOLIDAR").Range("C" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("B22").Copy Destination:=Sheets("CONSOLIDAR").Range("D" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("C22").Copy Destination:=Sheets("CONSOLIDAR").Range("E" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("D22").Copy Destination:=Sheets("CONSOLIDAR").Range("F" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("J22").Copy Destination:=Sheets("CONSOLIDAR").Range("G" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("L22").Copy Destination:=Sheets("CONSOLIDAR").Range("H" & LR + 1)
Sheets("PLANILHA PEDIDO").Range("M22").Copy Destination:=Sheets("CONSOLIDAR").Range("I" & LR + 1)
End Sub
que esta funcionando mais ou menos o que eu quero é que essa macro procure todas as planilhas e cole em uma planilha base
uma linha embaixo da outra.
spawnlecastilho- Iniciante
- Mensagens : 2
Data de inscrição : 06/03/2014
Re: COPIAR CAMPOS ESPECIFICOS DE MULTIPLAS PLANILHAS
Bom dia!!
Eu não entendi muito sua dúvida.
quando você fala de
Isso não tem relação alguma com seu código, mas eu tenho uma nova versão para sua rotina.
Att
Eu não entendi muito sua dúvida.
quando você fala de
, significa que, você arquivos em C:\Pasta1.....C:\Pasta2 etc????em um diretório diferente
Isso não tem relação alguma com seu código, mas eu tenho uma nova versão para sua rotina.
- Código:
Sub Tente()
Dim r_from As Range, r_to As Range
Set r_to = Worksheets("CONSOLIDAR").Range("A" & Rows.Count).End(xlUp).Offset(1)
For Each r_from In Worksheets("PLANILHA PEDIDO").Range("N10,B10,S10,B22,C22,D22,J22,L22,M22").Areas
r_from.Copy Destination:=r_to
Set r_to = r_to.Offset(, 1)
Next r_from
End Sub
Att
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Copiar Dados de VARIAS Planilhas para uma só Planilha
» Como copiar ou mover planilhas usando código VBA no Excel
» Gerar relatorios em várias Planilhas
» Copiar e Colar (InputBox)
» Encontrar e Copiar cabeçalho
» Como copiar ou mover planilhas usando código VBA no Excel
» Gerar relatorios em várias Planilhas
» Copiar e Colar (InputBox)
» Encontrar e Copiar cabeçalho
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|