[RESUELTO] Ocultar Filas segun condicion

[frainter]

Hola buenas tardes.
Pues eso...Necesitaria una macro que me ucultase las filas completas de un rango si la primera celda esta vacia(las primeras Celdas de las filas a ocultar serian formato Texto), y otra macro para desocultarlas(Independiente), llevo tres dias buscando y no encuentro nada excepto en los filtros pero no es eso lo que busco por ser un proceso manual.
Agradeceria cualquier ayuda.
Un saludo para todos y gracias anticipadas.

[FJCC-ES]

Código: Seleccionar todo

Sub Mostrar
oSheet = ThisComponent.CurrentController.ActiveSheet
oCeldas = oSheet.getCellrangeByName("C2:C10")
oEmpty = oCeldas.queryEmptyCells()
If oEmpty.Count > 0 Then
	for i = 0 to oEmpty.Count - 1
		oRango = oEmpty.getByIndex(i)
		oFilas = oRango.getRows()
		oFilas.isVisible = True
	next i
End If
	
End Sub


Sub Ocultar
oSheet = ThisComponent.CurrentController.ActiveSheet
oCeldas = oSheet.getCellrangeByName("C2:C10")
oEmpty = oCeldas.queryEmptyCells()
If oEmpty.Count > 0 Then
	for i = 0 to oEmpty.Count - 1
		oRango = oEmpty.getByIndex(i)
		oFilas = oRango.getRows()
		oFilas.isVisible = FALSE
	next i
End If
End Sub

[frainter]

Muchas Gracias FJCC-ES.
Van Perfectas las dos macros, lo dicho muchas gracias maquina.