Existe a possibilidade em Formatação Condicional, de Ocultar a linha, que atenda a condição ?
Ou uma Função especifica para isso ?
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”.
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.
O erro permanece na mesma linha.
@LeandroVieira, é possível me enviar este arquivo, se sigiloso altere os dados, envie para gilberto@schiavinatto.com
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
Oi @LeandroVieira, 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
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
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
Oi @LeandroVieira, 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
Enviei, veja se chegou.
Ao receber me confirme, no próprio email, ou me dê outra maneira.
Oi @LeandroVieira, continuo sem receber o email. Criei um novo, “ask.libreoffice@schiavinatto.com” ou publique seu email aqui, que entro em contato direto.
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.
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?
Oi @LeandroVieira, para ela funcionar, estas linhas devem estar constar no inicio:
Rem Attribute VBA_ModuleType=VBAModule
Option VbaSupport 1Sim Gilberto Schiavinatto , segue o mesmo modelo da que você postou, só não incluí no comentário, pois não caberia todas informações.
Oi @LeandroVieira, 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.