Formula en celda del RUT Chileno

ITWare2008

Board Regular
Joined
Apr 16, 2010
Messages
174
Hola Juanpy,

Creo que su excel eres en castellano, si?

Sí es eso, entonces usted no puede escribir las formulas en inglés sino en castellano.
También tiene que mirar las definiciones regionales, porque lo signo de separacion de argumentos puede no ser lo ;

Perdona mi malo castellano.

Saludos.


Vândalo
 

Some videos you may like

Excel Facts

Format cells as time
Select range and press Ctrl+Shift+2 to format cells as time. (Shift 2 is the @ sign).

johannpm

New Member
Joined
Nov 7, 2009
Messages
2
Juanpy, la fórmula presentada por Mr. Shg funciona correctamente (formula submitted by Mr. Shg works as expected)

Debes tomar en consideración estos 3 puntos:

1. Los nombres de las funciones en español son diferentes
=BUSCAR(11 - RESIDUO(SUMAPRODUCTO({3;2;7;6;5;4;3;2}; --EXTRAE(A2; {1;2;3;4;5;6;7;8}; 1)); 11); {0;1;2;3;4;5;6;7;8;9;10;11}; {0;1;2;3;4;5;6;7;8;9;"K";0})

2. El separador de listas debe ser ";"
Debes sustituir TODAS las "," por ";"

3. Es una fórmula matricial
Para finalizar una fórmula matricial debes presionar Crtl + Shift + Enter para ingresar la fórmula

Saludos
 

juanpy

New Member
Joined
Aug 21, 2014
Messages
17
Johannpm,

Tu español esta genial no hay problemas

Mira cambie todo lo que me dices y nada, la formula no anda.

Ahora mira esta formula (va en la celda J6)

Code:
=11-RESTO(SUMAPRODUCTO(MED($J$4;FILA($A$1:$A$8);1)*1;{3;2;7;6;5;4;3;2});11)
Hace lo que necesito, pero, debo complementarla con es esta:

Code:
=SI(J6=10;"K";SI(J6=11;0;J6))
Pero no es la idea, pues lo que necesito es que solo en una celda se escriba el la formula y arroje el digito verificador.

Muchas Gracias a todos
 

juanpy

New Member
Joined
Aug 21, 2014
Messages
17
Bueno, el problema aun sigue, no puedo lograr incluir la formula

Me da errores por todos lados:

#¿NOMBRE?

Ya me di por vencido, gracias a todos por sus aportes.
 

patricioaedoh

New Member
Joined
Nov 27, 2017
Messages
1
Estimados, buenas tardes a todos.

Compañeros de este, el mejor foro de Excel.

Necesito la formula para generar el digito verificador, del RUT Chileno:

Code:
Public Function Rut
Digito(ByVal Rut As Long) As String 
Dim Digito      As Integer
Dim Contador    As Integer    
Dim Multiplo    As Integer    
Dim Acumulador  As Integer   

Contador = 2    
Acumulador = 0    
While Rut <> 0
      Multiplo = (Rut Mod 10) * Contador
      Acumulador = Acumulador + Multiplo
      Rut = Rut \ 10
      Contador = Contador + 1
      If Contador > 7 Then
        Contador = 2
      End If
    Wend
    Digito = 11 - (Acumulador Mod 11)
    RutDigito = CStr(Digito) 
   If Digito = 10 Then RutDigito = "K" 
   If Digito = 11 Then RutDigito = "0" 
End Function
Code:
Se procede a tomar el número de RUT de derecha a izquierda, 
multiplicando cada dígito por los números que componen la serie
 numérica 2, 3, 4, 5, 6, y 7; y sumando el resultado de estos productos.
 Si se ha aplicado la serie hasta el final y quedan dígitos por multiplicar,
 se comienza la serie nuevamente: 7 × 2 = 14,
5 × 3 = 15,
9 × 4 = 36,
6 × 5 = 30,
8 × 6 = 48,
6 × 7 = 42,
0 × 2 = 0,
3 × 3 = 9,
entonces la suma de los productos es:
 14+15+36+30+48+42+0+9 = 194
- Al número obtenido por la suma del producto de cada dígito por la 
serie ya mencionada, se le aplica módulo 11, o sea, se divide por 11
 y se determina el resto de la división:
