Dígitos de control Cuenta Bancaria

19/10/2006 - 12:44 por Rafa | Informe spam
Buenos días,
Tengo que comprobar los dígitos de control de cerca de 2000 cuentas
bancarias, estoy utilizando la siguiente fórmula:
=SI(11-RESIDUO(SUMAPRODUCTO(EXTRAE(A1;FILA(1:8);1)*(EXTRAE({"0408051009070306"};(FILA(1:8)*2)-1;2)));11)>9;1-(RESIDUO(11-RESIDUO(SUMAPRODUCTO(EXTRAE(A1;FILA(1:8);1)*(EXTRAE({"0408051009070306"};(FILA(1:8)*2)-1;2)));11);10));11-RESIDUO(SUMAPRODUCTO(EXTRAE(A1;FILA(1:8);1)*(EXTRAE({"0408051009070306"};(FILA(1:8)*2)-1;2)));11))&SI(11-RESIDUO(SUMAPRODUCTO(EXTRAE(B1;FILA(1:10);1)*(EXTRAE({"01020408051009070306"};(FILA(1:10)*2)-1;2)));11)>9;1-(RESIDUO(11-RESIDUO(SUMAPRODUCTO(EXTRAE(B1;FILA(1:10);1)*(EXTRAE({"01020408051009070306"};(FILA(1:10)*2)-1;2)));11);10));11-RESIDUO(SUMAPRODUCTO(EXTRAE(B1;FILA(1:10);1)*(EXTRAE({"01020408051009070306"};(FILA(1:10)*2)-1;2)));11))

Que aparece en uno de los hilos de los foros, es la única fórmula que
me funciona porque el resto de fórmulas que he comprobado no sacan el
dígito de control correcto. El problema es que no me es operativa
porque hay que separar en dos celdas la cuenta bancaria por un lado el
banco mas la oficina y por el otro El nº de cuenta propiamente dicho
sin meter el dígito de control.
El problema es que yo tengo todas las cuentas con los 20 Números
seguidos y comprobarlo una por una es un trabajo titánico :(
¿Alguién tiene una fórmula más operativa? o modificar esta fórmula
para que no tengas que separar los 20 dígitos.
He visto que hay algún código de VBA pero no consigo hacerlo
funcionar.

Muchas gracias por adelantado
 

Leer las respuestas

#1 Xavier Budet Graco
19/10/2006 - 16:14 | Informe spam
Hola Rafa, a la espera de que te puedan dar una fórmula que te ayude...

No es difícil con la función =EXTRAE el situar el número de 20 dígitos desglosado en 2 o más celdas, según tu interés. Si a partir de las nuevas celdas puedes utilizar la fórmula no has de tener ningún problema.

Yo recuerdo tener una hoja de Lotus 123 que lo resolvía. Si no puedes solucionarlo trataré de encontrar dicha hoja.

Saludos,

Xavier

Quitar MAC para contestar. Gracias.

"Rafa" escribió en el mensaje news:
Buenos días,
Tengo que comprobar los dígitos de control de cerca de 2000 cuentas
bancarias, estoy utilizando la siguiente fórmula:
=SI(11-RESIDUO(SUMAPRODUCTO(EXTRAE(A1;FILA(1:8);1)*(EXTRAE({"0408051009070306"};(FILA(1:8)*2)-1;2)));11)>9;1-(RESIDUO(11-RESIDUO(SUMAPRODUCTO(EXTRAE(A1;FILA(1:8);1)*(EXTRAE({"0408051009070306"};(FILA(1:8)*2)-1;2)));11);10));11-RESIDUO(SUMAPRODUCTO(EXTRAE(A1;FILA(1:8);1)*(EXTRAE({"0408051009070306"};(FILA(1:8)*2)-1;2)));11))&SI(11-RESIDUO(SUMAPRODUCTO(EXTRAE(B1;FILA(1:10);1)*(EXTRAE({"01020408051009070306"};(FILA(1:10)*2)-1;2)));11)>9;1-(RESIDUO(11-RESIDUO(SUMAPRODUCTO(EXTRAE(B1;FILA(1:10);1)*(EXTRAE({"01020408051009070306"};(FILA(1:10)*2)-1;2)));11);10));11-RESIDUO(SUMAPRODUCTO(EXTRAE(B1;FILA(1:10);1)*(EXTRAE({"01020408051009070306"};(FILA(1:10)*2)-1;2)));11))

Que aparece en uno de los hilos de los foros, es la única fórmula que
me funciona porque el resto de fórmulas que he comprobado no sacan el
dígito de control correcto. El problema es que no me es operativa
porque hay que separar en dos celdas la cuenta bancaria por un lado el
banco mas la oficina y por el otro El nº de cuenta propiamente dicho
sin meter el dígito de control.
El problema es que yo tengo todas las cuentas con los 20 Números
seguidos y comprobarlo una por una es un trabajo titánico :(
¿Alguién tiene una fórmula más operativa? o modificar esta fórmula
para que no tengas que separar los 20 dígitos.
He visto que hay algún código de VBA pero no consigo hacerlo
funcionar.

Muchas gracias por adelantado

Preguntas similares