Función VBA para dar autoformato a las cédulas y nit de los clientes

el . Publicado en Excel

Esta es una función que permite que el usuario ingrese in número plano y este le da formato de cédula o nit, para que funcione correctamente debe tener en cuenta las siguientes recomendaciones:

  • Debe crear las siguientes variables globales Global valor, nitf AS String.
  • Se llama la función de lasiguiente forma formato_nit (campo_evaluado).
  • Para diferenciar nit y cédula, se debe agregar el dígito de verificación después de un "-" (guión).
Function formato_nit(nit As String)
valor = InStr(nit, "-")
If valor = 0 Then
nitf = VBA.Format(nit, "##,##00")
Else
nitf = VBA.Format(VBA.Left(nit, VBA.Len(nit) - 2), "##,##00") & VBA.Right(nit, 2)
End If
End Function
The Best betting exchange Betfair Bookmakerby ArtBetting.Net
BIGTheme - Free Templates

Pago en línea AplexTM

Cuenta Cobro:
Nombre: