Como fazer um relatório a partir de folhas de excel com vba

Clique "Começar," "Todos os programas" e "Microsoft Excel" para entrar na interface do Excel. Clique no "Desenvolvedor" fita e então "Segurança macro" botão. Verifica "Desativar todas as macros com notificação" e clique "Salve ." Agora você configurou Macros no seu Excel.

pressione "Alt" e "F11" simultaneamente para lançar VBE. Duplo click "Sheet1" no seu painel da direita em sua VBE para abrir a janela de código. selecionar "planilha" sobre as opções drop-down na janela de código.

Digite o seguinte código na janela de código:

Sub PrintReport ()

Dim PAGE_NUMBER

Dim ActiveSh Como Planilha

Dim ShNameView As String

Definir ActiveSh = ActiveSheet

Para cada célula no intervalo (Range ("b3"), Alcance ("b3") .End (xlDown))

Sh_view = ActiveCell.Offset (0, 1) .Value

PAGE_NUMBER = ActiveCell.Offset (0, 1) .Value

Select Case Cell.Value

Caso 1

Sheets (ShNameView) .Select

caso 2

Aplicação. Goto Referência: = ShNameView

End Select

ActiveWindow.SeletedSheets.Printout cópias: = 1

Próximo

O loop no código leva a uma impressão para cada célula na coluna B, a partir de B2. O código só imprime páginas na pasta de trabalho atual.