Macro para que reconozca revise si existe

Desde Venezuela

TEngo esta macro que quiero que me revise si en columna B, existe el nombre escrito en TextBox (txtProd).

¿Si existe?

    MsgBox ("Este nombre ya está registrado. Verifica ...."), vbInformation, "Existe"
    Exit Sub 'sale sin guardar

Si no existe que siga la macro

Private Sub cbtNueClien_Click()
    On Error Resume Next
    Dim fila As Integer
    Set ws = ActiveSheet
    If cboHojas.Value = "" Then
        MsgBox "NO HA SELECCIONADO HOJA"
        Exit Sub
    Else
'Viene de la Function valida(wtext As MSForms.Control, num)
'Por.Dante Amor
    If MINCaracter(txtCod, "Cod/Producto", 10) = False Then Exit Sub ''AQUI 10 DIGITOS MINIMO
'Evita nombre repetido en B, busca si ya existe
Set busco = ws.Range("B:B").Find(txtProd.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then 'Si lo encuentra
    MsgBox ("Este nombre ya está registrado. Verifica ...."), vbInformation, "Existe"
    Exit Sub 'sale sin guardar
End If
''''
'Inserta datos de nuevo cliente
    With ws
       fila = .Range("A2:A25000").Find(txtCod, lookat:=xlWhole).Row
       If Err.Number = 91 Then
          fila = .Range("b" & .Rows.Count).End(xlUp)(2).Row
          Call ingresar_datos(fila)
          Exit Sub
       End If
       Call ingresar_datos(fila)
    End With
    End If
    Buscar.Enabled = False
    Call Limpar(Me)
End Sub

Esta macro no lo hace aunque ¿pareciera que si tiene algo para eso?

1 respuesta

Respuesta
2

Ya revisé tu macro y sí funciona. Si el dato está en la columna B te envía el mensaje. Si no existe entonces la macro continua.

Revisa bien los datos que capturas, lo que tienes en tu hoja y también revisa que sea en la hoja donde tienes los datos.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas