Jump to content

Validacion de datos no coincidentes


Recommended Posts

Buenos dias amigos. Recurro a ustedes con una duda.

Queria saber si al igual que uno valida en un celda que los valores ingresados esten en un rango x, se podia hacer a la inversa, es decir, validar que los valores ingresados no esten en una lista y permitir el ingreso de dicho valor.

ejemplo:

Tengo una hoja de ingresos (apenas 3 celdas, todas datos del mismo equipo) y una hoja en la que tengo los seriales de unos equipos dentro de una columna.

La cuestion es que en la celda B5 (de la hoja ingresos) al ingresar el serial del equipo, se realice una validacion de que ese serial no este dentro de la hoja Seriales, y al no estar, permitir el registro de dicho serial dentro de una tabla que esta en otra hoja.

Mi problema basicamente es realizar la validacion, ya que este modulo es una copia de otro modulo funcional. Donde ingreso datos si estos son coincidentes.

 

Agradecido de antemano por la ayuda que me puedan brindar

Edited by MauriciodeAbreu
Correcion del texto titulo
Link to post
Share on other sites
  • MauriciodeAbreu changed the title to Validacion de datos no coincidentes

En funcion de lo exlpicado por ti

Hace 9 horas, bigpetroman dijo:

con un coincidir es mas que suficiente,

Me puse a investigar como colocar esa funcion en VBA, y estoy tratando de hacerlo con lo poco que he aprendido.

 

Sub Registrar_No_Auditados()

'========================================================================================================

NuevoIngreso:

'Empezar en el campo Serial
Range("B5").Select
'Fin

'Parpadeo que se produce al Anotar Entrada por medio del boton.
Application.ScreenUpdating = False
'Fin

'Convertir datos ingresados en Mayusculas
Convertir_Mayusculas
'Fin

'Ingreso de datos (los dos siguientes bloques - Validacion e Insertar)
'
'Validacion de Campos Vacios con sus respectivas alertas
If Range("B5").Value = Empty Then
MsgBox ("Capture el Serial del Equipo")
Exit Sub
End If
Range("C5").Select
If Range("C5").Value = Empty Then
MsgBox ("Capture el Serial del Bienes Nacionales asociado al equipo")
Exit Sub
End If
'Fin Validacion de campos vacios

'Call No_Coincidente

Dim SerialNoAuditado As Variant

On Error GoTo IngresarSerialNoAuditado:

SerialNoAuditado = Worksheets("Reg. N-Auditados").Range("B5").Value
    Resultado = Application.WorksheetFunction.Match(SerialNoAuditado, Worksheets("Laptop").Range("D6:D40005"), 0)

If Resultado > 0 Then

GoTo SerialAuditado:

Else

GoTo IngresarSerialNoAuditado:

' Aqui es para indicar que el serial esta auditado
SerialAuditado:
MsgBox "Este equipo fue auditado, por favor registrelo en el modulo correspondiente 'Reg. Entradas o Reg. Salidas'"

End If

Borrar_Campos

GoTo NuevoIngreso:

IngresarSerialNoAuditado:

'Inicio insertar linea en la hoja registro de equipos no auditados
'
' Seleccionar hoja N-Auditado para realizar los ingresos
Sheets("N-Auditados").Select
' Fin seleccionar hoja N-Auditado

' Inicio desproteger hoja con o sin clave para ingresar campos capturados
'
' Instruccion para desproteger la hoja N-Auditado
Sheets("N-Auditados").Unprotect Password:="123456"
' Fin desproteger hoja N-Auditado

'Continuacion de insercion de linea en la hoja Reg. N-Auditado para nuevos registros
Range("B5").EntireRow.Insert
Sheets("Reg. N-Auditados").Select
'Fin de insercion de linea en Reg. N-Auditado

'Copiar y Pegar informacion que se ha introducido en el rango B5 al D5,
'y regresa a la hoja Reg. N-Auditado
Range("B5").Copy
Sheets("N-Auditados").Select
Range("B5").PasteSpecial xlPasteValues
Sheets("Reg. N-Auditados").Select

