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
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
ou
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
Fernando muito obrigado, deu certo 100%, daqui a pouco você vira samurei, já que já é ninja, rsrsrs abraço's, "topico fechado"
*** 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