Necesito código en textbox para búsqueda en formulario.

Hola buenos días, necesito si alguien me ayuda para programar un textbox. Es el siguiente:

Private Sub CommandButton1_Click()
Sheets("Hoja3").Select
If TextBox1.Text = "" Then
 MsgBox "Falta el Código"
 TextBox2.SetFocus
 Exit Sub
End If
If TextBox2.Text = "" Then
 MsgBox "Falta el Nombre"
 TextBox3.SetFocus
 Exit Sub
End If
If TextBox3.Text = "" Then
 MsgBox "Falta el Precio"
 TextBox4.SetFocus
 Exit Sub
End If
If TextBox4.Text = "" Then
 MsgBox "Indique la Existencia"
 TextBox5.SetFocus
 Exit Sub
End If
nextrow = Application.WorksheetFunction.CountA(Range("A:A")) + 1
TextBox1.Text = WorksheetFunction.Max(Columns(1)) + 1
Cells(nextrow, 1) = TextBox1.Text
Cells(nextrow, 2) = TextBox2.Text
Cells(nextrow, 3) = TextBox3.Text
Cells(nextrow, 4) = TextBox4.Text
TextBox1.Text = WorksheetFunction.Max(Columns(1)) + 1
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox1.SetFocus
End Sub

Para que al momento en que ingrese algo en el textbox1, me busque en la hoja3 del libro de
exel si existe el registro, si ya existe me avise o caso contrario me
deje continuar con el registro, gracias de antemano.

Añade tu respuesta

Haz clic para o