Tomás Vásquez Fórum

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.

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

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.

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]"

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