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 columna donde se encuentra el valor para condicionar, y al tener un valor 0 deben ocultarse estas filas.
Agradezco me puedas ayudar.
'seleccionamos la primera fila
Range("E7").Select
'realizamos un ciclo, se repite hasta encontrar una celda vacia
Do While Not IsEmpty(ActiveCell)
'Valida si el valor de la celda es "0"
If ActiveCell = 0 Then
' si es "0", ocultamos la columna
Selection.EntireColumn.Hidden = True
' avanzamos una columna a la derecha
ActiveCell.Offset(0, 1).Select
Else
' si el valor no es "0, avanzamos una columna a la derecha
ActiveCell.Offset(0, 1).Select
End If
' Terminamos la validacion
' si la celda en que quedamos posicionados esta vacia
' termina el ciclo, si no se repite el ciclo
Loop
End Sub
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 columna donde se encuentra el valor para condicionar, y al tener un valor 0 deben ocultarse estas filas.
Agradezco me puedas ayudar.
'seleccionamos la primera fila
Range("E7").Select
'realizamos un ciclo, se repite hasta encontrar una celda vacia
Do While Not IsEmpty(ActiveCell)
'Valida si el valor de la celda es "0"
If ActiveCell = 0 Then
' si es "0", ocultamos la columna
Selection.EntireColumn.Hidden = True
' avanzamos una columna a la derecha
ActiveCell.Offset(0, 1).Select
Else
' si el valor no es "0, avanzamos una columna a la derecha
ActiveCell.Offset(0, 1).Select
End If
' Terminamos la validacion
' si la celda en que quedamos posicionados esta vacia
' termina el ciclo, si no se repite el ciclo
Loop
End Sub
1 Respuesta
Respuesta de snaki Fco
1
No olvides finalizar
Espero que halla sido de tu utilidas,
para cuando gustes podrás ayudarte
Nos Vemos
Espero que halla sido de tu utilidas,
para cuando gustes podrás ayudarte
Nos Vemos
Claro amigo, ya finalicé y puntúe.
Solo que necesito ayuda, para que en lugar de columnas me oculte ahora filas, y quisiera me apoyaras con este otro algoritmo.
Saludos y buen día.
Solo que necesito ayuda, para que en lugar de columnas me oculte ahora filas, y quisiera me apoyaras con este otro algoritmo.
Saludos y buen día.
Aquí va la solución.
Espero ayudarte nuevamente,
Sub Oculta_Valores()
' Nos posecionamos en la primera celda
Range("A1").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
Y como ya sabes para cuando lo deses podrás contar con mi ayuda
Nos Vemos
Espero ayudarte nuevamente,
Sub Oculta_Valores()
' Nos posecionamos en la primera celda
Range("A1").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
Y como ya sabes para cuando lo deses podrás contar con mi ayuda
Nos Vemos