parte entera de (194 : 11) = 17
resto de la división entera: (194 - 11 * 17) = 7
- Ahora a 11 se le resta el resto calculado antes:
11 - 7 = 4
- Al resultado final, se le convierte a una letra o número, siguiendo estas reglas:
Si el resultado es 11, el dígito verificador será 0 (cero).Si el resultado es 10, el dígito verificador será K.En otro caso, el resultado será el propio dígito verificador.Como en el ejemplo el resultado de la resta es 4, el dígito verificador es 4.
LO IMPORTANTE ES QUE SEA DIRECTO EN UNA CELDA Y NO CON MACRO

La verdad es que no me manejo muy bien con las funciones de matrices o vectores, por eso es quie recurro a ustedes.

Muchas gracias
Hola! Te dejo una fórmula que utilizo bastante para validar el rut. Lo único que debes hacer es copiarla y pegarla en tu hoja de cálculo (agregando el signo igual (=)). Luego modificar la celda en donde se encuentre el rut y listo (en este caso está apuntando hacia la celda A2).

SI.ERROR(VALOR(EXTRAE("<wbr style="font-family: arial, sans-serif; font-size: 12.8px;">123456789K0";11-RESIDUO(<wbr style="font-family: arial, sans-serif; font-size: 12.8px;">SUMAPRODUCTO(EXTRAE(DERECHA(<wbr style="font-family: arial, sans-serif; font-size: 12.8px;">REPETIR("0";12)&A2;12);13-<wbr style="font-family: arial, sans-serif; font-size: 12.8px;">FILA(INDIRECTO("1:12"));1)*<wbr style="font-family: arial, sans-serif; font-size: 12.8px;">EXTRAE("234567234567";FILA(<wbr style="font-family: arial, sans-serif; font-size: 12.8px;">INDIRECTO("1:12"));1));11);1))<wbr style="font-family: arial, sans-serif; font-size: 12.8px;">;"K")

Me cuentas!
Saludos
 

Chaskon

New Member
Joined
Feb 28, 2020
Messages
1
Office Version
365
Platform
Windows, MacOS
Hola! Hace tiempo tuve este mismo problema y armé la formula. Solo cambia los $A$1 por la celda que corresponda a tu caso

Rich (BB code):
=SI(11-(RESIDUO((SI.ERROR(EXTRAE($A$1;LARGO($A$1);1);  0)*2)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-1;1); 0)*3)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-2;1);  0)*4)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-3;1); 0)*5)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-4;1);  0)*6)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-5;1); 0)*7)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-6;1);  0)*2)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-7;1); 0)*3);11))=10; "K";  SI(11-(RESIDUO((SI.ERROR(EXTRAE($A$1;LARGO($A$1);1);  0)*2)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-1;1); 0)*3)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-2;1);  0)*4)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-3;1); 0)*5)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-4;1);  0)*6)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-5;1); 0)*7)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-6;1);  0)*2)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-7;1); 0)*3);11))=11; 0;  11-(RESIDUO((SI.ERROR(EXTRAE($A$1;LARGO($A$1);1);  0)*2)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-1;1); 0)*3)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-2;1);  0)*4)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-3;1); 0)*5)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-4;1);  0)*6)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-5;1); 0)*7)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-6;1);  0)*2)+(SI.ERROR(EXTRAE($A$1;LARGO($A$1)-7;1); 0)*3);11))))
 

Watch MrExcel Video

Forum statistics

Threads
1,095,168
Messages
5,442,792
Members
405,196
Latest member
rmuir12

This Week's Hot Topics

  • Copy entire row if CountA <>0 to another sheet
    [B]I want to copy entire row if CountA <>0 for column J7:AM7 (headers on J6:AM6) and so on till the last used cell is column D and paste the...
  • Select last used Row in Table
    I have created a Table in a Worksheet which is locked to prevent user errors and protect formula. Some of the cells require freetext entries which...
  • excel workbook: do not allow certain file name
    Hello all, Don't think this has ever been asked before, but how do I restrict file save [Before_Save Event] if the name of the file being saved...
  • fixing problem autofilter
    hello i need help about my code when i search by code in textbox it doesn't show anything this is my data [ATTACH type="full"...
  • “Weight”
    Hi, i’ve got a long sheet filled with weights such as kg,g,L & ml. i can build a formula to convert kg into g and liter into ml. How ever, my...
  • How to capitalize everything before a certain character?
    In column A, I have some text: Hello good day.mp3 Hello good day.flac etc. I'd like to capitalize everything before the period. I don't need the...
Top