Página 1 de 2

Buscando Dados em outra planilha na rede

Enviado: Qua Ago 28, 2019 4:12 pm
por LGustavoFerreira
Amigos, poderiam me ajudar?
eu tenho várias planilhas que são geradas por dia.
ex:
Planilha 26-08.xlsx
Planilha 26-08.xlsx
Planilha 27-08.xlsx

E eu gostaria de criar uma planilha e dentro dela um procv procurando de acordo com a data que eu colocar para realizar a busca.

Alguem tem alguma idéia ?
eu gravei uma macro realizando está pesquisa, mas quando eu altero a data, a macro continua com a data gravada na macro.
eu não consigo alterar.

eu consigo por ex determinar o endereço de onde eu vou procurar por uma celula ?
Colocar na celular A1 o Nome da planilha ? e através deste nome procurar ?

Re: Buscando Dados em outra planilha na rede

Enviado: Qua Ago 28, 2019 4:46 pm
por Julio Mangilli
Olá amigo,

Consegue sim, mas tens como postar um modelo para que possamos te ajudar?

Re: Buscando Dados em outra planilha na rede

Enviado: Qui Ago 29, 2019 8:34 am
por LGustavoFerreira
Sub AAAAAA()
'
' AAAAAA Macro
'

'
Range("B5").Select
Sheets("Ref").Select
Sheets("Planilha1").Visible = True
Sheets("Ref").Select
Range("B5").Select
Sheets("Planilha1").Select
Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Range("A4").Select
Selection.Copy
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Aqui era para copiar o caminho onde está a planilha de acordo com a data.
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"\\br001sv0032\br_fileserver\Acu\ACU_PLM\DOCUMENTOS DE INTERFACE\5- KARDEX 2019\Kardex ACO\08 - AGO\[Kardex ACO 28-08-2019.xlsx]"
' Aqui eu não consigo colocar o caminho na célula de acordo com o que foi copiado. como eu criei essa macro, ela já fica gravado o arquivo fixo. Sendo que ele precisa alterar de acordo com a data.
Range("A10").Select
ActiveCell.FormulaR1C1 = _
"='\\br001sv0032\br_fileserver\Acu\ACU_PLM\DOCUMENTOS DE INTERFACE\5- KARDEX 2019\Kardex ACO\08 - AGO\[Kardex ACO 28-08-2019.xlsx]FNDWRR'!RC[5]"
Range("A10").Select
Selection.AutoFill Destination:=Range("A10:A20000"), Type:=xlFillDefault
Range("A10:A20000").Select
Range("B10").Select
ActiveCell.FormulaR1C1 = _
"='\\br001sv0032\br_fileserver\Acu\ACU_PLM\DOCUMENTOS DE INTERFACE\5- KARDEX 2019\Kardex ACO\08 - AGO\[Kardex ACO 28-08-2019.xlsx]FNDWRR'!RC[5]"
Range("B10").Select
Selection.AutoFill Destination:=Range("B10:B20000"), Type:=xlFillDefault
Range("B10:B20000").Select
Range("C10").Select
ActiveCell.FormulaR1C1 = _
"='\\br001sv0032\br_fileserver\Acu\ACU_PLM\DOCUMENTOS DE INTERFACE\5- KARDEX 2019\Kardex ACO\08 - AGO\[Kardex ACO 28-08-2019.xlsx]FNDWRR'!RC[5]"
Range("C10").Select
Selection.AutoFill Destination:=Range("C10:C20000"), Type:=xlFillDefault
Range("C10:C20000").Select
ActiveWindow.SmallScroll Down:=-12
Range("D10").Select
ActiveCell.FormulaR1C1 = _
"='\\br001sv0032\br_fileserver\Acu\ACU_PLM\DOCUMENTOS DE INTERFACE\5- KARDEX 2019\Kardex ACO\08 - AGO\[Kardex ACO 28-08-2019.xlsx]FNDWRR'!RC[12]"
Range("D10").Select
Selection.AutoFill Destination:=Range("D10:D20000"), Type:=xlFillDefault
Range("D10:D20000").Select
ActiveWindow.SmallScroll Down:=-39
Sheets("Ref").Select
Range("B5").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],Planilha1!R[5]C[-1]:R[1048571]C[2],2,FALSE)"
Range("B5").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],Planilha1!R10C[-1]:R1048576C[2],2,FALSE)"
Range("B5").Select
Selection.AutoFill Destination:=Range("B5:B20000"), Type:=xlFillDefault
Range("B5:B20000").Select
ActiveWindow.SmallScroll Down:=-21
Range("C5").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-2],Planilha1!R[5]C[-2]:R[1048571]C[1],3,FALSE)"
Range("C5").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-2],Planilha1!R10C[-2]:R1048576C[1],3,FALSE)"
Range("C5").Select
Selection.AutoFill Destination:=Range("C5:C20000"), Type:=xlFillDefault
Range("C5:C20000").Select
Range("D5").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-3],Planilha1!R[5]C[-3]:R[1048571]C,4,FALSE)"
Range("D5").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-3],Planilha1!R10C[-3]:R1048576C,4,FALSE)"
Range("D5").Select
Selection.AutoFill Destination:=Range("D5:D20000"), Type:=xlFillDefault
Range("D5:D20000").Select
Sheets("Planilha1").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Ref").Select
Range("A1").Select
End Sub

