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

Re: Buscando Dados em outra planilha na rede

Mensagem por LGustavoFerreira »

eu entendo muito pouco de VBA, mas estava pensando aqui algo que funcionaria em VBA
é relacionar:

ValorProc = A1
LocalProcurado = B1

A1 = 500,00

B1 = Endereço da planilha que está na rede.

-----------

Dessa maneira eu colocaria o valor em B1 de acordo com a data, concatenando como você disse.


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.


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 »

Tentei isso e não deu certo, pq o Sendkey envia o comando primeiro que todas as outras linhas...

Sub AAAAAA()

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


SendKeys "^(c)"
Range("a10").Select
SendKeys "='" & Range("A5").Value
SendKeys "{ENTER}"


Selection.AutoFill Destination:=Range("A10:A20000"), Type:=xlFillDefault
Range("A10:A20000").Select
Range("B10").Select

Sheets("Planilha1").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Ref").Select
Range("A1").Select
End Sub


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 para que eu possa ajudar 100% realmente preciso de um modelo com informações falsas para que eu possa ver a real situação e se consigo ajudar, tenta montar algum modelo de duas ou três planilhas, uma da base que tu puxa e duas que você quer mandar buscar.
Eu jogo aqui no servidor e faço testes .
Tipo também imagino em abrir a planilha filtrar, copiar e colar,_
Mas tenho que ver se vai colar em sequencia se é só puxar o saldo se é só somar se traz uma tabela isso muda um pouco a forma de buscar.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Buscando Dados em outra planilha na rede

Mensagem por Tov Elen Shau »

Colega, talvez eu não tenha entendido direito. Mas experimenta armazenar as datas em variáveis. Por exemplo;

‘LOCAL ONDE VOCÊ VAI SALVAR A DATA - NESSE CASO NA CÉLULA 01 DA PLANILHA1
xData = Sheets("Planilha1").Range("A1") 'Célula formata como texto para esse caso


‘Onde tem as datas na rotina você concatena para ficar mais ou menos assim;
ActiveCell.FormulaR1C1 = _
"\\br001sv0032\br_fileserver\Acu\ACU_PLM\DOCUMENTOS DE INTERFACE\5- KARDEX 2019\Kardex ACO\08 - AGO\[Kardex ACO" & xData & ".xlsx]"


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.


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 »

Resolvi aqui

deu uma luz

Dim xData As String
Dim xMes As String


xData = Sheets("Planilha1").Range("A1")
xMes = Sheets("Planilha1").Range("A2")
Range("A10").Select
ActiveCell.FormulaR1C1 = _
"='\\br001sv0032\br_fileserver\Acu\ACU_PLM\DOCUMENTOS DE INTERFACE\5- KARDEX 2019\Kardex ACO\" & xMes & "\[Kardex ACO " & xData & ".xlsx" & "]FNDWRR'!RC[5]"
Range("A10").Select
Selection.AutoFill Destination:=Range("A10:A20000"), Type:=xlFillDefault
Range("A10:A20000").Select



Agora funcionou, eu altero a data e puxa da planilha quando a data alterada...

showww


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