Pessoal, Boa Tarde !
Poderiam me ajudar no código abaixo ?
Eu quero que oculte a linha quando aparecer FALSO no intervalo A8:A26
If Range("A8:A26").Value = "FALSO" Then
Selection.EntireRow.Hidden = True
Else
Rows("A8:A26").Hidden = False
End If
Agradeço a atenção.
@RomuloDias, bem-vindo! No caso, você quer ocultar a linha quando a célula dentro do intervalo A8:A26 tiver o conteúdo “FALSO”? Essa macro é do Excel, mas você irá usá-la no LibreOffice Calc mesmo?
Opa !!
Muito obrigado !!
Sim, é pra ocultar a linha toda quando na celula estiver falso.
Ex.: A9 = falso = ocultar a linha 9
Boa tarde,
A macro escrita no LibreOffice Basic para ocultar a linha de acordo com conteúdo da célula em A8:A26:
Sub OcultarLinhas
oDoc = ThisComponent
oPlan = oDoc.CurrentController.ActiveSheet
For i = 7 to 25
oCel = oPlan.getCellByPosition( 0,i )
If oCel.String = "Falso" then
oPlan.Rows.getByIndex(i).IsVisible = False
End If
Next i
End Sub
Atte,
Obrigado, amigo !!
Amanha vou testar na planilha !!
Saiba q esta ajudando a melhorar um processo de trabalho q envolve 2 pessoas.
Caso dê certo, um processo de 10 minutos, cairá pra menos de 2 min…sera um ganho enorme !!
Agradeco imensamente !!
Na solicitacao nao fui tao claro, mas expliquei melhor pro amigo de cima…seu codigo esta de acordo com o q preciso ?
@RomuloDias, fui eu mesmo ali em cima. É para esclarecer a questão do conteúdo da célula e se você irá usá-la no LibreoIffice Calc. Aqui é um Ask do LibreOfice, mas tem aparecido algumas pessoas querendo assistência para o Excel. Quanto a macro, ela irá funcionar como você precisa em um arquivo ODS. Teste e não deixe de dar um retorno.
haha…me desculpe pela gafe, respondi pelo celular e não percebi !
típico de iniciante !
Sim, meu arquivo é em ODS, pois só eu tenho excel e para os outros funcionários usarem, mudei pro libreoffice.
Amanhã vou colocar o código na planilha e te dou o feedback.
Valeu pela força.