Activar Columnas

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Activar Columnas

Notapor Scops » 19 Jul 2006 09:11

Q TAL COMPAÑEROS
DESPUES DE UNAS PEQUEÑAS VACACIONES, AQUI ESTOY DE NUEVO A VER SI APRENDO ALGO CON VUESTRA VALIOSA AYUDA.
ESTA VEZ MI DUDA ES A VER COMO PUEDO SELECCIONAR TODA UNA COLUMNA A PARTIR DE UNA CELDA ACTIVA.
ME EXPLICO CON UN EJEMPLO PARA UN MEJOR ENTENDIMIENTO:
SI ME ENCUENTRO EN LA CELDA "C8" QUIERO Q SE ACTIVE LA COLUMNA " C "
SI ES LA CELDA "K9" EN LA Q ME ENCUNTRO, QUIERO Q SEA LA COLUMNA " K " LA Q SE ACTIVE
GRACIAS POR LA AYUDA
UN SALUDO
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Scops
Miembro Frecuente
Miembro Frecuente
 
Registrado: 15 Nov 2005 05:43

Re: Activar Columnas

Notapor ioyama » 19 Jul 2006 09:47

Hola Scops

Revisa la macro siguiente

Sub ActivarColumna()
col = ActiveCell.Column
col = col + 96
col = Chr(col)
Columns(col & ":" & col).Select
End Sub

o puedes agrupar pasos tal que
col = Chr(ActiveCell.Column + 96)
Columns(col & ":" & col).Select

Deberí­a funcionarte hasta la columna Z

Con esta otra

Sub ActivarCol()
col = ActiveCell.Column
Range(Cells(1, col), Cells(65536, col)).Select
End Sub

Deberí­a servirte para cualquier columna

Un saludo desde Vitoria
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
ioyama
Miembro Frecuente
Miembro Frecuente
 
Registrado: 28 Ene 2005 09:12
Ubicación: Vitoria

Re: Activar Columnas

Notapor Scops » 19 Jul 2006 12:08

MUCHAS GRACIAS IOYAMA
ME SIRVE A LA PERFECCION
UN SALUDO
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Scops
Miembro Frecuente
Miembro Frecuente
 
Registrado: 15 Nov 2005 05:43

Re: Activar Columnas

Notapor DOOCH » 19 Jul 2006 13:40

Es la primera vez que trato de dar un aporte, pues si fallo avisenme

Sub ActivarColumna()
col = ActiveCell.Column
Columns(col).Select
End Sub

Saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
DOOCH
Miembro Frecuente
Miembro Frecuente
 
Registrado: 08 Jun 2005 21:35

Re: Activar Columnas

Notapor ioyama » 20 Jul 2006 02:20

Hola DOOCH

No fallaste lo más mí­nimo, por el contrario mejoraste mi propuesta.
No te cortes y sigue aportando tus ideas, unas veces serán mejores y otras no tanto, pero seguro que siempre habrá alguien que pueda sacar provecho del aporte.

Un saludo desde Vitoria
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
ioyama
Miembro Frecuente
Miembro Frecuente
 
Registrado: 28 Ene 2005 09:12
Ubicación: Vitoria

Re: Activar Columnas

Notapor Scops » 20 Jul 2006 04:53

GRACIAS POR EL APORTE DOOCH
Y AL IGUAL Q IOYAMA TE ANIMO A Q SIGAS APORTANDO IDEAS.
LAS PERSONAS Q NO TENEMOS CONOCIMIENTOS SOBRE PROGRAMACION NOS VIENE MUY BIEN EL VER LAS DISTINTAS POSIBILIDADES Q HAY DE HACER UNA MIMA COSA UTILIZANDO DIFERENTES POSIBILIDADES
UN SALUDO Y ANIMO
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Scops
Miembro Frecuente
Miembro Frecuente
 
Registrado: 15 Nov 2005 05:43

Re: Activar Columnas

Notapor DOOCH » 20 Jul 2006 21:08

Saludos

Esto motiva aún más gracias.

:D
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
DOOCH
Miembro Frecuente
Miembro Frecuente
 
Registrado: 08 Jun 2005 21:35

Re: Activar Columnas

Notapor ST » 20 Jul 2006 21:15

me uno a los comentarios de mis compañeros de foro. :-)

bien por ti Dooch!!!! 8)
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ST
Miembro Frecuente
Miembro Frecuente
 
Registrado: 06 Jun 2005 17:56
Ubicación: Acapulco


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: Bing [Bot] y 3 invitados