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

Saludos la macro me sale un error

If Not Intersect(Target, Range("B13:B282")) Then

no tengo idea porque me sale error en esta linea

este error sale cuando hago clic en cualquiera de las celdas de la hoja

Gracias por la contestación

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

Milton

Te conectaste ayer y no le das seguimiento al tema! (por cierto hay otro anterior que también lo abandonaste, aquí en este foro debes abandonar esa mala practica, pues también va contra las normas del foro)

Saludos

Share this post


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

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



  • Posts

    • A veces pensé que por ahi iban los tiros. Hasta ahora he probado las combinaciones de codigo al respecto dentro del before pero cuando creo que lo he conseguido resulta que no. Gracias por tu sugerencia.
    • Gracias. Algo asi me esperaba. Solo queria confirmar con personas mas expertas.  Por cierto, ¿que alternativas me sugieres al Select o Activate?...    
    • Muchas gracias a los dos Mauricio_ODN y tierra_pampa por la ayuda prestada 
    • Hola @bigpetroman; muchas gracias por tu ayuda!. En realidad ya había realizado algo un poco mas manual y laborioso pensando de pronto que no iba a tener respuesta en el foro; sin embargo, voy a modificar el archivo que ya tenía, acomodándolo a tu propuesta la cual me parece bastante útil y más simplificado a lo que realice. Te  agradezco nuevamente por el tiempo que invertiste en la solución, la cual aporta bastante a mi objetivo.  Muchas gracias!  
    • Hola, que tal? Quisiera que me ayuden con esta macro, tengo un "Área_Consolidado" que contiene 04 hojas (Área_Uno, Área_Dos, Área_Tres, Tablas), la intención es  que mediante un "click",  pueda "copiar" ciertas hojas a NUEVOS LIBROS de la siguiente manera: Libro1 con nombre "Área_Uno", debe contener: hojas con nombre Área_Uno y Tablas) Libro2 con nombre "Área_Dos", debe contener: hojas con nombre Área_Dos y Tablas) Libro3 con nombre "Área_Tres", debe contener: hojas con nombre Área_Tres y Tablas) Aclaración: el libro "'Área_Consolidado" no debe alterarse.  Espero me puedan, ayudar.  Mariela
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy