Validar código de producto antes de crearlo
Hola expertos:
Esta es mi pregunta, estoy creando un nuevo producto por medio de un formulario, pero antes de ponerlo en la hoja quiero validar que el código del producto no exista en la columna A, si ya existe que me envíe un mensaje de error.
Gracias
1 Respuesta
Respuesta de Dante Amor
1
Agrega lo siguiente a tu botón de tu formulario, cambia "Hoja1" por el nombre de tu hoja en la que vas a poner el producto.
Private Sub CommandButton1_Click()
'Por.Dante Amor
If TextBox1 = "" Then Exit Sub
Set h1 = Sheets("Hoja1")
Set b = h1.Range("A:A").Find(TextBox1, LookAt:=xlWhole)
If Not b Is Nothing Then
MsgBox "El producto ya existe", vbCritical
TextBox1.SetFocus
Exit Sub
End If
End SubSaludos.Dante Amor