Range("C5").Copy
Sheets("N-Auditados").Select
Range("C5").PasteSpecial xlPasteValues
Sheets("Reg. N-Auditados").Select

Range("D5").Copy
Sheets("N-Auditados").Select
Range("D5").PasteSpecial xlPasteValues
'Fin copiar y pegar data

'Instruccion para proteger de nuevo la hoja N-Auditado
ActiveSheet.Protect Password:="123456", UserInterfaceOnly:=False
'Fin proteger hoja N-Auditado

'Ir a Reg. N-Auditado
Sheets("Reg. N-Auditados").Select
'Fin ir a Reg. N-Auditado

'Borrar los campos para un nuevo registro
Borrar_Campos
'Fin Borrar los campos para un nuevo registro

'Mensaje indicando que los valores de los campos fueron ingresados en la hoja N-Auditado
MsgBox ("Entrada anotada.")
'Fin mensaje indicando que los valores de los campos fueron ingresados

'Evita que tras Anotada la Entrada, la celda Notas no quede con los borde parpadeando indicando una copia
Application.CutCopyMode = False
'Fin del parpadeo

'Ir al campo Seriales
Range("B5").Select
'Fin

End Sub

Podrias decirme si ves algun error

 

Agradecido

Edited by MauriciodeAbreu
Link to post
Share on other sites

Bueno!!, logre hacer que funcione.

Este seria el codigo final.

' Modulo NoCoincidencia

Dim SerialNoAuditado As Variant

On Error GoTo IngresarSerialNoAuditado:

SerialNoAuditado = Worksheets("Reg. N-Auditados").Range("B5").Value
    Resultado = Application.WorksheetFunction.Match(SerialNoAuditado, Worksheets("Laptop").Range("D6:D40005"), 0)

If Resultado > 0 Then

GoTo SerialAuditado:

Else

GoTo IngresarSerialNoAuditado:

End If

' Aqui es para indicar que el serial esta auditado
SerialAuditado:
MsgBox "Este equipo fue auditado, por favor registrelo en el modulo correspondiente 'Reg. Entradas o Reg. Salidas'"
Borrar_Campos
Range("B5").Select

Exit Sub

IngresarSerialNoAuditado:

'Inicio insertar linea en la hoja registro de equipos no auditados

Las etiqueta "NuevoIngreso:" fueron eliminadas.

Por favor indiquenme si hay algun error o se puede mejorar el codigo.

Agradecido de antemano

Link to post
Share on other sites

Saludos BigPetroman, te comento, el archivo que bajaste no tiene la modificacion, ya que cuando lo subi no tenia idea de como hacerlo.

Despues de subir el archivo, busque informacion sobre el siguiente comentario que realizaste.

En 22/9/2020 at 8:08 , bigpetroman dijo:

@MauriciodeAbreucon un coincidir es mas que suficiente, esa función te regresa error si NO coincide ningún dato con lo buscado.

Y logre hacer que funcionara, asi que puse el codigo de lo que habia hecho para que me dieran su opinion.

Aunque el codigo realiza la validacion, no funciona del todo como yo queria. Ya que lo logico seria que al capturar el serial, haga la validacion y muestre un mensaje indicando que el serial ya esta auditado. Pero, la validacion, o aviso de serial ya auditado, lo muestra despues de apretar el boton "Anotar Entrada"

De todos modos, anexo el archivo para que veas lo que logre.

Los seriales los tomo de la Hoja "Laptop", asi que si el serial esta en esa hoja, no deja ingresar el valor en la Hoja "Reg. N_Auditados". Es decir, hace bien el trabajo...

Agradecido de antemano, y pido disculpas si mi comentario genero confusion.

Equipos No Auditados.xlsm

Link to post
Share on other sites
a


×
×
  • Create New...

Important Information

Privacy Policy