Buenas tardes,

Tengo el siguiente código que he creado que tiene como finalidad aplicar a una columna el "Text to Column / Fixed Width / General":

    Columns("AJ:AJ").Select
    Selection.TextToColumns Destination:=Range("AJ1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

Alguien podría ayudarme a modificar lo para que cada vez que lo ejecute solo aplique a los que tengo seleccionado, por ejemplo: Si tengo seleccionado la celda (A1:A10) que solo aplique a esas celdas y no al rango que sale en el código.

Agradecería mucho la ayuda con este problema que tengo.

Saludos Cordiales.

A ver si te hago pensar, RandalHP...

En la expresión "Selection.TextToColumns": ¿Qué crees que significa Selection?

(no te vayas "por las ramas" y sé concreto)

 

Hace 46 minutos , Cacho R dijo:

A ver si te hago pensar, RandalHP...

En la expresión "Selection.TextToColumns": ¿Qué crees que significa Selection?

(no te vayas "por las ramas" y sé concreto)

 

Al ejecutar el comando que proporcione... Lo que hace el Excel es seleccionar el rango proporcionado... Y aplicar el "TextToColumns" Eso esta más que claro.

Si lees con atención lo que estoy buscando es, qué cuando yo (de manera manual) seleccione un rango y seguido ejecute el código este aplique solamente a lo que previamente seleccione algo asi como Active.selection. No encuentro la combinación correcta para que se ejecute bien lo que estoy buscando...

Ss.

Hace 41 minutos , RandalHP dijo:

Al ejecutar el comando que proporcione... Lo que hace el Excel es seleccionar el rango proporcionado... Y aplicar el "TextToColumns" Eso esta más que claro.

cierto.

Hace 42 minutos , RandalHP dijo:

Si lees con atención lo que estoy buscando es, qué cuando yo (de manera manual) seleccione un rango y seguido ejecute el código este aplique solamente a lo que previamente seleccione algo asi como Active.selection. No encuentro la combinación correcta para que se ejecute bien lo que estoy buscando...

Deberías de ser un poco más "despierto" y más humilde al hacer caso de lo que te dice @Cacho R, por lo menos hacer tus intentos,  y demostrar que lo he hecho así y no resulta y lo he hecho de esta otra manera y tampoco...

Hace 47 minutos , RandalHP dijo:

Si lees con atención

Esas frases no deberías de hacer, ya que tu eres el que pregunta, y claro que se entiende lo que buscas y es muy sencilla la solución, pero como no le haces el intento por eso es más fácil preguntar y que te lo resuelvan...

Saludos.

P.D.: Siempre me meto donde no me llaman, pero a veces no me aguanto las ganas y escribo mi opinión.

Hace 9 horas, Leopoldo Blancas dijo:

Siempre me meto donde no me llaman, pero a veces no me aguanto las ganas y escribo mi opinión.

Jajajaja... Se comprende tu reacción perfectamente.

RandalHP: Si no sabes que función cumple Selection es que nada sabes de este tema y pretendes que te hagamos todo.

En sí... ¡ello no tiene nada de malo!, pero debiste ser honesto desde un primer momento.

O sea que decir: - "... Tengo el siguiente código que he creado ..." fue notoriamente falso.

En fin...

Hace 30 minutos , Cacho R dijo:

Jajajaja... Se comprende tu reacción perfectamente.

RandalHP: Si no sabes que función cumple Selection es que nada sabes de este tema y pretendes que te hagamos todo.

En sí... ¡ello no tiene nada de malo!, pero debiste ser honesto desde un primer momento.

O sea que decir: - "... Tengo el siguiente código que he creado ..." fue notoriamente falso.

En fin...

Doc. Para tu conocimiento, Excel tiene una herramienta en la cual graba los "movimientos" que realizes en el Excel. (Por eso puse que he "creado"). El Excel no lo género solo ni mucho menos un tercero o un "copy and paste". Si la expresión que use no fue la correcta las disculpas del caso... Derrepente estoy mal yo.

@Leopoldo Blancas Amigo eres libre de opinar y escribir lo que gustes, pero me vendría mejor un comentario que ayudé en mi problema.

Espero alguien pueda decirme que debo modificar, agregar o borrar en el código que proporcione, por qué como dice @Cacho R no tengo la menor idea de lo que estoy haciendo, por eso mi petición de ayuda.

Ss.

Hace 14 horas, RandalHP dijo:

Columns("AJ:AJ").Select

Selection.TextToColumns Destination:=Range("AJ1"), DataType:=xlFixedWidth, _ FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

Debes darte cuenta que tienes la solución ante tus ojos. Ahí seleccionas mediante código y luego le dices que A LO SELECCIONADO lo pase a texto a columna

¿Qué ocurriría si, en vez de seleccionar mediante código ese rango, ya LO TUVIERAS SELECCIONADO manualmente? ¿Entonces a qué haría ahora referencia la sentencia "Selection"?

Editado el el 25 de septiembre6 años por Haplox

Hace 2 minutos , Haplox dijo:

Debes darte cuenta que tienes la solución ante tus ojos. Ahí seleccionas mediante código y luego le dices que A LO SELECCIONADO lo pase a texto a columna

¿Qué ocurriría si, en vez de seleccionar mediante código ese rango, ya LO TUVIERAS SELECCIONADO manualmente? ¿Entonces a qué haría ahora referencia la sentencia "Selection"?

Entonces, debería borrar:

Columns("AJ:AJ").Select

Selection.TextToColumns Destination:=Range("AJ1"), DataType:=xlFixedWidth, _ FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

Al borrar lo marcado, deberia funcionar bien...

Ss.

Ahora mismo, RandalHP dijo:

Al borrar lo marcado, deberia funcionar bien...

No. El último rango en negrita es el DESTINO... ese no deberías borrarlo ¿No crees?

Hace 3 minutos , Haplox dijo:

No. El último rango en negrita es el DESTINO... ese no deberías borrarlo ¿No crees?

Pero al ejecutarlo, no aplicará a la celda en mención...?

Hace 2 minutos , RandalHP dijo:

Pero al ejecutarlo, no aplicará a la celda en mención...?

Esto no lo entiendo... La celda en mención es la CELDA DESTINO donde poner el texto-columna. A no ser que estés pensando en otra cosa

Si seleccionas los datos, digamos desde J1 hacia abajo, al pasarlos a texto a columnas, EL DESTINO es la primera celda seleccionada, osea "J1"

Hace 2 minutos , Haplox dijo:

Esto no lo entiendo... La celda en mención es la CELDA DESTINO donde poner el texto-columna. A no ser que estés pensando en otra cosa

Si seleccionas los datos, digamos desde J1 hacia abajo, al pasarlos a texto a columnas, EL DESTINO es la primera celda seleccionada, osea "J1"

Ahí fue donde entró mi duda, estaba pensando en seleccionar otra columna que no sea la J1 igual aplicará el "TextToColumn" o siempre irá a la J1...

Ss.

Hace 5 minutos , RandalHP dijo:

Ahí fue donde entró mi duda, estaba pensando en seleccionar otra columna que no sea la J1 igual aplicará el "TextToColumn" o siempre irá a la J1...

Si lo haces MEDIANTE CÓDIGO, puedes poner el destino que quieras. En excel, al hacerlo según el asistente, creo recordar que no te deja elegir el destino (que alguien me corrija...), pero mediante código sí puedes elegir el destino que quieras

Hace 3 minutos , Haplox dijo:

Si lo haces MEDIANTE CÓDIGO, puedes poner el destino que quieras. En excel, al hacerlo según el asistente, creo recordar que no te deja elegir el destino (que alguien me corrija...), pero mediante código sí puedes elegir el destino que quieras

Exacto amigo, cuando usas el asistente se aplica en lo que se tenga selecionado previamente. Con el código aplica en un rango o sector que se proporcione, entonces; que pasaría si quiera hacer lo que hace el asistente pero mediante código. Que se ejecute en lo que tengo selecionado previamente (rango aleatorio)...

Ss.

 

Hace 44 minutos , RandalHP dijo:

no tengo la menor idea de lo que estoy haciendo

Bueno... ¡Ahora es posible ayudarte conociendo tus limitaciones básicas!...

____________________________________

Hace 12 minutos , RandalHP dijo:

... otra columna que no sea la J1 igual aplicará el "TextToColumn" o siempre irá a la J1...

Haz lo siguiente:

- Enciende la grabadora
- Selecciona otra columna
- Ejecuta texto en columnas
- Apaga la grabadora
- Compara el código obtenido con la versión anterior.

¿Qué diferencias encuentras?...

Saludos, Cacho R.
.

Hace 2 minutos , Cacho R dijo:

 

Bueno... ¡Ahora es posible ayudarte conociendo tus limitaciones básicas!...

____________________________________

Haz lo siguiente:

- Enciende la grabadora
- Selecciona otra columna
- Ejecuta texto en columnas
- Apaga la grabadora
- Compara el código obtenido con la versión anterior.

¿Qué diferencias encuentras?...

Saludos, Cacho R.
.

Doc. No estas entendiendo la consulta que estoy haciendo. Lo que busco no es que el código se ejecute en un rango fijó si no que este se aplique en una selección que tenga hecha manualmente. Ejm: Seleccionó rango A1:A9 ejecuto el código y que se aplique en ese rango. Seleccionó B9:B900 ejecuto el código y que se aplique en ese rango.

El fin es que se aplique en un rango que yo seleccione manualmente y no que tenga proporcionado en el código...

Ss.

A ver:
¿Puede ser que -tampoco- sepas encender la grabadora de macros y hacer lo que te mencioné?...

Si lo haces y comparas lo obtenido con lo que ya tienes, empezarás a entender que es Selection y como lo tienes que modificar.

 

Hace 14 minutos , Cacho R dijo:

A ver:
¿Puede ser que -tampoco- sepas encender la grabadora de macros y hacer lo que te mencioné?...

Si lo haces y comparas lo obtenido con lo que ya tienes, empezarás a entender que es Selection y como lo tienes que modificar.

 

    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

Como verás es el mismo código que pase la primera vez. Ahora si lo ejecutas solo hará efecto en la columna A desde el rango A1. Pero imagina que no estoy buscando esa columna, si no que ahora quiero otra. Pero sin necesidad de estar grabando cada columna que necesito.

Ahora si lo entiendes? Ya no se como explicarte mi consulta...

Ss.

Modifique el código y quedo de la siguiente manera:

Código grabado:

    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

Código modificado:

    Selection.TextToColumns Destination:=Selection, DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

Ahora el código esta convirtiendo todas las columnas que yo selecciones, pero cuando la columna esta vacía salta error en el código. Tendré que agregar algo mas para que no tire error cuando esta vacía la columna.

Ss.

Hola Randal

Prueba así: 

Selection.TextToColumns Destination:=Cells(1, ActiveCell.Column), _
DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

Trata de leer sobre los principales temas básicos de VBA, como por ejemplo el objeto Range/Cells y sus propiedades

Para cerrar este tema largo, sin sentido

 

Saludos

Hace 11 minutos , Gerson Pineda dijo:

Hola Randal

Prueba así: 

Selection.TextToColumns Destination:=Cells(1, ActiveCell.Column), _
DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

Trata de leer sobre los principales temas básicos de VBA, como por ejemplo el objeto Range/Cells y sus propiedades

Para cerrar este tema largo, sin sentido

 

Saludos

Esta llenando con números toda la columna hasta el rango que seleccione.

Probé con este código:

    Selection.TextToColumns Destination:=Selection, DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

Pero al no tener contenido la celda salta un error, Lo mismo también pasa con el código que proporcionaste.

Eso te pasa por no seguir las normas del foro, por eso el tema se ha tornado largo

 

Saludos

Hace 4 minutos , Gerson Pineda dijo:

Eso te pasa por no seguir las normas del foro, por eso el tema se ha tornado largo

 

Saludos

Puedes proceder a eliminar el tema estimado, Me doy cuenta que no podre dar solución a este problema. Mejor demos por no resuelto.

Ss.

Hace 5 minutos , RandalHP dijo:

Puedes proceder a eliminar el tema estimado, Me doy cuenta que no podre dar solución a este problema. Mejor demos por no resuelto.

Ss.

Estimado sin ánimos de molestar, pero lo mismo pasaría si llamo al mecánico para que repare mi auto y no se lo lleve al taller

Quien busca ayuda, debe seguir algunas instrucciones para que se resuelva el problema, el que ayuda no debe esforzarse mas de la cuenta

 

Saludos