Macro para hacer más ancha una columna al posicionarse en ella
Lo que busco es que al seleccionar cualquier celda de la columna C a la columna E, dicha columna de la celda seleccionada se haga más ancha.
Ancho de columnas:
C = 80 px
D = 80 px
E = 80 px
Ahora selecciono la celda D5 y cambia el ancho de la columna "D" a 240 px, y así sucesivamente, tomando en cuenta que al seleccionar cualquier celda de cualquier otra columna fuera de este rango de C, DE, E, los anchos de las columnas deben regresar a su estado normal 80 px.
Sin más por el momento.
2 Respuestas
H o l a:
Pon la siguiente macro en los eventos de tu hoja
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("C:E")) Is Nothing Then
Columns(Target.Column).ColumnWidth = 33.57
Else
Range("C:E").ColumnWidth = 10.71
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
H o l a:
Tal vez sea por el navegador, intenta con google chrome.
Pon la siguiente macro en los eventos de tu hoja
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("C:E")) Is Nothing Then
Columns(Target.Column).ColumnWidth = 33.57
Else
Range("C:E").ColumnWidth = 10.71
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
Gracias Dante, ya he podido recibir tu respuesta y me gustaría aplicar una modificación a tu macro, ahora lo que busco es que cuando yo selecciono una celda dentro de Range("C:E") dicha columna se ensancha a 240 px, mientras que las demás permanecen dentro de ese rango permanecen a 80px, es decir solo se ensancha la columna ACTIVA del Range("C:E"), y las demás permanecen o regresan a su estado normal de 80 px.
Gracias
No entendí.
Podrías explicarlo con ejemplos, es decir, seleccionas la columna B o cualquiera diferente a C, D, F, y qué quieres que pase.
Seleccionas la columna C y qué quieres que pase con las otras columnas, qué quieres que pase con la columna C y qué quieres que pase con las columnas D y E
¿Seleccionas la columna D y qué quieres que pase?
Prueba así:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.Dante Amor
Range("C:D").ColumnWidth = 10.71
If Not Intersect(Target, Range("C:E")) Is Nothing Then
Columns(Target.Column).ColumnWidth = 33.57
End If
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
¡Gracias! Excelente, la ultima respuesta es la adecuada, te lo agradezco nuevamente dante, que tengas un buen día.
Saludos
Tal vez sea por el navegador, intenta con google chrome. - Dante Amor