Jump to content
Sign in to follow this  
Milton Cordova

Lista de validacion

Recommended Posts

Saludos, en una Hoja Rubros tengo un listado de 1000 items, en otra hoja tengo en celdas de una columna un listado mediante validacion.

La ventana de esta lista resulta muy pequeña, se hace dificil leer.

Deseo saber si existe alguna macro que agrande el tipo de letra de esta ventana de validacion.

gracias por este apoyo

Share this post


Link to post
Share on other sites

Hola

Puedes probar con algo como:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Target.Font.Size = 20
ActiveWindow.Zoom = 120
Else
Cells.Font.Size = 11
ActiveWindow.Zoom = 100
End If
End Sub[/PHP]

Cambia A1 por la celda donde tienes la validacion

Saludos

Share this post


Link to post
Share on other sites

Saludos estimado Gerson, gracias por la contestación, quiza no fui muy explícito en la consulta, veo que mediante esta macro los resultados de la selección se mantienen con el Font.size, Ok, pero mi problema es al leer la ventana que se despliega al colocar el mause en lacelda con validación, resulta muy pequeños la visual de los datos.

Debo manifestar que una manera es quiza la incrementar el zoom de la hoja pero esto no deso que se modifique por ejm. con el zoom 75% en la Hoja, la ventana se ve muy pequeña.

Ventana de validacion.xls

Share this post


Link to post
Share on other sites

Pero la macro funciona, solo cambia a gusto, prueba de nuevo?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "C2" Then
Target.Font.Size = 30
ActiveWindow.Zoom = 150
Else
Cells.Font.Size = 11
ActiveWindow.Zoom = 100
End If
End Sub[/PHP]

Saludos

Share this post


Link to post
Share on other sites

Saludos funciona bien de acuerdo a estos parámetros.

Tengo un consulta adicional: si deseo que esto funcione para el rango B13:B282, he realizado el suguiente cambio pero no funciona:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address(0, 0) = ("B13:B282") Then

Target.Font.Size = 13

ActiveWindow.Zoom = 150

Else

Cells.Font.Size = 12

ActiveWindow.Zoom = 75

End If

End Sub

Share this post


Link to post
Share on other sites

Hola

A ver asi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B13:B282")) Then
Target.Font.Size = 30
ActiveWindow.Zoom = 150
Else
Cells.Font.Size = 11
ActiveWindow.Zoom = 100
End If
End Sub[/PHP]

Saludos

Share this post


Link to post
Share on other sites

Hola

Disculpa el codigo correcto es este:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B13:B282")) is nothing Then
Target.Font.Size = 30
ActiveWindow.Zoom = 150
Else
Cells.Font.Size = 11
ActiveWindow.Zoom = 100
End If
End Sub [/PHP]

Saludos

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png