Re-ocultar filas con macros

Saludos al "comité de sabios"

Tengo en un fichero excel algo aproximado a lo siguiente
EPIGRAFE SUBEPIGRAFE IMPORTE1 IMPORTE2
I.
1. 0,00 0,00
2. 122,00 220,00

II. y asi sucesivamente

He prerarado una macro que cuando una línea tiene valores 0 en ambas
columnas de importe, la oculta. El código es el siguiente:

Sub OcultaFilas()
For x = 6 To 105
If Range("K" & x) = 0 Then
If Range("L" & x) = 0 Then
Rows(x).Select
Selection.EntireRow.Hidden = True
End If
End If
Next x
End Sub

El problema me surge que entre el subepigrafe 2, y el epigrafe II hay una
fila vacia, que en principio se debe mantener siempre y cuando el epigrafe I
exista, ya que si por ejemplo, los epígrafes I a X tienen datos cero y se
ocultan, las filas existentes entre epigrafe I y II, II y III, etc se me
mantienen y el resultado de la hoja queda bastante mal dejando un monton de
filas en blanco.

¿Se os ocurre alguna forma de ocultar dichas filas??? He mirado algo con
xlCellTypeVisible pero no me queda nada claro...

Gracias

Lo he "apañado" con una chapuza, pero que funciona.
Colocando debajo de los valores una suma de lo de arriba, y dandole color de
texto igual al fondo para que no se vea. Así cuando lo de arriba es cero,
también me lo oculta...

Si se os ocurre algo más "limpio" ya lo comentareis...

"danek" escribió:

> Saludos al "comité de sabios"
>
> Tengo en un fichero excel algo aproximado a lo siguiente
> EPIGRAFE SUBEPIGRAFE IMPORTE1 IMPORTE2
> I.
> 1. 0,00 0,00
> 2. 122,00 220,00
>
> II. y asi sucesivamente
>
> He prerarado una macro que cuando una línea tiene valores 0 en ambas
> columnas de importe, la oculta. El código es el siguiente:
>
> Sub OcultaFilas()
> For x = 6 To 105
> If Range("K" & x) = 0 Then
> If Range("L" & x) = 0 Then
> Rows(x).Select
> Selection.EntireRow.Hidden = True
> End If
> End If
> Next x
> End Sub
>
> El problema me surge que entre el subepigrafe 2, y el epigrafe II hay una
> fila vacia, que en principio se debe mantener siempre y cuando el epigrafe I
> exista, ya que si por ejemplo, los epígrafes I a X tienen datos cero y se
> ocultan, las filas existentes entre epigrafe I y II, II y III, etc se me
> mantienen y el resultado de la hoja queda bastante mal dejando un monton de
> filas en blanco.
>
> ¿Se os ocurre alguna forma de ocultar dichas filas??? He mirado algo con
> xlCellTypeVisible pero no me queda nada claro...
>
> Gracias