[b]Saudações caros…
Estou com esse código com objetivo de ocultar algumas linhas da planilha dependendo do que estiver na célula “A7” … o problema é que não está ocultando as linhas!
[/b]
Sub Main
Dim oSheet As Object
oSheet = ThisComponent.CurrentController.ActiveSheet
If oSheet.getCellRangeByName("A7").Value = "comercial" Then
Rows("33:72").Select
Selection.EntireRow.Hidden = True
ElseIf oSheet.getCellRangeByName("A7").Value = "industria" Or oSheet.getCellRangeByName("A7").Value = "prestação de serviço" Then
Rows("73:96").Select
Selection.EntireRow.Hidden = True
End If
End Sub