Función para calcular el dígito verificador del RUT en EXCEL

by | Ene 10, 2019 | Microsoft Excel | 0 comments

Función para calcular el dígito verificador del RUT en EXCEL

Con esta función podrás agregar en una celda el dígito verificador del Rut (Chile).

Public Function dvrut(rut)
      rut = Replace("0000" & rut, ".", "", 1)
      If InStr(1, rut, "-") > 0 Then rut = Left(rut, InStr(1, rut, "-") - 1)
      rut = Right(rut, 8)
      suma = 0
      For i = 1 To 8
            suma = suma + Val(Mid(rut, i, 1)) * Val(Mid("32765432", i, 1))
      Next i
      dv = 11 - (suma Mod 11)
      If dv = 10 Then dv = "k"
      If dv = 11 Then dv = 0
      dvrut = dv
End Function

Para agregar la función debes ir a Programador->VisualBasic y en la columna de la izquierda sobre la carpeta que dice módulos botón derecho->insertar->modulo. En la ventana que se abre hay que copiar el código de la función y guardarlo.

En la hoja de Excel debes escribir =dvrut(CELDA), donde “CELDA” es la celda donde esta el Rut sin el dígito y te entregará el dígito verificador que corresponde.