Pergunte aqui
1

Formatação Condicional - Ocultar linha.

perguntadas 2014-04-11 03:05:53 +0200

updated 2016-02-16 01:17:29 +0200

Existe a possibilidade em Formatação Condicional, de Ocultar a linha, que atenda a condição ? Ou uma Função especifica para isso ?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

0

respondidas 2014-12-16 20:57:14 +0200

updated 2017-04-06 01:47:17 +0200

Solução com Formatação condicional não encontrei, porem encontrei esta macro que da para fazer o que desejo.

Rem Attribute VBA_ModuleType=VBAModule
Option VbaSupport 1

Sub Ocultar()
Dim i As Integer
Rem Faixa de linhas - neste exemplo 1 a 50
For i = 1 To 50
Rem Coluna e Valor - neste exemplo Coluna A e valor = 8
If Range ("A" & i).Value = 8 Then
Rows(i & ":" &i).Select
Selection.EntireRow.Hidden = True
Else
End If
Next i
End Sub

Sub Mostrar()
Rem Nada a alterar
Cells.Select
Selection.EntireRow.Hidden = False
Range("A1").Select
End Sub

Como a solução não é autoexecutavel, inclui dois botões na planilha um para Ocultar e outro para Mostrar, lembrando que após alteração nos dados, deve-se Mostrar e Ocultar novamente.

editar assinalar como ofensivo Excluir Link mais

Comentários

Tentei utilizar essa macro no LibreOffice 4.2.8.2 alguns valores foram alterados e me retornou: "Erro em tempo de execução do BASIC. '35' Range". Com a mesma estrutura, o erro ocorre na linha destacada.

Sub ocultar_linhas_VBA()
Dim i As Integer
Rem Faixa de linhas - neste exemplo 1 a 113
For i = 1 To 113
Rem Coluna e Valor - neste exemplo Coluna C e valor = 0

If Range ("C" & i).Value = 0 Then ...

Como soluciono?

imagem do gravatar de Leandro VieiraLeandro Vieira ( 2017-04-01 21:12:03 +0200 )editar

Oi @Leandro Vieira, para ela funcionar, estas linhas devem estar constar no inicio:

Rem Attribute VBA_ModuleType=VBAModule
Option VbaSupport 1
imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2017-04-03 02:04:56 +0200 )editar

Sim Gilberto Schiavinatto , segue o mesmo modelo da que você postou, só não incluí no comentário, pois não caberia todas informações.

imagem do gravatar de Leandro VieiraLeandro Vieira ( 2017-04-05 02:08:22 +0200 )editar

Oi @Leandro Vieira, desculpe a demora na resposta. Para min não da este erro, porém:

Da maneira que colocou "If Range ("C" & i).Value = 0 Then ..." o ZERO é confundido com "nada" (célula sem digitação) que deve ser o caso, apagou o ZERO e as demais linhas em branco.

Mude a formula para: "If Range ("C" & i).Value = "0" Then ..." o ZERO entre aspas, assim vai funcionar.

Porém se não for o caso de retorno ok.

Arquivo teste.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2017-04-06 01:36:46 +0200 )editar
0

respondidas 2014-04-15 00:32:45 +0200

imagem do gravatar de ClaudioM

updated 2014-04-15 00:45:22 +0200

Olá , poderia dar mais detalhes do objetivo para ocultar a linha?

Já me adiantando...se for para ocultar somente na impressão sem diminuir o espaço utilizado. Selecione a célula, clique em "Formatar", depois em "Formatação condicional" abra uma nova "condição" e em "Aplicar estilo", selecione "novo estilo", em "estilo da célula" ir na aba "proteção da célula" Localize Imprimir e selecione "ocultar durante impressão".

editar assinalar como ofensivo Excluir Link mais

Comentários

Partindo de uma planilha como base de dados, em outra planilha relatório seleciono uma condição e com isso na pl. base de dados é numerada as linhas que atendam a condição. A pl. relatório conta as boas e numera as linhas e com base nestes números com procv carrega a informação, porém tem linhas no relatório que nem sempre são usadas, e logo no final do relatório tem observações que não podem ficar muito abaixo do fim dos dados. Seria para ocultar as linhas sem informação automático.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2014-04-16 04:36:59 +0200 )editar

O erro permanece na mesma linha.

imagem do gravatar de Leandro VieiraLeandro Vieira ( 2017-04-13 02:43:55 +0200 )editar

@Leandro Vieira, é possível me enviar este arquivo, se sigiloso altere os dados, envie para gilberto@schiavinatto.com

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2017-04-13 04:00:23 +0200 )editar

Olá Gilberto! Ao copiar a macro para dentro da planilha ao invés de acioná-la pelas "Minhas Macros" funcionou, porém me surgiu uma dúvida em particular. A minha necessidade seria de ocultar as linhas da coluna B que não contivessem formatação condicional aplicada e C com valor Zero. Segue imagem com o exemplo: Exemplo

imagem do gravatar de Leandro VieiraLeandro Vieira ( 2017-04-14 17:58:28 +0200 )editar

Oi @Leandro Vieira, não entendi..."Ao copiar a macro para dentro da planilha ao invés de acioná-la pelas "Minhas Macros" funcionou,......." me envie uma imagem como esta, e outra, como devera ficar após acionar a macro e seria melhor me enviar o arquivo garanto sigilo. ENTRE EM CONTATO DIRETO: gilberto@schiavinatto.com

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2017-04-14 22:56:11 +0200 )editar

Sim, o email já enviei. Ao acionar a macro pelo "Recipiente de Biblioteca" (Minhas Macros), apresentava o erro, porém ao movê-la para o Recipiente da planilha atual no módulo gravar, funcionou. Exemplo

Minha necessidade é: Antes / Depois

imagem do gravatar de Leandro VieiraLeandro Vieira ( 2017-04-16 01:00:06 +0200 )editar

Sim, o email já enviei. Ao acionar a macro pelo "Recipiente de Biblioteca" (Minhas Macros), apresentava o erro, porém ao movê-la para o Recipiente da planilha atual no módulo gravar, funcionou. Exemplo

Minha necessidade é: Antes / Depois

imagem do gravatar de Leandro VieiraLeandro Vieira ( 2017-04-16 01:03:36 +0200 )editar

Oi @Leandro Vieira, me envie o arquivo da planilha, garanto sigilo. ENTRE EM CONTATO DIRETO: gilberto@schiavinatto.com, se enviou não chegou, olhei no meu provedor de email e nada bloqueado! Estou na ativa até às 24:00 hs

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2017-04-16 01:27:58 +0200 )editar

Enviei, veja se chegou.

imagem do gravatar de Leandro VieiraLeandro Vieira ( 2017-04-16 18:41:56 +0200 )editar

Oi @Leandro Vieira, não chegou não, por favor altere o email para: newsletter@schiavinatto.com

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2017-04-17 02:16:47 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

2 seguidores

Estatísticas

Perguntadas: 2014-04-11 03:05:53 +0200

Lidas: 2,971 vezes

Última atualização: Apr 06 '17