Newsgrupos.com  

Retroceder   Newsgrupos.com > Forum > Newsgroup microsoft.public.es.* 1 Foro > Newsgroup microsoft.public.es.excel
Registrarse Preguntas Frecuentes Lista de Foreros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos




Respuesta
 
LinkBack Herramientas Desplegado
  #1 (permalink)  
Antiguo 01-12-2007, 18:18:16
Paco
 
Mensajes: n/a
Predeterminado Dividir celdas

Hola grupo
Tengo el siguiente texto en una celda, A1
Mercancía: 0202 - CARNE CONGELADA ANIMALES BOVINOS 64,297

necesitaria separar el número (64,297) que siempre esta al final y ponerlo
en otra celda A2

Es posible?
Gracias por vuestra ayuda

Responder Con Cita
Alt Today
Advertising
Google Adsense
 
This advertising will not be shown
in this way to registered members.
Register your free account today
and become a member on
Newsgrupos.com
Standard Sponsored Links

  #2 (permalink)  
Antiguo 01-12-2007, 19:30:38
Héctor Miguel
 
Mensajes: n/a
Predeterminado Re: Dividir celdas

hola, Paco !

> Tengo el siguiente texto en una celda, A1
> Mercancia: 0202 - CARNE CONGELADA ANIMALES BOVINOS 64,297
> necesitaria separar el número (64,297) que siempre esta al final y ponerlo en otra celda A2...


OJO con el separador de argumentos, mi sistema usa coma ','

=derecha(a1,largo(a1)-hallar("|",sustituir(a1," ","|",largo(a1)-largo(sustituir(a1," ","")))))

saludos,
hector.


Responder Con Cita
  #3 (permalink)  
Antiguo 02-12-2007, 19:59:09
Paco
 
Mensajes: n/a
Predeterminado Re: Dividir celdas

Gracias Hector , he sustituido las comas pero no consigo que me funcione,
¿que caracter es el que pones entre comillas "l"? Donde coloco la
formula??

Slds

"Héctor Miguel" <NOhemiordiSPAM***PLShotmail.com> escribió en el mensaje de
noticias news:usyUpCFNIHA.3940***TK2MSFTNGP05.phx.gbl...
> hola, Paco !
>
>> Tengo el siguiente texto en una celda, A1
>> Mercancia: 0202 - CARNE CONGELADA ANIMALES BOVINOS 64,297
>> necesitaria separar el número (64,297) que siempre esta al final y
>> ponerlo en otra celda A2...

