Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
ocular linha de aco...
 
Notifications
Clear all

ocular linha de acordo com a coluna

 
2024 - VBA & Macros
Post Recente por wilmarleal 12 anos atrás
4 Posts
2 Usuários
0 Reactions
1,019 Visualizações
RSS
 wilmarleal
(@wilmarleal)
Posts: 186
Estimable Member
Topic starter
 

Pessoal,
alguem tem um codigo ai vb que se na COLUNA D tiver celular vazia ocultar LINHA ?

abraço

*minha coluna nas celulas ficam assim: -

*** Espero ter Ajudado ***
Se a mensagem foi útil Favor Clicar na [MÃOZINHA].
Se Finalizou, lembre se de marcar o tópico como [RESOLVIDO].

Wilmar Borges Leal Junior
http://wilmarborges.com

 
Postado : 05/11/2012 8:24 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia,

Veja se atende:

Sub OcultarLinhas()
    Dim i As Long
    
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        If Cells(i, "D").Value = "" Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next
End Sub

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/11/2012 8:35 am
 wilmarleal
(@wilmarleal)
Posts: 186
Estimable Member
Topic starter
 

@Jvalq
bom dia, envio em anexo
vai em painel, no ultimo botão , testei nao funcionou

Quadr.rar

*** Espero ter Ajudado ***
Se a mensagem foi útil Favor Clicar na [MÃOZINHA].
Se Finalizou, lembre se de marcar o tópico como [RESOLVIDO].

Wilmar Borges Leal Junior
http://wilmarborges.com

 
Postado : 05/11/2012 8:44 am
 wilmarleal
(@wilmarleal)
Posts: 186
Estimable Member
Topic starter
 

Troquei por 0 e funcionou normal,

valeu, ( joinha dado e merecido )

*** Espero ter Ajudado ***
Se a mensagem foi útil Favor Clicar na [MÃOZINHA].
Se Finalizou, lembre se de marcar o tópico como [RESOLVIDO].

Wilmar Borges Leal Junior
http://wilmarborges.com

 
Postado : 05/11/2012 8:49 am
Forum Jump:
  Tópico Anterior
Próximo Tópico