Conectate con nosotros

Macros

Función personalizada (Excel) Para descomponer nombres y apellidos – Código libre.

Publicado

el

En alguna oportunidad hemos tenido la necesidad de separar los apellidos y nombres ya sea de nuestros trabajadores, clientes o proveedores y nos hemos encontrado con la tediosa tarea de hacerlo uno por uno ante esto PERU CONTABLE pone a su disposición un pequeño aplicativo para ser utilizado libremente en las tareas diarias si así lo deseamos.

asdasd

Para esto haremos uno de las funciones personalizadas que nos permite crear Excel dichas funciones son las contenidas en el código VBA adjuntado; ahora bien, el orden en que puede estar los datos son los siguientes:

1.- Apellidos y Nombres.

2.- Nombres y Apellidos.

Las funciones a usar son las siguientes:

  • Apellidos y nombres (1)

Apellido paterno= “APEL_PAT(N7;1)”

Apellido Materno= “APEL_MAT(N7;1)”

Primer nombre= “PRIMER_NOMBRE(N7;1)”

Segundo nombre= “SEGUNDO_NOMBRE(N7;1)”

  • Nombres y Apellidos (2)

Apellido paterno= “APEL_PAT(N11;2)”

Apellido Materno= “APEL_MAT(N11;2)”

Primer nombre= “PRIMER_NOMBRE(N11;2)”

Segundo nombre= “SEGUNDO_NOMBRE(N11;2)”

Para mayores detalles veamos el siguiente video:

Descargar archivo excel: libro1

Código en VBA (macros) utilizado.
Public I As Integer

Public N°_DIGITOS As Byte

Public ORDEN As Byte

Public criterio As Byte

Public DIG As String

Public w As String

Public XC As String

Public NOMBRE_APELLIDO As String

Public ID As Double

Public SEGUIR As Boolean

‘VISITA NUESTRA TIENDA VIRTUAL

‘SISTEMA CONTABLE EXCEL – ACCES V.3.0:::: http://www.perucontable.com/tienda/producto/sistema-contable-excel/

‘APLICATIVO PLE 5.0:::::::::::::::::::::: http://www.perucontable.com/tienda/producto/macro-aplicativo-libros-electronicos/

‘GESTOR DE PLANILLAS ELECTRONICAS:::::::: http://www.perucontable.com/tienda/producto/gestor-planillas-beneficios-sociales/

‘GESTOR DE INVENTARIOS::::::::::::::::::: http://www.perucontable.com/tienda/producto/control-almacen-excel/

Public Function APEL_PAT(DATO As String, TIPO As Byte) As String

Call TEMP(DATO)

N°_DIGITOS = Len(Trim(DATO))

DIG = Mid(Trim(DATO), 1, 1)

w = 1

XC = “”

NOMBRE_APELLIDO = “”

ORDEN = ORDEN – 1

Select Case ORDEN

Case 3

If TIPO = 1 Then criterio = 1 Else criterio = 2

Case 4

If TIPO = 1 Then criterio = 1 Else criterio = 3

End Select

ORDEN = 1

For II = 1 To N°_DIGITOS + 1

If DIG = ” ” Or II = N°_DIGITOS + 1 Then

NOMBRE_APELLIDO = XC

If ORDEN = 1 And criterio = ORDEN Then

APEL_PAT = NOMBRE_APELLIDO

ElseIf ORDEN = 2 And criterio = ORDEN Then

APEL_PAT = NOMBRE_APELLIDO

ElseIf ORDEN = 3 And criterio = ORDEN Then

APEL_PAT = NOMBRE_APELLIDO

ElseIf ORDEN = 4 And criterio = ORDEN Then

APEL_PAT = NOMBRE_APELLIDO

ElseIf ORDEN = 5 And criterio = ORDEN Then

APEL_PAT = NOMBRE_APELLIDO

End If

NOMBRE_APELLIDO = “”

‘FIN = 5

XC = “”

w = w + 1

DIG = Mid(Trim(DATO), w, 1)

ORDEN = ORDEN + 1

Else

XC = XC + DIG

