Excel - Ajustar la barra de desplazamiento vertical. Resuelto/Cerrado

Question

Hola,  Estoy buscando hacer una macro para que la barras de desplazamiento vertical (a la derecha, por lo tanto) se ajuste automáticamente al número de filas no vacías.  Por ejemplo, tengo una base de datos de unas mil filas; por defecto, mi barra vertical está bien ajustada, es decir, cuando la selecciono y la bajo al máximo, estará a la altura de mi fila 1000. Pero si hago una manipulación incorrecta (un "CTRL" + "Shift" + "Flecha hacia abajo" en una celda vacía), me encuentro con una selección que llega hasta la fila 65536. En este caso, la barra vertical se ajusta en función de eso y es bastante complicado encontrar mi fila 1000 pasando por la barra de desplazamiento vertical...  Buscando un poco en Internet, encontré el código: scrollbar1.max=range("celda").value, pero no funciona en mi caso, da un error: "Objeto requerido". Además, nada garantiza que sea el código correcto para mi problema. Además, también encontré la denominación: "verticalscrollbar", que a mi entender corresponde más a la barra de desplazamiento vertical, pero ¿cómo le asocio un valor?  ¿Alguien tendría alguna idea?  PD: soy bastante malo en VBA, así que perdona si he cometido errores.  Gracias de antemano.  -- Si no sabes, pregunta; si sabes, comparte.

BlackPearl · Accepted Answer

Hola a todos,  Con Excel 2003, existe una técnica bastante simple para ajustar la barra de desplazamiento a la derecha. Selecciona la fila que se encuentra justo después del final de tu tabla y haz un "Ctrl+Mayús+flecha abajo" para seleccionar las filas vacías hasta el final de las filas existentes en Excel, que son 65536. Luego haz "Alt, E, S" a continuación (acceso directo para eliminar). Regresa a la celda A1 y haz "Ctrl+S" (guardar).  Normalmente, la barra debería ajustarse...

lermite222 · Answer

Hola, Es necesario determinar el rango, es decir, fila y columna Sheets("LaFeuille").ScrollArea = "a1:AA1000" Para restablecer toda la hoja Sheets("LaFeuille").ScrollArea = "" ¡Saludos! -- La experiencia instruye más seguramente que el consejo. (André Gide)

stranger-46 · Answer

Hola lermite222,  Tu solución no me corresponde realmente. Acabo de modificar mi primer post con una captura de pantalla para visualizar mejor lo que estoy tratando de hacer.  Aquí está el enlace:  http://pix.nofrag.com/8/f/0/aeafd388b9a2c53d0e357b7fda0dd.html -- Si no sabes, pregunta; si sabes, comparte.

stranger-46 · Answer

Hm....no puedo modificar mis posts (bueno, el primero). Qué pena.  Aquí tienes una captura de pantalla para resumir lo que busco hacer:  http://pix.nofrag.com/8/f/0/aeafd388b9a2c53d0e357b7fda0dd.html  Es un ejemplo básico.  De hecho, la macro en cuestión me serviría para todos los archivos que utilizo, para ajustar automáticamente la barra vertical en función del número de líneas rellenadas.  Espero que esté bastante claro como explicación.   -- Si no sabes, pregunta; si sabes, comparte.

lermite222 · Answer

Bien, hay que adaptar la playa al número de filas y columnas Sheets("LaFeuille").ScrollArea = Range("A1").SpecialCells(xlCellTypeLastCell).address -- La experiencia instruye más seguramente que el consejo. (André Gide)

lermite222 · Answer

Tal vez sea mejor si pones la última fórmula en el evento Change de la hoja, pero para dejar un espacio para posibles adiciones... Dim Col as long Dim Lig as long  col = Range("A1").SpecialCells(xlCellTypeLastCell).column +2  Lig = Range("A1").SpecialCells(xlCellTypeLastCell).Rows + 2  Me.ScrollArea = Range(Cells(1,1),Cells(Lig,Col)) -- La experiencia instruye más seguramente que el consejo. (André Gide)

eriiic · Answer

Hola,  Si, a partir de la última línea que quieres ver, haces shift+ctrl+flecha abajo para seleccionar las últimas líneas y las ocultas (clic derecho ocultar), parece que hace exactamente lo que deseas.  eric

stranger-46 · Answer

