Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » como validar un Numero de cedula antes de grabarlo en un formulario VBA

Excel - como validar un Numero de cedula antes de grabarlo en un formulario VBA

Volver
Nuevo Tema
<<>>
 
Vista:

como validar un Numero de cedula antes de grabarlo en un formulario VBA

Publicado por Nairo Orozco P (1 intervención) el 01/10/2018 01:35:12
Hola buena tarde, como están espero que bien, mi consulta es la siguiente:
Tengo un formulario VBA y a través de el alimento una tabla de datos que genera un numero de radicado
el VBA solo lo utilizo para insertar el numero de cédula de las personas y para que digiten la descripción
de para que solicitan ese # de radicado; lo que quiero saber es como validar el numero de cédula que estoy ingresando, antes de grabarlo basado en un rango de # de cédulas que tengo creado en otra hoja del libro y que si está allí lo grabe de lo contrario no y que me saque un mensaje de que el numero digitado no existe y que no grabe nada.

Les agradezco de todo corazón si me pueden ayudar, Dios les Bendiga.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.136
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

como validar un Numero de cedula antes de grabarlo en un formulario VBA

Publicado por Andres Leonardo (1583 intervenciones) el 01/10/2018 15:53:13
Espero te ayude

Esta es la macro que utilizaria

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub BuscarCedula()
Dim Cedula As String
Dim Celda As Range
Encontrado As Boolean
CeldaEncontrada As Range
Encontrado = False
Cedula = TextBox.Text
If Cedula = "" Then Exit Sub
For Each Celda In Sheets("NOMBREDELAHOJA").Range("$A$2:$A$1000")  'Rango de la CELDA

    If Celda = Cedula Then
        Encontrado = True
        CeldaEncontrada = Celda
    End If
Next Celda
    If Encontrado Then
        MsgBox "Cedula Existe "  ' Si deseas puedes mostrar lo de la variable CeldaEncontrada

    Else
        MsgBox "Esa Cedula no existe o no está en mi base de datos..."
    End If
End Sub


Con el respeto del foro y considerando que se debe dar el credito de donde uno toma la informaicon
En una pagina de excel avanzado hay oitra la cual adjunto

Ref:
https://www.excel-avanzado.com/11907/como-buscar-un-valor-en-un-rango-de-celdas-en-vba.html
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar