|
28/Jun/19 17:44
Buenas tardes, tuve la necesidad de validar la captura del CURP en una celda de Excel, por lo que me di a la tarea de crear una función con macros, le dejo el resultado por si a alguien le es util.
Solo valida que el DV corresponda, según el algoritmo, por lo que mi celda C4 (que es donde se pone el CURP completo), quedó con un formato condicional que dice:
=C4 < > dv CURP(C4) [se lee, si C4 no es igual a dvCURP(C4)], (por si los signos de mayor que y menor que no se ven)
si la condicion es verdadera, osea que el valor de C4 es diferente al resultado de dvCURP(C4), va a sombrear la celda al color elegido.
| Code: | Public Function dvCURP(CURP As String)
' Dígito Verificador CURP
' ByPaco 2019.06.28
Dim pInv As Integer
Dim dv As String
Tbla = '123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ'
pInv = 18
nSum = 0
For i = 1 To 17
caracter = Mid(UCase(CURP), i, 1)
pTab = InStr(Tbla, caracter)
nSum = nSum + (pTab * pInv)
pInv = pInv - 1
Next i
dv = 10 - (nSum Mod 10)
dv = IIf(dv = 10, 0, dv)
dvCURP = Left(CURP, 17) & dv
End Function
|
Saludos
Editado: Julio 05, 2019 10:21:56
Editado: Agosto 02, 2019 13:45:47
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═
|
ByPaco
Teniente Coronel
Mensajes:
2196
Ingresó:
Junio 05, 2004
Ubicación:
|
Conectado |
Agregar como amigo
|
|
28/Jun/19 21:49
Re: Validacion CURP
Excelente aportación!, gracias!
Lo importante no es saber, sino tener el teléfono del que sabe.
|
Cheque
General de Brigada
Mensajes:
7019
Ingresó:
Mayo 18, 2004
Ubicación:
|
|
Conectado |
Agregar como amigo
|
|
30/Jun/19 12:45
Re: Validacion CURP
Gracias.
Muy buena aportacion.
Saludos
PARA CONSEGUIR UN CREDITO; DEBES DEMOSTRAR AL BANCO QUE NO LO NECESITAS.
|
ALLENDE
Teniente Coronel
Mensajes:
2820
Ingresó:
Julio 12, 2012
Ubicación:
|
No Conectado |
Agregar como amigo
|
|
01/Jul/19 10:08
Re: Validacion CURP
Gracias ByPaco.
Un nuevo tip, para agregar al archivo 'tips de excel'
LA PREPOTENCIA TE HACE FUERTE UN DIA.......LA HUMILDAD PARA SIEMPRE.
|
vabdo
General de Brigada
Mensajes:
7573
Ingresó:
Agosto 22, 2005
Ubicación:
|
|
No Conectado |
Agregar como amigo
|
|
06/Jul/19 22:25
Re: Validacion CURP
Muy bueno, andaba buscando una macro que hiciera algo similar, me vino en el momento oportuno :)
Gracias
|
sofisalas
Soldado
Mensajes:
2
Ingresó:
Julio 06, 2019
Ubicación:
|
|
No Conectado |
Agregar como amigo
|
|
24/Jul/19 16:34
Re: Validacion CURP
borrado
Editado: Septiembre 11, 2024 22:36:31
|
morodrigo
Soldado
Mensajes:
1
Ingresó:
Julio 24, 2019
Ubicación:
|
|
Conectado |
Agregar como amigo
|
|
25/Jul/19 14:06
Re: Validacion CURP
Buenas tardes, el único sitio oficial para validar el CURP es:
https://consultas.curp.gob.mx/CurpSP/gobmx/inicio.jsp
Todas las páginas que ofrecen el servicio se conectan a dicha página
La macro solo valida el dígito verificador, para asegurarnos que lo capturamos bien en la hoja de excel, no significa que sea un CURP oficial, para eso esta la página de Gobernación.
El archivo propuesto se conecta a un sitio no oficial y dificil de identificar [http://187.160.251.219/ws2/api.php], con el riesgo de estar entregando la información y no saber a quien, no tiene una politica de privacidad, además se estaria lucrando por algo que debe ser gratuito, no es la finalidad de este tópico ni del foro, la idea es ayudarnos entre todos para optimizar los procesos, no es un mercado para promocionar o vender nuestros productos.
Por lo pronto el usuario quedará reportato por violar las condiciones de uso de la página.
Saludos
Editado: Julio 25, 2019 14:08:33
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═
|
ByPaco
Teniente Coronel
Mensajes:
2196
Ingresó:
Junio 05, 2004
Ubicación:
|
|
Conectado |
Agregar como amigo
|
|
22/Jul/24 13:05
Re: Validacion CURP
Funciones personalizadas para generar el dígito verificador del NSS y CURP, y para extraer la fecha de nacimiento de la CURP
| Code: | | https://drive.google.com/file/d/1KYmsTGRSg1wZg8fm9dG13Bsz0gVqSj4N/view?usp=drive_link |
Saludos
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═
|
ByPaco
Teniente Coronel
Mensajes:
2196
Ingresó:
Junio 05, 2004
Ubicación:
|
|
Conectado |
Agregar como amigo
|
|
