none
Importar dados de workbooks RRS feed

  • 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

    

    sábado, 23 de setembro de 2017 02:09

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

     

    sábado, 23 de setembro de 2017 18:59
    • Sugerido como Resposta AndersonFDiniz2 sábado, 23 de setembro de 2017 22:57
    sábado, 23 de setembro de 2017 22:46