Pergunte aqui
1

Ocultar linhas com macro

perguntadas 2018-05-30 18:49:58 +0200

imagem do gravatar de RomuloDias

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.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

@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?

imagem do gravatar de GrafenoGrafeno ( 2018-05-30 22:47:46 +0200 )editar

Opa !! Muito obrigado !! Sim, é pra ocultar a linha toda quando na celula estiver falso. Ex.: A9 = falso = ocultar a linha 9

imagem do gravatar de RomuloDiasRomuloDias ( 2018-05-30 23:58:06 +0200 )editar

1 Resposta

0

respondidas 2018-05-30 23:00:11 +0200

imagem do gravatar de Grafeno

updated 2018-05-31 00:13:01 +0200

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,

editar assinalar como ofensivo Excluir Link mais

Comentários

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 ?

imagem do gravatar de RomuloDiasRomuloDias ( 2018-05-31 00:01:37 +0200 )editar

@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.

imagem do gravatar de GrafenoGrafeno ( 2018-05-31 00:12:19 +0200 )editar

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.

imagem do gravatar de RomuloDiasRomuloDias ( 2018-05-31 16:15:32 +0200 )editar

@Grafeno, o código rodou direitinho ! Muito obrigado pela ajuda.

imagem do gravatar de RomuloDiasRomuloDias ( 2018-06-01 18:42:16 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-05-30 18:49:58 +0200

Lidas: 41 vezes

Última atualização: May 31