Macro para ocultar linhas

[lipecsousa]

Olá amigos e amigas!

Estou tendo dificuldades para criar um Macro para ocultar linhas, caso o valor de uma célula de uma coluna específica for igual a um valor específico.

Neste caso, ocultar a linha caso o Valor da coluna M for igual a 0. Segue script:

---

Sub OcultarLinhas
oDoc = ThisComponent
oPlan = oDoc.CurrentController.ActiveSheet

For i = 1 to 500
oCel = oPlan.getCellByPosition( 12,i )
If oCel.String = “0” then
oPlan.Rows.getByIndex(i).IsVisible = False
End If
Next i
End Sub

---

Alguem saberia informar o que está errado?

Forte abraço

[WBastos]

Olá @lipecsousa ,
A princípio parece que suas aspas estão com problema, mas segue opção caso sejam valores (If oCel.Value) ou texto (If oCel.String)

Segue Macro:

Sub OcultarLinhas
Dim oDoc As Object 
Dim oPlan As Object 
Dim oCel As Object 
Dim i As Integer 
	oDoc = ThisComponent
	oPlan = oDoc.CurrentController.ActiveSheet
	
	For i = 1 to 500
		oCel = oPlan.getCellByPosition( 12 , i )
		If oCel.value = 0 then
			oPlan.Rows.getByIndex(i).IsVisible = false 
		End If
	Next i
End Sub