Validar número de RUC en Excel - formula gratis

 

A CONTINUACION TE COMPARTO EL CODIGO DE LA MACRO

Function ValidarRucSunat(Ruc As Variant) As String 'autor: EDILBERTO MEJIA DIAZ''''''''''''''''''''''''' 'web: http://contabilidadinternational.blogspot.pe/ ' ' 'correo: cpc.edilbmd@gmail.com ' ''''''''''''''''''''''''''''''''''''''''''''''''''''' Application.Volatile Dim DigitosRuc(0 To 9) Dim ArrayDatosFijos As Variant Dim A, B, C As Single Dim UltimoDigito As Byte If Len(Ruc) <> 11 Then ValidarRucSunat = "RUC No válido: Revise el N° de dígitos" Exit Function End If If (Mid(Ruc, 1, 2) <> 10 And Mid(Ruc, 1, 2) <> 15 And Mid(Ruc, 1, 2) <> 17 And Mid(Ruc, 1, 2) <> 20) Then ValidarRucSunat = "RUC No válido: Revise los 2 primeros dígitos" Exit Function End If UltimoDigito = CInt(Mid(Ruc, 11, 1)) ArrayDatosFijos = Array(5, 4, 3, 2, 7, 6, 5, 4, 3, 2) For i = 0 To 9 DigitosRuc(i) = CInt(Mid(Ruc, i + 1, 1)) Next i A = Application.WorksheetFunction.SumProduct(DigitosRuc, ArrayDatosFijos) B = Int(A / 11) C = 11 - (A - B * 11) If C = 10 Then C = 0 If C = 11 Then C = 1 'Revisamos If UltimoDigito = C Then ValidarRucSunat = "RUC Válido" Else ValidarRucSunat = "RUC No válido" End If End Function