Inquiridor
Importar dados de workbooks

Pergunta
-
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
fabio_bacchi@yahoo.com.br
Todas as Respostas
-
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
- Sugerido como Resposta AndersonFDiniz2 sábado, 23 de setembro de 2017 02:15
-
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
fabio_bacchi@yahoo.com.br
-
- Sugerido como Resposta AndersonFDiniz2 sábado, 23 de setembro de 2017 22:57