Este fórum está sendo desativado

[JCabral08]

Boa noite pessoal!

Utilizo a macro, abaixo, para filtrar da Plan3 , para a Plan 2 as linhas que possuem valor diferentes de 0 que constam na coluna C(3). Seria possível adaptar pra essa procura ser feita em mais de uma guia? No meu caso aqui, essa planilha possui ao total 8 guias.

Fico grato se alguém puder sanar essa dúvida.
____________________________________________
Sub FiltroArtilheiro()
Plan2.Range("a11:c1048576").ClearContents
lin = 11
ultimaLinha = Plan3.Cells(Rows.Count, "B").End(xlUp).Row
For I = 11 To ultimaLinha
If Plan3.Cells(I, 3) <> 0 Then
Plan2.Cells(lin, 1) = Plan3.Cells(I, 1)
Plan2.Cells(lin, 2) = Plan3.Cells(I, 2)
Plan2.Cells(lin, 3) = Plan3.Cells(I, 3)
lin = lin + 1
End If
Next
End Sub
__________________________________

Att
JCabral

[Jonathaluis]

JCabral08, bom dia!

Não entendi direito se "Guia" seria "aba" ou "coluna", mas seria possível sim, se for Aba você teria que criar outros "if" e "for" para verificar as outras abas, caso sejam colunas poderia utilizar o mesmo for, só aumentaria a quantidade de "if".

[JCabral08]

Bom dia Jonathaluis,

Então, guia é a aba mesmo. Pensei em usar os "if" e "for", mas fiquei imaginando se não haveria um loop que verificaria em cada aba e já fizesse isso: consolidar os dados para essa Plan2.
Sei que têm outra solução, criar uma guia base onde puxo todas os dados pra ela e depois aplicar a macro que já uso atualmente.
Mas valeu, vou usar aqui os "if" e "for".

JCabral08