Duda en Excel,solo para EXPERTOS

[kmylo]

hola amigos,tengo las siguientes dudas en excel:

resulta que tengo una columna con muchos ruts ( dni en otros paises,o numero de identificacion social) los cuales corresponden al nombre que esta en la columna siguiente,pero esos ruts vienen antecedidos por "0" generalmente 2,a veces 3 ceros.
el tema es que deseo borrarlos y no tener que hacerlo uno por uno,y lo otro es que no quiero tenerlos con digito verificador,q es el numero que sigue al guión,por ejmplo:

0014087424-8 quiero que quede de esta forma ---> 14087424


o en el caso de los que tienen 3 ceros 0008388259-K ----------> 8388259

algunos ruts vienen sin los ceros,pero con puntos,entonces también deseo sacarle los puntos,es decir;

15.920.141-4 que quede de la siguiente forma ------> 15920141

sin puntos y sin digito verificador.

utilizo el excel que venia con Vista,es decir el 2003.


Amigos recurro a ustedes por que siempre me han ayudado mucho,y se que saben mucho,de antemano muchisimas gracias!

[DIEFRA]

Hola,

Prueba esto:

Inserta una columna al lado derecho de la lista de ruts, para el ejemplo la lista estará en la columna A, luego usa el siguiente codigo.

Sub EXTRAER_RUT()
Columns("A:A").Select
Selection.Replace What:=".", Replacement:=""
Selection.NumberFormat = "0"
Selection.TextToColumns Destination:=[A1], Other:=True, OtherChar _
:="-", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
End Sub

[jchuk]

Hola,
Otra opción sin usar macros sería la siguiente:
Imaginando que los ruts o como se llamen están en la columna A desde A1, inserta una nueva columna a su derecha que serí ala B. En ella pon esta fórmula y cópiala hacia abajo para todos los ruts
=EXTRAE(A1;1;HALLAR("-";A1;1)-1)

Una vez echo esto, copia toda la columna B, te sitúa en la columna A y le das a Pegado especial >> Pegar Valores

Ya está, borras la columna B y todo arreglado.

Un saludo.

[kmylo]

Iniciado por DIEFRA

Hola,

Prueba esto:

Inserta una columna al lado derecho de la lista de ruts, para el ejemplo la lista estará en la columna A, luego usa el siguiente codigo.

Sub EXTRAER_RUT()
Columns("A:A").Select
Selection.Replace What:=".", Replacement:=""
Selection.NumberFormat = "0"
Selection.TextToColumns Destination:=[A1], Other:=True, OtherChar _
:="-", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
End Sub

gracias por responder!
pero no comprendo algo,donde inserto el codigo? eso es una famosa ""macro"
muchas gracias de antemano!

[caesar.l]

Iniciado por kmylo

gracias por responder!
pero no comprendo algo,donde inserto el codigo? eso es una famosa ""macro"
muchas gracias de antemano!

Y dice que sólo es para expertos

Herramientas>Macros>Editor de Visual Basic

Ahi pones el codigo

y eso de la famosa macro, lee esto

[SILVI85]

Yo creo que lo más fácil es:

Seleccionas los campos que tengas que tienen el formato que no te gusta, botón derecho, formato de celdas, y en la pestaña número seleccionas general.

Ya me contarás que tal te ha ido.

Saludos

[tepitenio]

No me parece que hace falta meterse en codigo, lo podes resolver con formulas. Lee este articulo sobre Formatos en Excel a ver si te ayuda. Ademas podes usar la formula LEFT para quitar el codigo verificador. No entres en codificacion VB porque es un lio y te termina tirando la planilla a la basura.

[Omura]

Iniciado por tepitenio

... No entres en codificacion VB porque es un lio y te termina tirando la planilla a la basura.

probablemente se estaba proyectando y por eso decía que era solo para expertos .

experto: persona a la que se llama para compartir la culpa .

[gedarufi]

Para resolver esto no necesitas utilizar formulas ni nada de eso, simplemente debes de utilizar la formula texto en columnas (Datos / Texto en columnas), seleccionas Delimitado, pones el separador Otro y pones el Guion (-), ahi te separa el DV, luego puedes juagar con los formatos para obtener el numero sin ceros y sin puntos y listo.

[tepitenio]

Omura, no entendi lo que quisiste decir. Yo no hice la pregunta, solo estoy diciendo que me parece que para resolver el problema no hace falta codigo VB, solo usando formulas y funciones lo solucionas. Hay que ser experto? No se, lo que si, hay que saber un toque de funciones y formulas.

[Omura]

Iniciado por tepitenio

Omura, no entendi lo que quisiste decir...

disculpa el mal entendido tepitenio, si se que la consulta la hizo kmylo, lo que puse fue una broma sarcástica haciendo alusión al titulo... solo para expertos, aunque fácil fue mas un chiste comentario y me falto enviar el manual .

[corleone1846]

No soy un experto pero hace dias me tope con un problema parecido, es muy facil solucionarlo sin codigo, sin macros ni cosas raras, simplemente seleccinoa la o las celdas que contiene los datos, dale clik en la erramienta buscar, selecciona la opcion reemplazar, si quieres eliminar puntos, pues en buscar le pones "." y en reemplazar lo dejas en blanco (el caracter es sin las comillas), y asi sucesivamente, si quieres eliminar un espacio en blanco pues en buscar poes un espacio " " y en reemplazar lo dejas vacio. no se si me explique

con respecto a los ceros de la izquierda pues simplemente seleccion las celdas, daleboton secundario encima de la seleccion, dale en formato de celda, selecciona la opcion numero y en decimales le pones cero y LISTO!!!

espero ser de ayuda

[RatonesPelones]

corleone1846 gracias por tu disposición a ayudar, lamentablemente creo que a casi dos años nuestro compañero kmilo ya ha de haber solucionado su problema. Recuerda leer las normas del foro.