Como posso aplicar essa macro a todas as páginas de um arquivo excel?

Question

Eu tenho um código para fazer uma modificação específica em algumas células de uma página. Eu gostaria de aplicar este código em um clique para todas as páginas no arquivo excel. Estou usando o VBA e sou um novato nisso. Aqui está o meu código:

Sub H() Dim B As Range, H As Range, I As Range For Each B In Range("B7:B49").Cells If IsNumeric(B) And B <> "" Then Cells(B.Row, 9) = Trim(Cells(B.Row + 1, 8)) & Trim(Cells(B.Row + 2, 8)) Cells(B.Row + 1, 8) = "" Cells(B.Row + 2, 8) = "" If B.Row > 50 Then Exit For End If Next B End Sub

Gostaria de aplicar a macro acima em todas as páginas da planilha do Excel. Como posso fazer isso?

    

Answer 1

Basta percorrer as folhas (páginas) da mesma maneira que você percorre as células em um intervalo:

Sub H()
    Dim B As Range

    For S in Sheets
        For Each B In S.Range("B7:B49").Cells
            If IsNumeric(B) And B <> "" Then
                Cells(B.Row, 9) = Trim(Cells(B.Row + 1, 8)) & Trim(Cells(B.Row + 2, 8))
                Cells(B.Row + 1, 8) = ""
                Cells(B.Row + 2, 8) = ""
            End If
            If B.Row > 50 Then Exit For
        Next B
    Next S

End Sub

P.S. Provavelmente faz mais sentido ter as duas instruções If independentes; ou seja, não ter o segundo aninhado dentro do primeiro.