Selecionar varias planilhas

2024 - VBA & Macros

Post Recente por wilmarleal 10 anos atrás

3 Posts

2 Usuários

0 Reactions

1,202 Visualizações

RSS

wilmarleal

(@wilmarleal)

Posts: 186

Estimable Member

Topic starter

tenho um código que oculta a linha que estiver com zero, porem, tenho mais 4 planilhas iguais, e gostaria que esse codigo já fisese de uma vez só nas 4 planilhas e não estou conseguindo colocar a a condição "E" para que faça nas 4 planinhas, olhem o codigo abaixo

 Dim i As Long
 If Sheets("1°BI - Diário").Select Then
        For i = 1 To ActiveSheet.UsedRange.Rows.Count
        If Cells(i, "a").Value = "0" Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next

End If
End Sub

no if sheets, preciso colocar mais planilhas mas não funciona, pra ir em u m botão so ocultar tudo de uma só vez
abraço a todos

*** 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 : 28/01/2015 10:53 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Sub RodarNasPlanilhas()
dim Planilha as worksheet
Dim i As Long
    
    for each Planilha in thisworkbook.worksheets
        Select Case Planilha.Name
            Case "1°BI - Diário", "Outro Nome","Um Outro Nome","Mais um Nome"
                For i = 1 To Planilha.UsedRange.Rows.Count
                    If Cells(i, "a").Value = "0" Then
                        Rows(i).EntireRow.Hidden = True
                    End If
                Next
        End Select
    Next planilha
End Sub

Sub RodarNasPlanilhas()
dim Planilha as worksheet
Dim i As Long
    
    for each Planilha in thisworkbook.worksheets
        if Planilha.Name = "1°BI - Diário" or Planilha.Name= "Outro Nome" or Planilha.Name="Um Outro Nome" or Planilha.Name="Mais um Nome" then
            For i = 1 To Planilha.UsedRange.Rows.Count
                If Cells(i, "a").Value = "0" Then
                    Rows(i).EntireRow.Hidden = True
                End If
            Next
        End If
    Next planilha
End Sub

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

Postado : 28/01/2015 11:10 am