Aumentar el TAMAÑO DE LETRA de una LISTA DESPLEGABLE 💻

[@melinapalacios8157]

Funciona perfectamente, muchas gracias!

[@23pericodelgado]

Muchas Gracias, va de lujo !!!!

[@josejuanvillarruel3831]

Excelente idea, muchas gracias. Saludos!

[@nardilopez3942]

Genial, muchas gracias. Excelente.

[@raalfe22]

Muy interesante, gracias.

[@franciscofleitas1565]

Lo primero gracias por compartir videos, siempre ayudan. Indicar que el truco funciona si no tienes celdas fijas en la parte superior, sino estas se aumentan y no se ve el desplegable...así que hay que buscar una forma de aumentar la lista desplegable sin tocar el resto de la pestaña...

[@blackkira1436]

Me sirvió muchas gracias.

[@aduquer9222]

Gracias, me sirvió mucho la solución ADUQUER

[@Mar-xh9jl]

MUCHAS GRACIAS

[@CarlosAlvarado-yi8ot]

Excelente tip

[@registrocuevas5401]

Muchas gracias. Te comento. En la versión del office 2010, se podía cambiar el color de la pantalla, de tal manera que no fuera el blanco. En mi caso usaba un amarillo muy pálido. He buscado la manera de hacerlo con las versiones recientes de Excel, pero no he podido. ¿Alguna sugerencia?

[@edu1986]

Gracias por el video, una consulta si deseo agregar el comando para imagenes con macro como junto esas dos comandos para que sea en secuencia? que se visualize la imagen y que se aumente el zoom ?

[@Raquel-uo4iy]

Esta es la adición correcta, en anterior faltó On Error Goto LZoom:
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
On Error Goto LZoom
Dim xZoom As Long
xZoom = 70
If Target.Validation.Type= xValidateList Then xZoom = 120
LZoom:
ActiveWindow.Zoom = xZoom
End Sub
Gracias

[@kevinothar9717]

En mi versión de office el zoom no modifica el tamaño de la letra de la lista 🥲 (2024)

[@Raquel-uo4iy]

Si ya tengo esta función en una hoja, ¿cómo puedo adicionar otro procedimiento?. Tengo esta:Private Sub ComboBox1_Change()
End Sub
Private Sub ComboBox2_Change()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("C3:H3")) Is Nothing Then
If Target.Column = 3 Then DATOS_GENERALES
If Target.Column = 4 Then EVALUACION_CLINICA
If Target.Column = 5 Then EVALUACION_BIOQUIMICA
If Target.Column = 6 Then EVALUACION_ANTROPOMETRICA
If Target.Column = 7 Then EVALUACION_DIETETICA
End If
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("C179:C180,C256:C257")) Is Nothing Then
If Target.Row = 179 Then EVALUACION_DIETETICA
If Target.Row = 180 Then CONTABILIZACION_DIETETICA
If Target.Row = 256 Then EVALUACION_DIETETICA
If Target.Row = 257 Then CONTABILIZACION_DIETETICA
End If
End Sub
y quiero adicionar la siguiente:
Private Sub Worksheet_SelectionChange (ByVal Target As Range)

Dim xZoom As Long
xZoom = 70
If Target.Validation.Type= xValidateList Then xZoom = 120
LZoom:
ActiveWindow.Zoom = xZoom
End Sub
Eliminé Private Sub Worksheet_SelectionChange (ByVal Target As Range), por marcarme error nombre ambiguo y tampoco acepta.
¿Cómo hacerle? Gracias

[@noelalvarado9913]

Tengo el mismo tema, ya lo solucionaste?

[@edmunza]

Yo he visto eso como un error que Excel no ha corregido nunca. Siempre o por lo que recuerdo del Office 2003 hasta el 365, nunca ha sido corregido. Tu solución es un paliativo, pero no es la mejor. Pero ayuda.

[@byronrafaelmonterroso4783]

Buenos dias, como hacer para que aplique a todas las hojas del libro?

[@luismigueliglesias9172]

Y el ancho de la ventana ¿Cómo lo modificas? Tengo una hoja en la que me aparecen varias listas desplegables y cada una cin un ancho distinto. En algunas al desplegar veo la lista o texto bien o incluso me sobra muchísimo espacio al desplegar la lista en cambio, en otras al desplegar mevaparecevelvtexto cortado
Gracias

[@LuisFebres-e8h]

ALGO VA MAL PORQUE NO ME FUNCIONA

[@anthonyleal2740]

¿Y como hacer que la celda se mantenga angosta pero que al abrir los datos estos sean más ancho que la celda y sean legibles?

[@diegodiaz460]

No me funciona