>
> OJO con el separador de argumentos, mi sistema usa coma ','
>
> =derecha(a1,largo(a1)-hallar("|",sustituir(a1,"
> ","|",largo(a1)-largo(sustituir(a1," ","")))))
>
> saludos,
> hector.
>


Responder Con Cita
  #4 (permalink)  
Antiguo 02-12-2007, 22:47:57
Héctor Miguel
 
Mensajes: n/a
Predeterminado Re: Dividir celdas

hola, Paco !

> ... he sustituido las comas pero no consigo que me funcione
> que caracter es el que pones entre comillas "l"?
> Donde coloco la formula??


el caracter de la propuesta de formula "|" es la barra vertical (su ubicacion depende de la plantilla de teclado)
el objetivo es utlizar un caracter (cualquiera) que estes +/- cierto que no se encuentra en el texto original
/ \ ^ ~ # $ % & *** _ ¬ ° (etc. etc. etc.) <= OJO no son expresiones "mal sonantes" )

la formula la colocas en la celda donde necesites el resultado (en tu consulta seria en la celda 'A2')

saludos,
hector.

__ la consulta original __
>>> Tengo el siguiente texto en una celda, A1
>>> Mercancia: 0202 - CARNE CONGELADA ANIMALES BOVINOS 64,297
>>> necesitaria separar el número (64,297) que siempre esta al final y ponerlo en otra celda A2...

>>
>> OJO con el separador de argumentos, mi sistema usa coma ','
>>
>> =derecha(a1,largo(a1)-hallar("|",sustituir(a1," ","|",largo(a1)-largo(sustituir(a1," ","")))))



Responder Con Cita
  #5 (permalink)  
Antiguo 03-12-2007, 12:40:21
Juan Español
 
Mensajes: n/a
Predeterminado Re: Dividir celdas

Héctor, he incorporado a mi libro "PERSONAL" la función Invierte que
definiste el 29-11-07 y aprovechando esta función la solución al problema de
Paco quedaría así:

=DERECHA(A1;ENCONTRAR(" ";PERSONAL.XLS!INVIERTE(A1))-1)

La función la he puesto en un módulo en el libro PERSONAL.XLS como

Public Function Invierte(Texto As String) As String
Invierte = StrReverse(Texto)
End Function

Qué tendría que cambiar para hacer referencia a esa función sin tener que
llamar al libro, es decir
que funcionara en cualquier libro con: Invierte(....)
y no tener que poner: PERSONAL.XLS!Invierte(....)

Lo digo porque en mi libro PERSONAL tengo definidas varias pequeñas
funciones "auxiliares" y me pasa lo mismo.

Desde Salamanca, saludos,

Juan Español



"Héctor Miguel" <NOhemiordiSPAM***PLShotmail.com> escribió en el mensaje
news:OLyBkVTNIHA.4480***TK2MSFTNGP06.phx.gbl...
> hola, Paco !
>
>> ... he sustituido las comas pero no consigo que me funcione
>> que caracter es el que pones entre comillas "l"?
>> Donde coloco la formula??

>
> el caracter de la propuesta de formula "|" es la barra vertical (su
> ubicacion depende de la plantilla de teclado)
> el objetivo es utlizar un caracter (cualquiera) que estes +/- cierto que
> no se encuentra en el texto original
> / \ ^ ~ # $ % & *** _ ¬ ° (etc. etc. etc.) <= OJO no son expresiones "mal
> sonantes" )
>
> la formula la colocas en la celda donde necesites el resultado (en tu
> consulta seria en la celda 'A2')
>
> saludos,
> hector.
>
> __ la consulta original __
>>>> Tengo el siguiente texto en una celda, A1
>>>> Mercancia: 0202 - CARNE CONGELADA ANIMALES BOVINOS 64,297
>>>> necesitaria separar el número (64,297) que siempre esta al final y
>>>> ponerlo en otra celda A2...
>>>
>>> OJO con el separador de argumentos, mi sistema usa coma ','
>>>
>>> =derecha(a1,largo(a1)-hallar("|",sustituir(a1,"
>>> ","|",largo(a1)-largo(sustituir(a1," ","")))))

>
>



Responder Con Cita
  #6 (permalink)  
Antiguo 03-12-2007, 19:21:16
Héctor Miguel
 
Mensajes: n/a
Predeterminado Re: Dividir celdas

hola, Juan !

> ... he incorporado a mi libro "PERSONAL" la funcion Invierte... y aprovechando esta... la solucion al problema de Paco quedaria asi:
> =DERECHA(A1;ENCONTRAR(" ";PERSONAL.XLS!INVIERTE(A1))-1)
> La funcion la he puesto en un modulo en el libro PERSONAL.XLS como
> Public Function Invierte(Texto As String) As String
> Invierte = StrReverse(Texto)
> End Function
> Que tendria que cambiar para hacer referencia a esa funcion sin tener que llamar al libro, es decir
> que funcionara en cualquier libro con: Invierte(....) y no tener que poner: PERSONAL.XLS!Invierte(....)
> Lo digo porque en mi libro PERSONAL tengo definidas varias pequenas funciones "auxiliares" y me pasa lo mismo...


(hasta donde se)... el libro de macros personales (personal.xls) -> NO DEJA de ser un libro (como cualquiera otro
(por lo cual)... los procedimientos que contiene REQUIEREN ser calificados/emparentados/... con el mismo

una ventaja... es que al abrirse en conjunto con la aplicacion... estan disponibles para todos los libros (en esa pc/sesion)
otra... es que puedes usar al asistente para funciones {mayus}+{F3} o (menu) insertar / funcion...
-> y excel se encarga de hacer lo propio sin que tu tengas que hacerlo

una desventaja... es que el libro personal.xls NECESITA estar presente... (al menos) cuando algun libro USE sus macros

para evitar la necesidad de calificar la funcion con su otro libro es necesario generar un complemento (.XLA, .COM, .XLL, etc.)
y ademas compartirlo/instalarlo/... en las pc's que los necesiten

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.


Responder Con Cita
  #7 (permalink)  
Antiguo 03-12-2007, 21:56:42
Héctor Miguel
 
Mensajes: n/a
Predeterminado Re: Dividir celdas

hola, Paco !

> ... algo hago mal, te adjunto el archivo, en realidad el resultado lo necesitaria en B1.
> He puesto la formula en A2 y B1, y no sale nada.


solo hay un "ligero" inconveniente (que no alcanzo a ser "apreciable" durante el curso de esta conversacion)...
-> al final de texto de tu ejemplo... existen SIETE espacios que le estan estorbando a la formula
el texto es (textualmente): " Mercancía: 0202 - CARNE CONGELADA ANIMALES BOVINOS 64,297 "

op1: utilizar una celda "auxiliar" para limpiar los espacios "sobrantes" (p.e. [B1] =espacios(a1)
y cambiar en la formula la referencia a la celda original (a1) por la celda auxiliar (b1)

op2: sustituir en la formula original toda referencia a la celda original (a1)
por una expresion que limpie cada una de esas referencias (p.e.)
=derecha(espacios(a1),largo(espacios(a1))-hallar("|",sustituir(espacios(a1)," ","|",largo(espacios(a1))-largo(sustituir(espacios(a1)," ","")))))

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

>>> ... he sustituido las comas pero no consigo que me funcione
>>> que caracter es el que pones entre comillas "l"?
>>> Donde coloco la formula??

>>
>> el caracter de la propuesta de formula "|" es la barra vertical (su ubicacion depende de la plantilla de teclado)
>> el objetivo es utlizar un caracter (cualquiera) que estes +/- cierto que no se encuentra en el texto original
>> / \ ^ ~ # $ % & *** _ ¬ ° (etc. etc. etc.) <= OJO no son expresiones "mal sonantes" )
>>
>> la formula la colocas en la celda donde necesites el resultado (en tu consulta seria en la celda 'A2')


>> __ la consulta original __
>>>>> Tengo el siguiente texto en una celda, A1
>>>>> Mercancia: 0202 - CARNE CONGELADA ANIMALES BOVINOS 64,297
>>>>> necesitaria separar el número (64,297) que siempre esta al final y ponerlo en otra celda A2...
>>>>
>>>> OJO con el separador de argumentos, mi sistema usa coma ','
>>>>
>>>> =derecha(a1,largo(a1)-hallar("|",sustituir(a1," ","|",largo(a1)-largo(sustituir(a1," ","")))))



Responder Con Cita
  #8 (permalink)  
Antiguo 04-12-2007, 17:23:28
Juan Español
 
Mensajes: n/a
Predeterminado Re: Dividir celdas

Entendido Héctor, miraré que puedo/sé hacer con un XLA, para mejorar la
cuestión.

"Héctor Miguel" <NOhemiordiSPAM***PLShotmail.com> escribió en el mensaje
news:OP6ExGeNIHA.1208***TK2MSFTNGP05.phx.gbl...
> hola, Juan !
>
>> ... he incorporado a mi libro "PERSONAL" la funcion Invierte... y
>> aprovechando esta... la solucion al problema de Paco quedaria asi:
>> =DERECHA(A1;ENCONTRAR(" ";PERSONAL.XLS!INVIERTE(A1))-1)
>> La funcion la he puesto en un modulo en el libro PERSONAL.XLS como
>> Public Function Invierte(Texto As String) As String
>> Invierte = StrReverse(Texto)
>> End Function
>> Que tendria que cambiar para hacer referencia a esa funcion sin tener que
>> llamar al libro, es decir
>> que funcionara en cualquier libro con: Invierte(....) y no tener que
>> poner: PERSONAL.XLS!Invierte(....)
>> Lo digo porque en mi libro PERSONAL tengo definidas varias pequenas
>> funciones "auxiliares" y me pasa lo mismo...

>
> (hasta donde se)... el libro de macros personales (personal.xls) -> NO
> DEJA de ser un libro (como cualquiera otro
> (por lo cual)... los procedimientos que contiene REQUIEREN ser
> calificados/emparentados/... con el mismo
>
> una ventaja... es que al abrirse en conjunto con la aplicacion... estan
> disponibles para todos los libros (en esa pc/sesion)
> otra... es que puedes usar al asistente para funciones {mayus}+{F3} o
> (menu) insertar / funcion...
> -> y excel se encarga de hacer lo propio sin que tu tengas que hacerlo
>
> una desventaja... es que el libro personal.xls NECESITA estar presente...
> (al menos) cuando algun libro USE sus macros
>
> para evitar la necesidad de calificar la funcion con su otro libro es
> necesario generar un complemento (.XLA, .COM, .XLL, etc.)
> y ademas compartirlo/instalarlo/... en las pc's que los necesiten
>
> si cualquier duda (o informacion adicional)... comentas ?
> saludos,
> hector.
>



Responder Con Cita
 
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último mensaje
dividir texto carancho Newsgroup microsoft.public.es.access 9 10-04-2008 18:51:11
Dividir Emanuel Omar Villicaña Villegas Newsgroup microsoft.public.es.excel 3 29-01-2008 16:19:21
Dividir PDF Federico Rodriguez Newsgroup microsoft.public.es.vb 0 22-01-2008 18:02:22
Dividir celdas Paco Newsgroup microsoft.public.es.excel 0 05-12-2007 20:22:27
Dividir conjunto y N León-Sotelo Newsgroup es.ciencia.matematicas 18 23-11-2007 09:18:39





Powered by: vBulletin, Versión 3.6.8
Derechos de Autor ©2000 - 2008, Jelsoft Enterprises Ltd.

LinkBacks Enabled by vBSEO 3.1.0 © 2007, Crawlability, Inc.