Inicio > Microsoft Excel > fejoal > Macro excel

Macro excel

Experto:
Usuario:
Fecha: 06/11/2003
Valoración: (5,00 sobre 5) Categoría: Microsoft Excel
23/10/2003
fjosepon, usuario preguntando en Microsoft Excel
Usuario
Hola, necesito ayuda para crear una macro que sustituya el DNI introducido en la celda (########) por el NIF correspondiente con el siguiente formato: ##.###.###-@
Conozco la formula de excel para el calculo del NIF, pero no puedo evitar con ella una referencia cruzada por lo que supongo que procede una macro que se ejecute al salir de la celda. Gracias anticipadas...(te agradeceria me mandaras ese tan famoso manual de macros, del que tanta gente habla y tanto alaga). Un afectuoso saludo desde Sevilla.
23/10/2003
fjosepon, experto respondiendo en Microsoft Excel
Experto
Hola, José!

Usualmente, suelo resolver este problema con un una función personalizada (UDF) en Visual Basic que permita la conversión en un solo paso.

Tal función separa cifra por cifra el número de DNI y lo afecta por un factor luego suma todo y puede que tenga que hacer alguna conversión final.

Sin embargo cada pais tiene su método de cálculo.
Necesitaría, entonces, que me indiques el algoritmo de cálculo que usan allá.
(y, además qué significa aquella @ al final del NIF).

---

Respecto al manual de macro, con gusto te lo enviaré. Pero necesito que me digas alguna dirección de e-mail para que pueda haerlo.

Espero tus datos, para poder satisfacer tus dos consultas.

Un abrazo!
Fernando
24/10/2003
fjosepon, usuario preguntando en Microsoft Excel
Usuario
Hola Fernando,
Ante todo gracias por tu atencion y perdona mi torpeza. En excel la formula que calcula la letra es:
=("TRWAGMYFPDXBNJZSQVHLCKEF";1+RESIDUO(B4;23);1)
teniendo en B4 el nº de DNI (Documento nacional de identidad).
En VB la formula que calcula la letra es:
LetraNIF.Value = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (DNI.Value Mod 23) + 1, 1) , siendo LetraNIF (@ que te puse despues del guion), la variable de la letra del NIF y DNI el control que almacena el nº de DNI.
Mi direccion de e-mail es: fjosepon@terra.es
Gracias de nuevo y hasta pronto.
24/10/2003
fjosepon, experto respondiendo en Microsoft Excel
Experto
Hola, José!

He enviado a tu cuenta un archivo de muestra que incluye la rutina que convierte un documento a NIF y el manual de macros solicitado.

Espero que te sean útiles.

Un abrazo!
Fernando
06/11/2003
fjosepon, usuario preguntando en Microsoft Excel
Usuario
Gracias por todo y perdona el retraso pero Todoexpertos ha debido estar en mantenimiento y no me permitia ver "Mi Todoexpertos". Aun todavia no consigo leer bien todas mis respuestas.Muy grande tu ayuda.GRACIAS.
Enlaces patrocinados