Ocultar filas mediante VBA en Excel
He leído muchas preguntas y sus respuestas me parecen muy buenas y en estos momentos necesito ayuda, he intentado por algunos medios que mediante un el valor de una celda se me oculte la fila que contiene esa celda.
La cuestión es la siguiente tengo una base de datos en excel con una facturación, en vista de que las facturas las pagan por partes, quiero que al terminar de pagar el costo de la factura la fila se oculte cuando el monto neto sea cero.
Por otro lado si es posible necesito que me cuente cuantas filas están ocultas para tener una idea simplemente.
La cuestión es la siguiente tengo una base de datos en excel con una facturación, en vista de que las facturas las pagan por partes, quiero que al terminar de pagar el costo de la factura la fila se oculte cuando el monto neto sea cero.
Por otro lado si es posible necesito que me cuente cuantas filas están ocultas para tener una idea simplemente.
1 Respuesta
Respuesta de dtorrado
3
Tendrías que hacer una macro que recorra todas esas celdas y analice el valor. Sería algo así:
Sub Ocultar()
Dim rg As Range
Set rg = Range("A2:A20")
For Each cell In rg
If cell.Text = "0" Then
cell.EntireRow.Hidden = True
End If
Next
End Sub
Y luego tendrás que decidir cuándo ejecutarlo. Si quieres ejecutarlo cada vez que se modifique algo en la hoja, harás una llamada a Ocultar en el evento Change de la hoja.
Para contar las filas ocultas sería una función muy similar, analizando la propiedad cell.Hidden, si es = True es que está oculta.
Sub Ocultar()
Dim rg As Range
Set rg = Range("A2:A20")
For Each cell In rg
If cell.Text = "0" Then
cell.EntireRow.Hidden = True
End If
Next
End Sub
Y luego tendrás que decidir cuándo ejecutarlo. Si quieres ejecutarlo cada vez que se modifique algo en la hoja, harás una llamada a Ocultar en el evento Change de la hoja.
Para contar las filas ocultas sería una función muy similar, analizando la propiedad cell.Hidden, si es = True es que está oculta.
