Importar dados de workbooks

Question

Boa noite, 

Estou tentando um código que faça uma pesquisa baseado na função Procv, quando fiz o teste com o arquivo na mesma planilha deu certo porém não estou conseguindo fazer separando as planilhas. 

ou seja, removi de dentro da planilha principal a lista de preços que utilizo para base, na montagem do pedido, e não consigo buscar as informações para o preenchimento como anteriormente, consigo abrir o arquivo onde está as planilhas dos produtos separados por categoria, mas não consigo efetuar a pesquisa.

o que estou precisando é que se possível fosse fazer como estava fazendo com a configuração das planilhas de preço dentro do resto, ou seja entro com o código do produto e quando mudo de celula a função procv ja preenchia para mim a coluna descrição e o valor unitário. 

Busquei informações a ajuda nos mais diversos foruns e não consegui efetivar uma resposta satisfatória ou seja um Macro que substituísse esta função.

o grande motivo para a separação destas planilhas é que seguidamente sofre alterações de preços e desta forma eu apenas deletaria uma planilha e ficaria com a recente( atualizada)

Tenho o esboço com os códigos tentado e o modelo do pedido de informação mas não sei como anexar aqui para enviar, 

Agradeço desde já atenção  e aproveito para desejar a todos 

sucesso 

Fabio 

[e-mail]



Answer 1

Option Explicit

Private Sub Workbook_Open()
Application.ScreenUpdating = False

Dim caminho As String
Dim lin, col As Long
Dim WSBANCO As Workbook
    caminho = ThisWorkbook.Path & "\banFuncionarios.xlsx"
    Workbooks.Open (caminho)
    
    Set WSBANCO = ActiveWorkbook
lin = 2




  With WSBANCO
   
   While .Sheets("Planilha1").Cells(lin, 1) <> ""
   
   For col = 1 To 3
   
   ThisWorkbook.Sheets("Planilha1").Cells(lin, col) = .Sheets("Planilha1").Cells(lin, col)
   Next col
   
    lin = lin + 1
    
    Wend
   
    
   End With
WSBANCO.Close

Application.ScreenUpdating = True
End Sub

---

Anderson Diniz

Answer 2

Anderson, 

Boa tarde, estou iniciando os testes aqui com está sua sugestão, se houvesse um jeito para que eu pudesse encaminhar a vc o esboço que estou fazendo acredito que vc entenderia melhor, 

mas mesmo assim vou verificar como fica a situação,

se puderes me fornecer uma maneira para que eu pudesse encaminhar a vc osarquivos acredito que vc entenderia melhor a minha dificuldade, acredito que não estou conseguindo me expressar melhor

Boa tarde, 

Fabio 

[e-mail]

 

Answer 3

https://www.youtube.com/results?search_query=transferir+dados+entre+planilhas+excel+vba

---

Anderson Diniz