Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Buscando Dados em outra planilha na rede
-
- Colaborador
- Mensagens: 15
- Registrado em: Ter Jul 09, 2019 2:43 pm
Buscando Dados em outra planilha na rede
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 ?
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 ?
-
- Manda bem
- Mensagens: 127
- Registrado em: Sex Out 05, 2018 2:42 pm
Re: Buscando Dados em outra planilha na rede
Olá amigo,
Consegue sim, mas tens como postar um modelo para que possamos te ajudar?
Consegue sim, mas tens como postar um modelo para que possamos te ajudar?
-
- Colaborador
- Mensagens: 15
- Registrado em: Ter Jul 09, 2019 2:43 pm
Re: Buscando Dados em outra planilha na rede
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
'
' 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
-
- Colaborador
- Mensagens: 15
- Registrado em: Ter Jul 09, 2019 2:43 pm
Re: Buscando Dados em outra planilha na rede
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
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
-
- Manda bem
- Mensagens: 127
- Registrado em: Sex Out 05, 2018 2:42 pm
Re: Buscando Dados em outra planilha na rede
**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?
"\\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?
-
- Colaborador
- Mensagens: 15
- Registrado em: Ter Jul 09, 2019 2:43 pm
Re: Buscando Dados em outra planilha na rede
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.
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.
-
- Manda bem
- Mensagens: 127
- Registrado em: Sex Out 05, 2018 2:42 pm
Re: Buscando Dados em outra planilha na rede
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.
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.
-
- Colaborador
- Mensagens: 15
- Registrado em: Ter Jul 09, 2019 2:43 pm
Re: Buscando Dados em outra planilha na rede
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.
rsrs
mas realmente o importante é tentar. que aos pocuos vamos achando a solução.
-
- Manda bem
- Mensagens: 127
- Registrado em: Sex Out 05, 2018 2:42 pm
Re: Buscando Dados em outra planilha na rede
Beleza, te espero aqui então, se tiver um modelo com dados fictícios posta ai que tento montar também.
-
- Colaborador
- Mensagens: 15
- Registrado em: Ter Jul 09, 2019 2:43 pm
Re: Buscando Dados em outra planilha na rede
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...
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...