Pergunte aqui
1

Formatação Condicional - Ocultar linha.

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

imagem do gravatar de Schiavinatto

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

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 +0100

imagem do gravatar de Schiavinatto

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

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 +0100 )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 SchiavinattoSchiavinatto ( 2017-04-03 02:04:56 +0100 )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 +0100 )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 SchiavinattoSchiavinatto ( 2017-04-06 01:36:46 +0100 )editar
0

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

imagem do gravatar de ClaudioM

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

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 SchiavinattoSchiavinatto ( 2014-04-16 04:36:59 +0100 )editar

O erro permanece na mesma linha.

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

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

imagem do gravatar de SchiavinattoSchiavinatto ( 2017-04-13 04:00:23 +0100 )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 +0100 )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 SchiavinattoSchiavinatto ( 2017-04-14 22:56:11 +0100 )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 +0100 )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 +0100 )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 SchiavinattoSchiavinatto ( 2017-04-16 01:27:58 +0100 )editar

Enviei, veja se chegou.

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

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

imagem do gravatar de SchiavinattoSchiavinatto ( 2017-04-17 02:16:47 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

2 seguidores

Estatísticas

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

Lidas: 3,980 vezes

Última atualização: Apr 06 '17