Hola,  lermite222 >>> al copiar tu código obtengo el siguiente error: "Uso inválido de la palabra clave Me" eriiic >>> sí, ya he utilizado este truco y si puede funcionar para mi uso, no será el caso para otros usuarios.  De hecho, el problema con "scrollarea" y el hecho de "ocultar" las líneas no utilizadas es que no se puede usar de manera transparente para el usuario. Hasta cierto punto, para mi uso personal, el código "scrollarea" podría ser muy útil. Pero la macro no estará destinada solo a mi uso.  Estoy buscando crear una macro que, por ejemplo, al abrir una hoja, adapte automáticamente y de manera transparente el tamaño de la VerticalScrollbar al número de filas no vacías, mientras deja la posibilidad de seguir llenando cientos de otras filas si es necesario.  De hecho, pensé que el código "scrollbar1.max=range("cellule").value" podría adaptarse a mi problema simplemente cambiando "scrollbar1" por "verticalscrollbar", si tan solo todo fuera tan simple, entonces solo tendría que contar el número de celdas no vacías y el tamaño de la barra de desplazamiento cambiaría según ese valor... pero eso está en mis sueños :(  Gracias por tus propuestas, sigo buscando al mismo tiempo en internet.  -- Si no sabes, pregunta; si sabes, comparte.

lermite222 · Answer

Para terminar la exposición de Eric, Me. solo puede ser colocado en un módulo de hoja. No en un módulo general o ThisWorkbook. Si pones la macro del puesto 6 en los eventos de hojas... funcionará. Si 2 líneas vacías no son suficientes, puedes poner +3, +5, etc. Pero si quieres añadir un bloque de 100 líneas por ejemplo, pon el cursor en la última línea vacía, copia y como el evento cambiará, el desplazamiento se actualizará automáticamente en tus 100 líneas + 2. Otra posibilidad, si el usuario va a la primera línea vacía y introduce algo, automáticamente habrá 2 líneas libres debajo.  Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Col as long Dim Lig as long Col = Range("A1").SpecialCells(xlCellTypeLastCell).column +2 Lig = Range("A1").SpecialCells(xlCellTypeLastCell).Rows + 2 Me.ScrollArea = Range(Cells(1,1),Cells(Lig,Col)) End Sub Espero que esté lo suficientemente claro, si no, díselo... A+ -- La experiencia instruye más seguramente que el consejo. (André Gide)

stranger-46 · Answer

Ok, gracias por todas estas precisiones.  Entonces intenté probar el código como me lo aconsejas, pero sigo teniendo el error: "Type mismatch" en la línea en negrita  Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Col As Long Dim Lig As Long Col = Range("A1").SpecialCells(xlCellTypeLastCell).Column + 2 Lig = Range("A1").SpecialCells(xlCellTypeLastCell).Rows + 2 Worksheets("Sheet1").ScrollArea = Range(Cells(1, 1), Cells(Lig, Col)) End Sub   Lo mismo para:  Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Col As Long Dim Lig As Long Col = Range("A1").SpecialCells(xlCellTypeLastCell).Column + 2 Lig = Range("A1").SpecialCells(xlCellTypeLastCell).Rows + 2 Me.ScrollArea = Range(Cells(1, 1), Cells(Lig, Col)) End Sub  ¿Estoy haciendo algo mal? -- Si no sabes, pregunta; si sabes, comparte.

lermite222 · Answer

Disculpa, creí que era simple, pero en realidad es un poco más complicado... No es necesario ponerlo en ThisWorkbook, sino en las hojas Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Col As Long, A Dim Lig As Long Application.EnableEvents = False 'Cuando se define A, da vueltas... Me.ScrollArea = "" 'si no se libera se cuelga cuando se define más grande. A = Range("A1").SpecialCells(xlCellTypeLastCell).Address Col = Range(A).Column + 2 Lig = Range(A).Row + 2 n'No hay 'S' en Row Me.ScrollArea = Range(Cells(1, 1), Cells(Lig, Col)).Address Application.EnableEvents = True End Sub Ahora lo he probado y funciona como se dijo... A+ -- La experiencia instruye más seguramente que el consejo. (André Gide)

stranger-46 · Answer

Ok, el código funciona esta vez, pensé que realmente estaba torpe en esto :)  Sin embargo, hay otro problema ...  Estoy trabajando en una hoja que originalmente tenía 400 filas ocupadas, he borrado 300.  Y la macro detecta las 400 filas y no las 100 que están llenas, por lo que el drilldown va hasta la fila 400 en lugar de la 100 ...  Lo importante es que el código funciona y lo he visto en acción.  No obstante, no creo que lo use. Porque lo que buscaba es una transparencia total para el usuario, y sé que ya tendría que dar las mismas explicaciones que me diste antes (sobre las nuevas filas, etc.), lo que quiero evitar.  De todos modos, muchas gracias a ti "lermite222", tu código ha sido útil de cierta manera porque creo que podría usarlo para mí personalmente. Luego imagino que lo que quiero no siempre es realizable. Gracias también a ti "eriiic" por tu consejo.  PD: continúo mis investigaciones por mi lado, si encuentro una solución la escribiré aquí :)  ¡Hasta luego!  -- Si no sabes, pregunta; si sabes, comparte.

mz soft · Answer

para los conocedores del programa soft 1- mostrar los archivos ocultos de Excel 2- ver el archivo *.pif ajustar todas las medidas de tu elección fix@*

Excel - Ajustar la barra de desplazamiento vertical.

13 réponses

Windows en primera página no funciona.

Capa de destino oculta

Samsung j5 imposible de contestar

Estafa autopista del suvedene

Nombre de archivo demasiado largo

Sin sonido con ps3 y hdmi

Problemas de conexión a internet con mi ipad

Control remoto de free box roto

Sms con número sospechoso

Estoy recibiendo llamadas de números no asignados.