🚀 go-pugleaf

Sirve.

Validar RUT!
Excel
Function dv(a)
    j = 2
    For i = 0 To Len(a) - 1
        aux = aux + Val(Mid$(a, Len(a) - i, 1)) * j
        If j > 6 Then
            j = 2
        Else
            j = j + 1
        End If
    Next i
    aux1 = 11 - (aux Mod 11)
    If aux1 < 10 Then
        dv = aux1
    Else
        dv = "K"
    End If
End Function

Bye



"quincy" <quincy12.enarroba@en.gmail.com> escribi� en el mensaje 
news:467ea30e@news.vcd.cl...
>
> necesito ayuda, orientaci�n o algo as�:
> quiero agregar una columna con el numero de RUT a una planilla Excel en
> uso;
>
> mi inter�s es que en las celdas de la planilla respectiva funcione una
> f�rmula que valide el RUt luego de digitarlo,,,
> dado que, posteriormente, voy a enlazar esa planilla con una base de datos
> m�s antigua (fue hecha con Clipper 2, si mal no recuerdo, hace 12 a�os)
> cuya informaci�n incluye el RUT verificado como 'dato clave' para la
> indexaci�n; y ambas, la planilla y la basededatos se refieren al mismo
> universo de personas , obvio, con la diferencia que aqu�lla tiene personas
> que no fueron ingresadas a �sta �ltima
>
> o tb. podr�a ser que ingrese los d�gitos enn forma correlativa hasta antes
> del guion, y que la f�rmula calcule el DV y lo coloque en otra columna
> adyacente a la derecha,,,
>
> se me ocurre, pero...
>
>
> graxs, si