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.