............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

formato de R.U.T

Ver el tema anterior Ver el tema siguiente Ir abajo

formato de R.U.T

Mensaje por solindro el Dom Ene 17, 2010 1:16 pm

Hola deseo saber si es posible hacer un formato para una celda que al ingresar los digitos de un rut este los separe con sepatador de miles y digito verificador.
ejemplo
se ingresa 87392384 i se convierta al hacer clik en 8.739.238-4

esto se aptecia en la pagina
[Tienes que estar registrado y conectado para ver este vínculo]

Muchas gracias

solindro

Masculino Cantidad de envíos : 17
Edad : 57
Ciudad - Pais : Chile
Version de Excel : 2000 a2007
Fecha de inscripción : 17/06/2009

Volver arriba Ir abajo

Re: formato de R.U.T

Mensaje por solindro el Dom Ene 17, 2010 3:13 pm

He descuvierto este formato 0#"."###"."###"-"# que resulta perfecto, pero solo para valores numericos y en digito verificador es alfanumerico si alguien me puede ayudar lo agradeceria
Sergio

solindro

Masculino Cantidad de envíos : 17
Edad : 57
Ciudad - Pais : Chile
Version de Excel : 2000 a2007
Fecha de inscripción : 17/06/2009

Volver arriba Ir abajo

Re: formato de R.U.T

Mensaje por GalileoGali el Dom Ene 17, 2010 3:21 pm

Si la base no es un Numero no hay formato que funciones...., salvo algo hecho con macros

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: formato de R.U.T

Mensaje por solindro el Dom Ene 17, 2010 7:08 pm

gracias galileo, usted sabe como es esa macro???

solindro

Masculino Cantidad de envíos : 17
Edad : 57
Ciudad - Pais : Chile
Version de Excel : 2000 a2007
Fecha de inscripción : 17/06/2009

Volver arriba Ir abajo

Re: formato de R.U.T

Mensaje por kruciare el Lun Ene 23, 2012 4:27 pm

Si aun tienes este problema yo tengo la macro que te puede ayudar para Rut de 8 y 9 digitos incluyendo -K.
avatar
kruciare

Masculino Cantidad de envíos : 18
Edad : 35
Ciudad - Pais : chile
Version de Excel : 2010
Fecha de inscripción : 13/01/2012

Volver arriba Ir abajo

Re: formato de R.U.T

Mensaje por GalileoGali el Lun Ene 23, 2012 8:39 pm

kruciare: ¿que hace tu macro (en pocas palabras)?

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: formato de R.U.T

Mensaje por kruciare el Miér Ene 25, 2012 4:00 pm

tu escribes
ejemplo 1 15104775k y este te deja 15.104.775-k con RUT de 9 digitos
ejemplo 2 1104775k y este te deja en 1.104.775-k con RUT de 8 digitos

lo mismo si luego del guion en ves de K sea cualquier numero.

ejemplo 1.- 151047758 este te deja en 15.104.775-8 con RUt de 9 digitos
ejemplo 2.- 11047758 este te deja en 1.104.775-8 con RUt de 8 digitos

Espero haber sido lo mas claro posible.
avatar
kruciare

Masculino Cantidad de envíos : 18
Edad : 35
Ciudad - Pais : chile
Version de Excel : 2010
Fecha de inscripción : 13/01/2012

Volver arriba Ir abajo

Re: formato de R.U.T

Mensaje por GalileoGali el Dom Ene 29, 2012 4:49 pm

a ver esto
colocar el codigo en un Modulo standard

Código:
Option Explicit

Function RUTfrmt(rut As String) As String
Dim CAD As Variant, CAS1 As String, CAS2 As String, CAS3 As String, CAS4 As String
Application.Volatile
CAD = CStr(Range("A1"))
CAS1 = Left(CAD, (Len(CAD) - 1) Mod 3)
CAS2 = Mid(CAD, Len(CAD) - 6, 3)
CAS3 = Mid(CAD, Len(CAD) - 3, 3)
CAS4 = Right(CAD, 1)
RUTfrmt = CAS1 & "." & CAS2 & "." & CAS3 & "-" & CAS4
End Function

Convengamos en que de esta amenra no se esta creando ningun tipo de formato, solamente se devuelve un recultado desde un argumento inicial, pero cambiandolo. Los formatos nunca alteran el argumento en celda, simplemente "lo muestran" de una manera diferente.
Si tu programa , kruciare hace eso, pues mucha curiosidad me despierta ya que desconozco un procedimiento que permita crear un formato personalizado para cadenas de texto. ¿O tal vez no veo posibilidades que alguien sí detectó.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Macros formato Rut

Mensaje por kruciare el Vie Feb 03, 2012 1:57 pm

Estimado, Maestro Gali esta es la macros que espero le sirva a muchas personas que tiene este problema por lo menos en el país de Chile yo cree un complemento Add para excel y lo agregue al menú de Excel 2010 y me sirve de maravilla aclaro que el código no es de mi creación 100% me ayudo un amigo de España que conocí por Internet el cual también aporta sus conocimientos en youtube (DavidAsurmendi) al cual agradezco igual que a usted por su aporte a todos los que tenemos inquietudes
aquí la macros
como le conté cree un completo y le asigne una tecla rápida Ctrl+r y los numero me los deja como el ejemplo al inicio de mi comentario

Sub Rut()
Dim Celda As Range

For Each Celda In Selection
If Len(Celda) = 9 Then
Celda = Left(Celda, 2) & "." & Mid(Celda, 3, 3) & "." & Mid(Celda, 6, 3) & "-" & Right(Celda, 1)
End If
Next
For Each Celda In Selection
If Len(Celda) = 8 Then
Celda = Left(Celda, 1) & "." & Mid(Celda, 2, 3) & "." & Mid(Celda, 5, 3) & "-" & Right(Celda, 1)
End If
Next
End Sub
avatar
kruciare

Masculino Cantidad de envíos : 18
Edad : 35
Ciudad - Pais : chile
Version de Excel : 2010
Fecha de inscripción : 13/01/2012

Volver arriba Ir abajo

Re: formato de R.U.T

Mensaje por GalileoGali el Vie Feb 03, 2012 9:03 pm

sigo insistiendo sobre el mismo concepto: no se trata ni en tu macro ni en la mia de haber logrado un formato personalizado de nopmbre RUT, sino que devolvemos un resultado diferente al original mostrandolo tal como queda despues de la transformacion.

Comentario: dos For Each obligan a pasar por la misma celda dos veces, ¿sera mas o menos eficiente establecer un único For Each, y en cada celda plantea los If que hagan falta??

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: formato de R.U.T

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.