Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Buscando Dados em outra planilha na rede

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
LGustavoFerreira
Colaborador
Colaborador
Mensagens: 15
Registrado em: Ter Jul 09, 2019 2:43 pm

Buscando Dados em outra planilha na rede

Mensagem 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 ?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Buscando Dados em outra planilha na rede

Mensagem por Julio Mangilli »

Olá amigo,

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


LGustavoFerreira
Colaborador
Colaborador
Mensagens: 15
Registrado em: Ter Jul 09, 2019 2:43 pm

Re: Buscando Dados em outra planilha na rede

Mensagem 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


LGustavoFerreira
Colaborador
Colaborador
Mensagens: 15
Registrado em: Ter Jul 09, 2019 2:43 pm

Re: Buscando Dados em outra planilha na rede

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Buscando Dados em outra planilha na rede

Mensagem 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?


LGustavoFerreira
Colaborador
Colaborador
Mensagens: 15
Registrado em: Ter Jul 09, 2019 2:43 pm

Re: Buscando Dados em outra planilha na rede

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


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Buscando Dados em outra planilha na rede

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


LGustavoFerreira
Colaborador
Colaborador
Mensagens: 15
Registrado em: Ter Jul 09, 2019 2:43 pm

Re: Buscando Dados em outra planilha na rede

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


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Buscando Dados em outra planilha na rede

Mensagem por Julio Mangilli »

Beleza, te espero aqui então, se tiver um modelo com dados fictícios posta ai que tento montar também.


LGustavoFerreira
Colaborador
Colaborador
Mensagens: 15
Registrado em: Ter Jul 09, 2019 2:43 pm

Re: Buscando Dados em outra planilha na rede

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder