Notifications
Clear all

Ocultar linhas vazias automaticamente

18 Posts
6 Usuários
0 Reactions
3,424 Visualizações
(@alexcba)
Posts: 0
New Member
Topic starter
 

Boa tarde, estou com uma planilha de 1800 linhas, as vezes algumas linhas na coluna "A" ficam vazias e as vezes ficam com o valor "1". Como posso aplicar um código VBA para ocultar todas as linhas que a respectiva célula da coluna "A" estiver vazias?

Já achei muito código na internet mas nenhum seu certo. Quando aplico o Excel fecha sozinho.

 
Postado : 30/11/2017 11:04 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Alexcba,

Boa tarde!

Veja se é assim.

 
Postado : 30/11/2017 11:33 am
(@fcarlosc)
Posts: 0
New Member
 

Boa-tarde

Segue exemplo...

Att,

Francisco

 
Postado : 30/11/2017 11:39 am
(@alexcba)
Posts: 0
New Member
Topic starter
 

Pois então senhores, ambas as planilhas fecham quando eu executo a macro.
Como posso resolver este problema?

Já testei em outras máquinas, e as linhas em branco ficam aparecendo, quando eu clico não faz nada, depois clico e planilha fecha.

 
Postado : 30/11/2017 12:17 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O ideal seria colocar a rotina que está utilizando ou o seu modelo, provavelmente tem instrução para fechar.

[]s

 
Postado : 30/11/2017 12:30 pm
(@fcarlosc)
Posts: 0
New Member
 

Que estranho, outras aplicações com Macro rodam bem no seu PC e nos outros !?

 
Postado : 30/11/2017 12:31 pm
(@alexcba)
Posts: 0
New Member
Topic starter
 

Mauro Coutinho, posso te enviar a planilha para vê-la?

 
Postado : 30/11/2017 1:02 pm
(@alexcba)
Posts: 0
New Member
Topic starter
 

Fcarlosc, qualquer macro que rodar o excel fecha, e eu já reinstalei o mesmo.

 
Postado : 30/11/2017 1:03 pm
(@osvaldomp)
Posts: 857
Prominent Member
 

Considerando ao menos uma célula vazia na coluna "A".

Sub OcultaVazias()
  Columns("A:A").Cells.EntireRow.Hidden = False
  Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
 End Sub
 
Postado : 30/11/2017 1:26 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mauro Coutinho, posso te enviar a planilha para vê-la?

Você pode anexa-la aqui mesmo no Forum, compactada conforme as regras, pode estar mudando os dados originais.
Quando diz que o excel fecha, isto acontece só na sua planilha ou nos modelos que os colegas enviaram tambem ?
Se for só na sua, poste as rotinas que está utilizando.
[]s

 
Postado : 30/11/2017 7:49 pm
(@alexcba)
Posts: 0
New Member
Topic starter
 

Segue a planilha a qual estou me referindo.
Quando na colula A a célula estiver vazia, eu quero que a respectiva linha seja ocultada da impressão.
Já, se ela estiver com o número 1, deixe como está para sair na impressão.

Não sei se as regras do fórum permite, mas se puderem me mandar algum contato eu ligo ou chamo no WhatsAap para explicar se preciso.

Desde já agradeço a atenção.

 
Postado : 01/12/2017 12:38 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Alexcba,

Boa Noite!

Veja se é assim.

 
Postado : 01/12/2017 5:55 pm
(@alexcba)
Posts: 0
New Member
Topic starter
 

wagner

É exatamente isso.
Muito Obrigado.
Agradeço também todos que auxiliaram.

 
Postado : 02/12/2017 12:32 pm
(@alexcba)
Posts: 0
New Member
Topic starter
 

É possível incluir um botão para Reexibir as linhas ocultas?
Porque a planilha é dinâmica, se eu preencher a Plan! novamente, as linhas da Plan2 deveria voltar.
Elas até voltam na verdade, mas com altura "0".

Tem algum botão, que siga os mesmo passos, mas caso na linha tenha o número 1, daí a linha aparece novamente?

 
Postado : 02/12/2017 12:51 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Alexcba,

Boa tarde!

Você se esqueceu de votar positivamente. Por gentileza, clique na mãozinha existente ao lado da ferramenta CITAR. Esse é o nosso único incentivo nesse site.

Quanto ao botão solicitado para reexibir linhas, segue versão com a inserção do mesmo.

Fiz de modo a reexibir todas as linhas que estão ocultas. Se precisar de apenas algumas linhas, a lógica terá que ser diferente.

 
Postado : 02/12/2017 1:57 pm
Página 1 / 2