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 de Dante Amor
2