Este fórum está sendo desativado

[batistathor]

Resolvido por PHSabater

[batistathor]

Public Sub Consolidar()
Dim Linha1 As Double
Dim Linha2 As Double
Dim linha3 As Double
Dim ArquivoPeriferico As String

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'Desativa modo automático de cálculo
Application.EnableEvents = False
Application.DisplayAlerts = False

Linha1 = 2
linha3 = 2

Do Until Sheets("Menu").Cells(Linha1, 2).Value = Empty
ArquivoPeriferico = Sheets("Menu").Cells(Linha1, 2).Value


Workbooks.Open (ThisWorkbook.Path & "\Alimentação\" & ArquivoPeriferico)



Linha2 = 2

Do Until Workbooks(ArquivoPeriferico).Sheets(8).Cells(Linha2, 1).Value = Empty

ThisWorkbook.Sheets("Bd_Consolidada").Cells(linha3, 1).Value = ArquivoPeriferico
ThisWorkbook.Sheets("Bd_Consolidada").Cells(linha3, 2).Value = Workbooks(ArquivoPeriferico).Sheets(8).Cells(Linha2, 4).Value
ThisWorkbook.Sheets("Bd_Consolidada").Cells(linha3, 4).Value = Workbooks(ArquivoPeriferico).Sheets(8).Cells(Linha2, 6).Value
ThisWorkbook.Sheets("Bd_Consolidada").Cells(linha3, 5).Value = Workbooks(ArquivoPeriferico).Sheets(8).Cells(Linha2, 7).Value
ThisWorkbook.Sheets("Bd_Consolidada").Cells(linha3, 6).Value = Workbooks(ArquivoPeriferico).Sheets(8).Cells(Linha2, 8).Value
ThisWorkbook.Sheets("Bd_Consolidada").Cells(linha3, 7).Value = Workbooks(ArquivoPeriferico).Sheets(8).Cells(Linha2, 9).Value
ThisWorkbook.Sheets("Bd_Consolidada").Cells(linha3, 8).Value = Workbooks(ArquivoPeriferico).Sheets(8).Cells(Linha2, 10).Value
'ThisWorkbook.Sheets("Bd_Consolidada").Cells(linha3, 9).Value = Workbooks(ArquivoPeriferico).Sheets(8).Cells(Linha2, 11).Value
linha3 = linha3 + 1
Linha2 = Linha2 + 1

Loop

Workbooks(ArquivoPeriferico).Close (False)

Linha1 = Linha1 + 1

Loop


Application.EnableEvents = True
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

ESSE CÓDIGO ENTRA NA PASTA ABRE TODAS AS PLANILHAS E FAZ A CONSOLIDAÇÃO, EU GOSTARIA DE PESQUISAR EM CADA PLANILHA A DATA ESPCIFICA PARA CONSOLIDAR E NAO TODO O CONTEUDO DE CADA PLANILHA...

[PHSabater]

Consegue anexar modelo da base e de algumas planilhas para exemplo?

[batistathor]

tenho 10 planilha na mesma pasta para consolidar sendo que gostaria de consolidar com critério ,na planilha base tenho um formulário para fazer os filtros por data .nao quero consolidar todos os dados mas sim dados específicos das planilhas..

[PHSabater]

Explica melhor o que quer consolidar... BD das planilhas importadas?

[batistathor]

então quando eu clico em consolidar eu pego todas as abas com o mesmo nome das planilhas que estão na mesma pasta consolidando na planilha base. so que eu nao queria pegar todos as informações de cada planilha , gostaria de abrir cada planilha e filtrar somente uma data especifica em cada planilha se na planilha não estiver a data procurada nao consolida os dados dessa planilha... ou fazer um filtro nas planilhas por data ..quando digitar uma data no formulário buscar somente as informações referente as data em cada planilha que estão na mesma pasta..nao sei se estou conseguindo me expressar bem mas e mas ou menos isso que gostaria de fazer buscar informações em diversas planilha na mesma aba com o mesmo nome e consolidar em uma planilha separa, essas outras planilhas são alimentada por diversas pessoas ao mesmo tempo e preciso filtra os dados por data ..

[PHSabater]

A sua ideia eu entendi, porém, na sua planilha Base não está estruturada para importação.
Defina melhor, por exemplo:
Planilha Base aba "X", pega dados da planilha importada aba "X", filtra pela data da coluna D e etc.
Compreendi a ideia, mas não vi dados compatíveis entre sua Base e a planilha para importação.
O que você precisa fazer é possível, só assimilar melhor esse processo.

Algumas questões a analisar, por exemplo.
Quando for atualizar vai limpar as informações da planilha base? Vai acrescentar?

Qualquer coisa pode me chamar no whats 43-99980-6713 pra gente desenrolar juntos.

[batistathor]

dentro da pasta seali1 tem , planilha base e uma pasta chamada alimentação que contem todas as planilhas que eu quero juntar na planilha base... dentro da planilha base tem guia menu e guia Bd_Consolidada.. na guia menu criei um botão pra juntar todas as planilha que estão na pasta alimentação abre cada planilha e cola na guia bd_consolidada . tem um botão para chamar o formulário no formulário gostaria de ao invés de trazer todos os dados de cada planilha trazes se somente os dados referente as data especifica na combobox do formulário e toda ves que fizesse uma atualização limpasse todos os dados da planilha bd_consolidada .. bom acho que seria isso

[batistathor]

PHSabater -obrigado pela ajuda e pelo seu tempo para me ajudar, tenha um ótimo final de semana pra vc e sua família...( resolvido)