w = w + 1

DIG = Mid(Trim(DATO), w, 1)

End If

Next II

End Function

Public Function APEL_MAT(DATO As String, TIPO As Byte) As String

Call TEMP(DATO)

N°_DIGITOS = Len(Trim(DATO))

DIG = Mid(Trim(DATO), 1, 1)

w = 1

XC = “”

NOMBRE_APELLIDO = “”

ORDEN = ORDEN – 1

Select Case ORDEN

Case 3

If TIPO = 1 Then criterio = 2 Else criterio = 3

Case 4

If TIPO = 1 Then criterio = 2 Else criterio = 4

End Select

ORDEN = 1

For II = 1 To N°_DIGITOS + 1

If DIG = ” ” Or II = N°_DIGITOS + 1 Then

NOMBRE_APELLIDO = XC

If ORDEN = 1 And criterio = ORDEN Then

APEL_MAT = NOMBRE_APELLIDO

ElseIf ORDEN = 2 And criterio = ORDEN Then

APEL_MAT = NOMBRE_APELLIDO

ElseIf ORDEN = 3 And criterio = ORDEN Then

APEL_MAT = NOMBRE_APELLIDO

ElseIf ORDEN = 4 And criterio = ORDEN Then

APEL_MAT = NOMBRE_APELLIDO

ElseIf ORDEN = 5 And criterio = ORDEN Then

APEL_MAT = NOMBRE_APELLIDO

End If

NOMBRE_APELLIDO = “”

‘FIN = 5

XC = “”

w = w + 1

DIG = Mid(Trim(DATO), w, 1)

ORDEN = ORDEN + 1

Else

XC = XC + DIG

w = w + 1

DIG = Mid(Trim(DATO), w, 1)

End If

Next II

End Function

Public Function PRIMER_NOMBRE(DATO As String, TIPO As Byte) As String

Call TEMP(DATO)

N°_DIGITOS = Len(Trim(DATO))

DIG = Mid(Trim(DATO), 1, 1)

w = 1

XC = “”

NOMBRE_APELLIDO = “”

ORDEN = ORDEN – 1

Select Case ORDEN

Case 3

If TIPO = 1 Then criterio = 3 Else criterio = 1

Case 4

If TIPO = 1 Then criterio = 3 Else criterio = 1

End Select

ORDEN = 1

For II = 1 To N°_DIGITOS + 1

If DIG = ” ” Or II = N°_DIGITOS + 1 Then

NOMBRE_APELLIDO = XC

If ORDEN = 1 And criterio = ORDEN Then

PRIMER_NOMBRE = NOMBRE_APELLIDO

ElseIf ORDEN = 2 And criterio = ORDEN Then

PRIMER_NOMBRE = NOMBRE_APELLIDO

ElseIf ORDEN = 3 And criterio = ORDEN Then

PRIMER_NOMBRE = NOMBRE_APELLIDO

ElseIf ORDEN = 4 And criterio = ORDEN Then

PRIMER_NOMBRE = NOMBRE_APELLIDO

ElseIf ORDEN = 5 And criterio = ORDEN Then

PRIMER_NOMBRE = NOMBRE_APELLIDO

End If

NOMBRE_APELLIDO = “”

‘FIN = 5

XC = “”

w = w + 1

DIG = Mid(Trim(DATO), w, 1)

ORDEN = ORDEN + 1

Else

XC = XC + DIG

w = w + 1

DIG = Mid(Trim(DATO), w, 1)

End If

Next II

End Function

Public Function SEGUNDO_NOMBRE(DATO As String, TIPO As Byte) As String

Call TEMP(DATO)

N°_DIGITOS = Len(Trim(DATO))

DIG = Mid(Trim(DATO), 1, 1)

w = 1

XC = “”

NOMBRE_APELLIDO = “”

ORDEN = ORDEN – 1

Select Case ORDEN

Case 3

If TIPO = 1 Then criterio = 5 Else criterio = 5

Case 4

If TIPO = 1 Then criterio = 4 Else criterio = 2

End Select

ORDEN = 1

For II = 1 To N°_DIGITOS + 1

