Comando de Busca no Userform

Este código faz uma busca na planilha e retorna o valor ao userform conforme é indicado para planilha onde é necessário fazer buscas em bancos de dados com grande quantidade de informações e também fazer alterações no valor encontrado.


With Plan1.Range("A:A")
Set C = .Find(TextBox1.Value, LookIn:=xlValues, LOOKAT:=xlWhole)
If Not C Is Nothing Then
TextBox2.Text = C.Offset(0, 1)
TextBox3.Text = C.Offset(0, 2)
TextBox4.Text = C.Offset(0, 3)
TextBox5.Text = C.Offset(0, 4)
End If
If C Is Nothing Then
MsgBox "Nome Não Encontrado!!!"
End If
End With

 

Voltar