Re: Buscando Dados em outra planilha na rede

Enviado: Qui Ago 29, 2019 8:47 am
por LGustavoFerreira
Básicamente o que eu preciso é:

Que dia é hoje ?
dia XX
Qual Mês e Ano ?
Mês XX e Ano XX

Sabendo o dia mês e ano procurar e copiar para a planilha atual as colunas e linhas XY da planilha EXCEL-XDIA-XMES -XANO

Re: Buscando Dados em outra planilha na rede

Enviado: Qui Ago 29, 2019 4:20 pm
por Julio Mangilli
**Amigo já tentou no lugar que você poem o caminho
"\\br001sv0032\br_fileserver\Acu\ACU_PLM\DOCUMENTOS DE INTERFACE\5- KARDEX 2019\Kardex ACO\08 - AGO\[Kardex ACO 28-08-2019.xlsx]"
**Amarrar com um Range("A1") e depois na Célula A1 por uma formula assim tranquila?
=CONCATENAR("\\br001sv0032\br_fileserver\Acu\ACU_PLM\DOCUMENTOS DE INTERFACE\5- KARDEX 2019\Kardex ACO\08 - AGO\[Kardex ACO ";TEXTO(HOJE();"DD-MM-AAAA");".xlsx]")

Vai mudar todo dia e puxar o mesmo pode ser feito com a pasta.
Será que entendi bem ali? isso ajudaria?
Como tambem você poderia escolher as datas colocando em outras celular amarrada no concatenar.

Seria isso?

Re: Buscando Dados em outra planilha na rede

Enviado: Sex Ago 30, 2019 7:30 am
por LGustavoFerreira
Bem pensado, funcionou aqui para preencher o endereço
só que agora eu não consigo colocar na célula que esse é o caminho para ele buscar...
ele apenas preenche a célular com as informações em texto.
preciso agora que ele busque as informações nesse endereço.

Re: Buscando Dados em outra planilha na rede

Enviado: Sex Ago 30, 2019 1:33 pm
por Julio Mangilli
Sem o modelo eu fico ainda bem perdido mas acredito que para o Vlookup devolver o resultado tem que transformar a busca em referencia.

tipo "=VLOOKUP(R[-4]C[-7],INDIRECT(CONCATENATE(R[-6]C[-6])),2,FALSE)"
Tu usa o indireto para isso e o concatenar ajuda.

Dentro do concatenar tu pode colocar essa célula que ta o nome da planilha que você pode tirar da outra célula com ext.texto ou algo assim se a gente tiver no mesmo caminho que antes. [Pasta3]Planilha1!$C$4:$D$4.

Faz um teste.
Mas acredito que nossos JED'S teriam a resposta na hora, mas vamos tentando, auhauhauahuahauhauah o importante é tentar resolver.

Re: Buscando Dados em outra planilha na rede

Enviado: Sex Ago 30, 2019 2:53 pm
por LGustavoFerreira
vou tentar na segunda feira com a cabeça mais fresca...
rsrs
mas realmente o importante é tentar. que aos pocuos vamos achando a solução.

Re: Buscando Dados em outra planilha na rede

Enviado: Sex Ago 30, 2019 3:19 pm
por Julio Mangilli
Beleza, te espero aqui então, se tiver um modelo com dados fictícios posta ai que tento montar também.

Re: Buscando Dados em outra planilha na rede

Enviado: Seg Set 02, 2019 7:38 am
por LGustavoFerreira
Meu chefe, tentei aqui e não deu.
PQ?!?

A função indireto ela trás o valor de uma célula indicada por outra...
Célula
A1 = B2

Célula

B2= 5

Indireto(A1;verdadeiro) = 5

O valor que eu quero procurar está em outra planilha e nessa planilha não tem a indicação da célula que está o conteúdo.
Quando eu coloco o Procv para buscar na "planilha em outro end" ele não acha pois a função indireto só iria me retornar se dentro dessa planilha tivesse o numero da célula para eu procurar..
voltei no incio novamente...