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 para mostrar es la siguiente:
Sub Oculta_Valores()
' Nos posecionamos en la primera celda
Range("A6").Select
'iniciamos el ciclo, hasta que se encuentre una una celda vacia
Do While Not IsEmpty(ActiveCell)
'Validamos si el valor es "0"
If ActiveCell = 0 Then
'Si es 0, ocultamos la fila
 Selection.EntireRow.Hidden = True
 'avanzamos una fila hacia abajo
 ActiveCell.Offset(1, 0).Select
Else
' Si el valor no es "0", avanzamos una fila hacia abajo
ActiveCell.Offset(1, 0).Select
End If
' si la celda posicionada es vacia, terminamos el ciclo, si no volvemos se repite
Loop
End Sub
Por su ayudad mil gracias de antemano.
                     Atentamente.
Profr. Marcos Calleja Guerrero.
[email protected]

1 Respuesta

Respuesta
1
Sub Oculta_Valores()
' Nos posecionamos en la primera celda
Range("A6").Select
'iniciamos el ciclo, hasta que se encuentre una una celda vacia
Do While Not IsEmpty(ActiveCell)
'Validamos si el valor es "0"
If Not ActiveCell = 0 Then
'Si es 0, ocultamos la fila
 Selection.EntireRow.Hidden = True
 'avanzamos una fila hacia abajo
 ActiveCell.Offset(1, 0).Select
Else
Selection.EntireRow.Hidden = false
' Si el valor no es "0", avanzamos una fila hacia abajo
ActiveCell.Offset(1, 0).Select
End If
' si la celda posicionada es vacia, terminamos el ciclo, si no volvemos se repite
Loop
End Sub
Se le añade la negación, el NOT, al if condicional para invertir la condición.
Gracias Caranbis, seguro no fui muy claro y eso no es lo que ando buscando, sin embargo su respuesta me va a servir, sin duda, en otro trabajo. Específicamente lo que necesito es que cuando posteriormente le agregue otro dato diferente de cero(vienen de otra hoja vinculada) se muestren también estas filas. Por que después de que ejecuto la macro, agrego otro número diferente de cero y no me muestra los últimos .
Esto lo utilizo en una escuela cuando tengo una inscripción inicial de alumnos y posteriormente hay nuevas altas.
Gracias por compartir.
Atentamente. Profr. Marcos Calleja Guerrero.
Lo que debes hacer, es decile a excel que debe ejecutar la macro cada vez que se registra un bambio en dicha hoja. Para esto, entra al editor de visual basci (Alt+F11), en el menú del lado izquierdo busca la hoja donde se debe ejecutar la macro cada vez que se le hace un cambio, y dale doble clic, luego al lado derecho, en la primera lista desplegable, selecciona Worksheet, y en la segunda lista, selecciona Change, y allí dentro de ese Sub, coloca simplemente el nombre de tu macro (Oculta_Valores). Deberá quedar algo así.
Private Sub Worksheet_Change(ByVal Target As Range)
Oculta_Valores
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Oculta filas condicionadas al valor de una celda

Quisiera pedirte nuevamente un favor, Del siguiente logaritmo que me hiciste favor de pasarme, como podría hacer para ocultar filas con respecto al valor de una celda. Fila B 1 0 2 15 3 0 4 25 Etc. Es decir, en este caso, en la fila 1 y 3, en la...
1 respuesta

Ocultar o visualizar columna condicionada a una celda

Vos podéis ayudarme, es que he visto que mencionas que sabes macros. Yo soy nuevo en este asunto. He buscado una macro que me ayude a ocultar y/o visualizar una columna, COLUMNA A B C D E F G H I O .... ETC FILA 1 0 0 1 2 3 0 3 2 1 0 ....ETC FILA 2 ....
1 respuesta

Optimizar macro

La verdad soy nuevo con las macros asi que no se mucho de códigos, pero quisiera poder optimizar el siguiente código., ya que, si realiza la tarea que necesito pero me parece que puede optimizarse; lo que más necesito es que cuando ya tengo muchos...
2 respuestas

Ocultar filas en ceros en todas las columnas

Tengo una serie de datos en varias columnas y necesito una macro para ocultar solo las filas donde su valor sea "cero" en todas las columnas, ejemplo: columna a b c d 30 10 0 15 no se oculte la fila 0 0 0 0 si se oculte la fila Como esta información...
1 respuesta

Combobox sin repetir dato y con celdas vacías

Espero logres ayudarme si te es posible con esta duda, veras tengo un userform con 2 combobox uno para mostrarme las hojas de calculo y otro para mostrarme lo valores de las celdas de la columna "B" a partir del B3 sin repetir los valores..: ....
1 respuesta

Macro para ocultar filas en cero

Tengo una tabla dinámica con muchos valores, necesito ocultar una serie de filas cuyo valor sea mayor o menor a 1, son 3 columnas comenzando en la celda "D8" y las 3 deben estar en este rango para ocultarse, aunado a esto, si las 3 columnas tienen...
1 respuesta

Macro. Copiar filas según condición.

Agradecería también que me ayudara en este otro macro, he separado los dos mensajes para que la respuesta no sea demasiado compleja. Tengo una hoja en la que se han introducido una serie de registros. Quisiera copiar en otra hoja sólo aquellas filas...
1 respuesta

Macro suma con rango variable

Estoy realizando una macro, necesito que sume un rango de celdas de una columna, la celda inicial es fija pero la celda final es variable, sería hasta la primer celda vacía. ActiveCell.FormulaR1C1 = "=SUM(R[-1]C:RC)"
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

Macro que busque un valor en una columna y que lo pegue en otra columna de otro libro.

Tengo un señor problema, resulta que tengo 20 datos en la columna E de un libro llamado DESVIACIONES, necesito buscar desde la E7 hasta la E26 los datos mayores o iguales a 0, si encuentra alguno que lo copie y lo peque en otra hoja llamada Hoja2 en...
1 respuesta