If DIG = ” ” Or II = N°_DIGITOS + 1 Then

NOMBRE_APELLIDO = XC

If ORDEN = 1 And criterio = ORDEN Then

SEGUNDO_NOMBRE = NOMBRE_APELLIDO

ElseIf ORDEN = 2 And criterio = ORDEN Then

SEGUNDO_NOMBRE = NOMBRE_APELLIDO

ElseIf ORDEN = 3 And criterio = ORDEN Then

SEGUNDO_NOMBRE = NOMBRE_APELLIDO

ElseIf ORDEN = 4 And criterio = ORDEN Then

SEGUNDO_NOMBRE = NOMBRE_APELLIDO

ElseIf ORDEN = 5 And criterio = ORDEN Then

SEGUNDO_NOMBRE = NOMBRE_APELLIDO

End If

NOMBRE_APELLIDO = “”

‘FIN = 5

XC = “”

w = w + 1

DIG = Mid(Trim(DATO), w, 1)

ORDEN = ORDEN + 1

Else

XC = XC + DIG

w = w + 1

DIG = Mid(Trim(DATO), w, 1)

End If

Next II

End Function

Public Function TEMP(DATO As String)

N°_DIGITOS = Len(Trim(DATO))

DIG = Mid(Trim(DATO), 1, 1)

w = 1

XC = “”

NOMBRE_APELLIDO = “”

ORDEN = 1

For II = 1 To N°_DIGITOS + 1

If DIG = ” ” Or II = N°_DIGITOS + 1 Then

NOMBRE_APELLIDO = XC

NOMBRE_APELLIDO = “”

‘FIN = 5

XC = “”

w = w + 1

DIG = Mid(Trim(DATO), w, 1)

ORDEN = ORDEN + 1

Else

XC = XC + DIG

w = w + 1

DIG = Mid(Trim(DATO), w, 1)

End If

Next II

End Function

Esperamos que sea de utilidad hasta el siguiente post un saludo contable.

—————————————————

TALLER PRACTICO: “PROGRAMA LIBROS ELECTRONICOS 5.0.0.4 – FULL CASOS PRÁCTICOS”
FECHA: Viernes 21 de octubre del 2016
HORARIO: 6:00 a 10:00 PM.
» Inversión: S/. 220.00
» Fans de Perucontable: S/ 210.00
» Pronto pago: S/ 180.00 (Antes del 15 de octubre)
Dirección: Calle Ricardo Angulo 269, San Isidro – Lima (A la espalda de la Clínica Ricardo Palma)
INFORMACIÓN: https://www.facebook.com/events/1663250313895695/

Comentarios
Sigue Leyendo
Clic para comentar

Deja tu comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Current day month [email protected] *

Aplicativos

MACRO EXCEL: APLICATIVO CONSULTAS DNI SIN CAPTCHA.

Publicado

el

En alguna oportunidad hemos tenido la necesidad de realizar consultas DNI ya sea independiente o de forma masiva sobre todo los responsables del área de recursos humanos en la cual es importante realizar este tipo de consultas, es por ello que ponemos a su disposición el aplicativos de uso gratuito en Excel que cumple la función de realizar consultas individuales y múltiples de una manera simple y rápida como es copiar y pegar de cualquier fuente y nuestro aplicativo se encargarán de procesar la información solicitada sin necesidad de ingresar códigos captcha algunos.

A continuación, mostramos la forma de uso en este caso del aplicativo en Excel junto sus capturas de pantalla respectivas.

Pantalla de inicio y bienvenida:

Consultas individuales:

Consultas masivas:

Como se puede apreciar de las imágenes su utilización es bastante sencilla puesto que solo debemos ingresar el numero DNI para realizar la consulta DNI de forma sencilla.

Esperamos que sea de su agrado, hasta la próxima.

DESCARGA AQUÍ EL APLICATIVO DE CONSULTA DNI EN EXCEL

Desarrollado por Alex J. Vásquez Mejía

Comentarios
Sigue leyendo

Red de blogs - Excel Contable | Perucontable © 2003 - 2017