Que aparezcan solo las filas indicadas

Hola, como puedo hacer lo siguiente:
Al colocar un numero ejemplo "5" en la celda A1, se visualizen las 5 primeras filas, empezando desde A3, y el resto se oculten. Gracias.
Respuesta
1
Entrá al Editor (con Alt + F11), seleccioná a tu izquierda el objeto HOJA donde tendrá que ejecutarse este control, y allí pegá este código, que evaluará cada vez que ingreses un cambio en A1, la cantidad de filas a ocultar.
Private Sub Worksheet_Change(ByVal Target As Range)
'controla si se ha ingresado un cambio en A1
If Target.Address(False, False) = "A1" Then
'primero muestra todas las filas ocultas - Ajustar máximo
Rows("3:100").Select
Selection.EntireRow.Hidden = False
'guarda la última fila con datos
filault = Range("A65536").End(xlUp).Row
'guarda cual será la primer fila a ocultar
filapri = 3 + Range("A1").Value
'oculta rango de filas
Range(filapri & ":" & filault).Select
Selection.EntireRow.Hidden = True
End If
End Sub
Ajustá el nro máximo de filas con datos que tendrá tu hoja y pruébala.
Saludos y no olvides finalizar la consulta.
Elsa
PD) Más instrucciones y macros en:
Gracias, es funcional, pero tengo un problema, que al indicar la celda c7 (antes a1) sea la que contiene el dato variable y que empiece desde A15, no funciona correctamente. nuevaente gracias por su ayuda.
¿Y por qué no colocaste los datos exactos en la consulta original? Ya tendrías la rutina funcionando... bueno, ajústala así:
Private Sub Worksheet_Change(ByVal Target As Range)
'controla si se ha ingresado un cambio en A1
If Target.Address(False, False) = "C7" Then
'primero muestra todas las filas ocultas a partir de la 15 - Ajustar máximo
Rows("15:100").Select
Selection.EntireRow.Hidden = False
'guarda la última fila con datos
filault = Range("A65536").End(xlUp).Row
'guarda cual será la primer fila a ocultar
filapri = 15 + Range("C7").Value
'oculta rango de filas
Range(filapri & ":" & filault).Select
Selection.EntireRow.Hidden = True
End If

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Filtro avanzado

¿Me podrías ayudar con filtros avanzados por medio de macro? Tengo la sig. Rutina pero no me respeta el valor del filto que le pongo. Gracias de antemano Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Call filtrar...
1 respuesta

Ocultar filas con Valores en Cero

Cree una Macro simple en excel, para que en un rango de por ejemplo F5 a F14000, busque los valores en cero en la columna, y oculte directamente la fila completa. Esto lo hice con un hidden. Row El problema es que la ejecución de la Macro es muy...
1 respuesta

Ejecutar macro si cambia valor en lista!

Os escribo porque quisiera crear una macro que, cuando cambiara el valor en una lista por medio de validación de datos, me ejecutase otra macro. Lo que tengo es lo siguiente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address =...
1 respuesta

Macro que se ejecute cuando cambia un valor

Tengo un archivo de excel con 2 hojas (hoja1 y hoja2) En la hoja2, hice un código para que se ejecute una macro automáticamente cada que cambien los valores de una celda la D11. Si cambian el valor de esta celda, y le ponen un 0 necesito que me...
1 respuesta

Como ocultar filas a través del valor de una celda

¿Tengo una tabla en la cual donde necesito que: cuando a1 sea igual a 0 oculte el rango a1:c3; y de igual forma si a4 fuera igual a 0, oculte el rango b4:c7. Para ello necesito que se ejecute la macro automáticamente, sin necesidad de incrporarle un...
1 respuesta

Como puedo ocultar filas sin datos

Quisiera algún tip o algo que me ayude a ocultar celdas sin valor sin necesidad de tener que estar seleccionándolas cada vez que hay que ocultarlas. Me explico: Tengo una tabla dinámica que contiene las siguientes columnas con los siguientes...
1 respuesta

Modificar código para ocultar columnas en excel

Ya había hecho una pregunta en relación: ¿Cómo puedo ocultar COLUMNAS con macros en excel? Pero seguí buscando y encontré este código que es lo que necesito, pero quiero que haga lo contrario, en este código: Private Sub Worksheet_Change(ByVal Target...
1 respuesta

Macros para mostrar y ocultar filas

Tengo una macro que tome de Todoexpertos(gracias) que oculta las filas con valor cero, pero ahora necesito lo contrario que las muestre cuando las contenga. No se si deban ser dos macros o en una puedan estar las dos acciones, la macro que utilizo...
1 respuesta

Necesito macro para copiar y transponer celdas

Necesito una macro que haga lo siguiente; necesito copiar una cantidad de filas con celdas variables a partir de la columna B y trasponerlos enla columna A a partir de la celda A1, tengo la siguiente macro pero el problema es que me transpone una...
1 respuesta

¿Cómo puedo ocultar COLUMNAS con macros en excel?

Tengo valores desde A1 a K18, son números, en A20 a K20 tengo una suma de todos los números, pero en algunos tengo valor CERO, lo que necesito es que si un valor de los que tengo en A20:K20 es igual a CERO oculte toda esa columna, por ejemplo: si en...
1 respuesta