none
Ocultar linhas zeradas de varias guias, de uma planilha, ao mesmo tempo. RRS feed

  • Pergunta

  • Pessoal, 

    A um certo tempo vc's m ajudaram com um comando VBA para o excel. Tal comando faz com que as linhas zeradas (vazias) sejam ocultadas, como pode ser observado abaixo:

    Sub hideCells()
    
    Dim celula
    Range("a13").Select
    For celula = 3 To 300
        If Range("A" & celula) = "" Then
        Range("A" & celula).EntireRow.Hidden = True
        Else
        End If
    Next celula
        Range("b1").Select
    End Sub

    Tenho em umas planilha tenho 4 Guias. Plan1, Plan2, Plan3 e Plan4. Todas elas são preenchida automaticamente a partir da linha 3 até a linha 300. O comando acima oculta  as Linhas zeradas(Vazias) de uma determinada guia. Existe a possibilidade de adaptarmos o comando acima para que ele possa  ocultar as linhas zeradas(vazias) de 2 , 3 , 4 ou mais Guias ao mesmo tempo? 

    Agradeço antecipadamente o auxilio. 

    Valeu


    segunda-feira, 19 de novembro de 2012 17:29

Respostas

  • Sub Exemplo()
    
        Dim ws As Worksheet
        Dim lRow As Long
        
        For Each ws In Sheets
            Select Case ws.Name
                Case "Plan1", "Plan2", "Plan3", "Plan4"
                    For lRow = 3 To 300
                        If ws.Cells(lRow, "A") = "" Then
                            ws.Rows(lRow).EntireRow.Hidden = True
                        End If
                    Next lRow
            End Select
        Next ws
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta Brandão Jr segunda-feira, 19 de novembro de 2012 19:47
    segunda-feira, 19 de novembro de 2012 19:40
    Moderador
  • Sub Exemplo()
    
        Dim ws As Worksheet
        Dim lRow As Long
        
        For Each ws In Sheets
            Select Case ws.Name
                Case "Plan1", "Plan2", "Plan3", "Plan4"
                    ws.Rows("3:300").EntireRow.Hidden = False
            End Select
        Next ws
    End Sub
    


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta Brandão Jr segunda-feira, 19 de novembro de 2012 20:50
    segunda-feira, 19 de novembro de 2012 20:47
    Moderador

Todas as Respostas

  • Sub Exemplo()
    
        Dim ws As Worksheet
        Dim lRow As Long
        
        For Each ws In Sheets
            Select Case ws.Name
                Case "Plan1", "Plan2", "Plan3", "Plan4"
                    For lRow = 3 To 300
                        If ws.Cells(lRow, "A") = "" Then
                            ws.Rows(lRow).EntireRow.Hidden = True
                        End If
                    Next lRow
            End Select
        Next ws
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta Brandão Jr segunda-feira, 19 de novembro de 2012 19:47
    segunda-feira, 19 de novembro de 2012 19:40
    Moderador
  • Puts cara, Vc é show.

    Funcionou redondinho. Perfeito.

    Sem querer abusar mais já abusando. kkk.

    O comando acima irá ocultar todas a linha zerada(vazias) no intervalo de linhas de 3 a 300 em varias guias de uma planilha. Como poderia ser feito para que o mesmo intervalo (3 a 300) seja reexibido nas 4 guias(Plan1,Plan2,Plan3,Plan4)  ou mais?

    O comando que costumo usar é muito extenso, como pode ser visto abaixo: 

    Sub teste3()
    '
    ' teste3 Macro
    '
    
    '
        Sheets("Plan1").Select
        Rows("2:301").Select
        Selection.EntireRow.Hidden = False
        Range("A3").Select
        Sheets("Plan2").Select
        Rows("2:301").Select
        Selection.EntireRow.Hidden = False
        Range("A3").Select
        Sheets("Plan3").Select
        Rows("2:301").Select
        Selection.EntireRow.Hidden = False
        Range("A3").Select
        Sheets("Plan4").Select
        Rows("2:301").Select
        Selection.EntireRow.Hidden = False
        Range("A3").Select
        Sheets("test").Select
    End Sub

    Mais uma vez muito obrigado pelo auxilio. 

    Felipe. Muito obrigado mesmo pelos últimos auxílios

    segunda-feira, 19 de novembro de 2012 20:08
  • Sub Exemplo()
    
        Dim ws As Worksheet
        Dim lRow As Long
        
        For Each ws In Sheets
            Select Case ws.Name
                Case "Plan1", "Plan2", "Plan3", "Plan4"
                    ws.Rows("3:300").EntireRow.Hidden = False
            End Select
        Next ws
    End Sub
    


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta Brandão Jr segunda-feira, 19 de novembro de 2012 20:50
    segunda-feira, 19 de novembro de 2012 20:47
    Moderador
  • Perfeito Brother.

    Mais uma vez muito Obrigado.

    Cleberton Brandão Jr


    segunda-feira, 19 de novembro de 2012 20:52