Seleccionar Columnas [Hector Miguel]

Veo que lo que quieres es código, así que prueba con algo como esto:

Range(Cells(1, 2), Cells(1, 145)).ColumnWidth = 5

Cells(1,2) se refiere a la celda que se encuentra en la fila 1 y columna 2
(B1), mientras que Cells(1,145) se refiere a la celda EO1.

Cuando utilizas Range(Cells(1, 2), Cells(1, 145)), entonces, es como si
dijeras Range("B1:EO1"). Por último, utilizas la propiedad ColumnWidth de un
objeto Cell, para fijar el ancho de las columnas en el rango especificado.

Saludos.



"César G." escribió:

Hola a

Estuve buscando en el grupo la respuesta a una inquietud y encontré esta
conversación de Hector Miguel

http://groups.google.com.mx/group/m...fbaa765db3

Aunque no he logrado comprender la "sintaxis" que se requiere para poder
seleccionar un rango de columnas sin utilizar la notacion

Columns("B:EO").select

para luego establecer el ancho de todas las columnas, quisiera hacer algo
asi como

Columns(2:145).select

Espero que alguno de ustedes pueda orientarme .

Gracias.

César Galicia.



César Galicia
Soporte Técnico
TNS-Gallup

Mil gracias por tu respuesta David:

De hecho, seguí buscando y extendí la búsqueda al grupo de Excel en ingles y
logré obtener la respuesta que me haces favor de proporcionarme es la misma
con la que solucioné mi inquietud y ahora veo que puedo lograrlo incluso
ahorrando un par de lineas.

En lo que se refiere a un asunto relacionado, tengo que darle formato a
cierto rango de celdas, así que en una rutina a la que le paso una variable
por referencia de tipo String, (el rango), ahora lo tengo que modificar para
que funcione con un rango en el tipo de notación como el que sugieres
Range(cells(FilaInicio,ColumnaInicio),
Cells(UltimaFila,UltimaColumna)).select

Espero lograr mi objetivo.

Gracias de nuevo.

César Galicia
Soporte Técnico
TNS-Gallup




"David" escribió en el mensaje
news:

Veo que lo que quieres es código, así que prueba con algo como esto:

Range(Cells(1, 2), Cells(1, 145)).ColumnWidth = 5

Cells(1,2) se refiere a la celda que se encuentra en la fila 1 y columna 2
(B1), mientras que Cells(1,145) se refiere a la celda EO1.

Cuando utilizas Range(Cells(1, 2), Cells(1, 145)), entonces, es como si
dijeras Range("B1:EO1"). Por último, utilizas la propiedad ColumnWidth de
un
objeto Cell, para fijar el ancho de las columnas en el rango especificado.

Saludos.



"César G." escribió:

Hola a

Estuve buscando en el grupo la respuesta a una inquietud y encontré esta
conversación de Hector Miguel

http://groups.google.com.mx/group/m...fbaa765db3

Aunque no he logrado comprender la "sintaxis" que se requiere para poder
seleccionar un rango de columnas sin utilizar la notacion

Columns("B:EO").select

para luego establecer el ancho de todas las columnas, quisiera hacer algo
asi como

Columns(2:145).select

Espero que alguno de ustedes pueda orientarme .

Gracias.

César Galicia.



César Galicia
Soporte Técnico
TNS-Gallup

Seguro que lo podrás hacer, pero tal vez te ahorre un poco de tiempo y
esfuerzo utilizar la propiedad AddressLocal. Juega un poco con estas ideas:

Si tu variable fuera DirecciónCelda:

MsgBox Range( DirecciónCelda ).Addresslocal( ReferenceStyle:=xlR1C1 )



"César G." escribió:

Mil gracias por tu respuesta David:

De hecho, seguí buscando y extendí la búsqueda al grupo de Excel en ingles y
logré obtener la respuesta que me haces favor de proporcionarme es la misma
con la que solucioné mi inquietud y ahora veo que puedo lograrlo incluso
ahorrando un par de lineas.

En lo que se refiere a un asunto relacionado, tengo que darle formato a
cierto rango de celdas, así que en una rutina a la que le paso una variable
por referencia de tipo String, (el rango), ahora lo tengo que modificar para
que funcione con un rango en el tipo de notación como el que sugieres
Range(cells(FilaInicio,ColumnaInicio),
Cells(UltimaFila,UltimaColumna)).select

Espero lograr mi objetivo.

Gracias de nuevo.

César Galicia
Soporte Técnico
TNS-Gallup




"David" escribió en el mensaje
news:
> Veo que lo que quieres es código, así que prueba con algo como esto:
>
> Range(Cells(1, 2), Cells(1, 145)).ColumnWidth = 5
>
> Cells(1,2) se refiere a la celda que se encuentra en la fila 1 y columna 2
> (B1), mientras que Cells(1,145) se refiere a la celda EO1.
>
> Cuando utilizas Range(Cells(1, 2), Cells(1, 145)), entonces, es como si
> dijeras Range("B1:EO1"). Por último, utilizas la propiedad ColumnWidth de
> un
> objeto Cell, para fijar el ancho de las columnas en el rango especificado.
>
> Saludos.
>
>
>
> "César G." escribió:
>
>>
>> Hola a
>>
>> Estuve buscando en el grupo la respuesta a una inquietud y encontré esta
>> conversación de Hector Miguel
>>
>> http://groups.google.com.mx/group/m...fbaa765db3
>>
>> Aunque no he logrado comprender la "sintaxis" que se requiere para poder
>> seleccionar un rango de columnas sin utilizar la notacion
>>
>> Columns("B:EO").select
>>
>> para luego establecer el ancho de todas las columnas, quisiera hacer algo
>> asi como
>>
>> Columns(2:145).select
>>
>> Espero que alguno de ustedes pueda orientarme .
>>
>> Gracias.
>>
>> César Galicia.
>>
>>
>>
>> César Galicia
>> Soporte Técnico
>> TNS-Gallup
>>
>>
>>

hola, César !

... no he logrado comprender la "sintaxis" que se requiere para poder seleccionar un rango de columnas sin utilizar la notacion
Columns("B:EO").select
para luego establecer el ancho de todas las columnas, quisiera hacer algo asi como: Columns(2:145).select

1) la sintaxis de la alternativa en el mansaje que mencionas, aplicado a tu consulta, quedaria +/- de la siguiente manera:
Columns(2).Resize(, 144).ColumnWidth = ???

2) los comentarios del porque 144...
a) necesitas 'afectar' las propiedades de 144 columnas: -> de la 'B' -col #2- a la 'EO' -col #145-
b) usando el metodo resize [ampliar la seleccion] harias algo +/- como lo siguiente:
b.1) definir el punto [o la columna] de partida: -> Columns(2)
b.2) ampliar la seleccion 'hasta' la columna deseada [#145] MENOS la columna 'de partida [#2] MAS uno...
Resize(, 145 - 2 + 1)
c) o lo que es lo mismo: -> Columns(2).Resize(, 144)

si cualquier duda... comentas ?
saludos,
hector.