Busca em mais de uma célula.

2024 - VBA & Macros

Post Recente por Osvaldomp 7 anos atrás

5 Posts

3 Usuários

0 Reactions

934 Visualizações

RSS

rhudenr

(@rhudenr)

Posts: 19

Active Member

Topic starter

Bom dia, sou novo em VBA e desenvolvi uma planilha em que eu insiro um código e ele busca determinados dados de uma outra planilha. Por Exemplo: Insiro um código em "A2" e ele realiza a busca.
O problema é que eu só consigo buscar a partir de uma célula pré determinada que seria a "A2", gostaria de fazer a busca inserido dados em diferentes linhas sem precisar alterar o código toda vez que precisar inserir em outra linha.
Segue uma planilha modelo para melhor ajudar vocês.
Desde já agradeço, qualquer ajuda é bem vinda!

Postado : 02/08/2017 6:43 am

Osvaldomp

(@osvaldomp)

Posts: 857

Prominent Member

Se você quer lançar um código na coluna 'A' da "Plan1" e buscar na "Plan2" as informações correspondentes ao código lançado, utilize o código abaixo. O seu outro código não é necessário .

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim cod As Long
  If Target.Count > 1 Then Exit Sub
  If Target.Column > 1 Or Target.Value = "" Then Exit Sub
   cod = Sheets("Plan2").[A:A].Find(Target.Value, lookat:=xlWhole).Row
   Target.Offset(, 1).Resize(, 8).Value = Sheets("Plan2").Cells(cod, 2).Resize(, 8).Value
End Sub

sugestão - coloque Validação de Dados na coluna 'A' da "Plan1" com base na lista dos códigos

Osvaldo

Postado : 02/08/2017 8:01 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

rhudenr,

Boa tarde!

Vi o arquivo rapidamente somente no celular, mas... não seria o caso apenas de utilizar o PROCV?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 02/08/2017 10:49 am