Views

Histats

Vitrine

VBA Excel - Inserindo Cabeçalhos e Rodapés - Insert headers and footers using VBA


Já pensou a respeito de como pode ser útil colocarmos cabeçalhos e rodapés personalizados nas planilhas que entregamos para os nossos chefes, departamentos clientes, ou mesmo em Dashboards, Scorecards, e Gráficos que enviamos por e-mail.

Seria ainda melhor se pudéssemos automatizar a colocação destes com contadores de página, data e horário, logomarca da empresa e em alguns casos com títulos e enunciados analíticos que reflitam o conteúdo daquilo que está sendo entregue.

  Sub InsHeadFoot()
' Insira o mesmo cabeçalho/rodapé em todas as abas
Dim ws As Worksheet
      Let Application.ScreenUpdating = False

    For Each ws In ActiveWorkbook.Worksheets
          Let Application.StatusBar = "Alterando Cabeçalho/Rodapé em " & ws.Name
        With ws.PageSetup
              Let .LeftHeader = "Nome da Compania"
              Let .CenterHeader = "Pág. &P de &N"
              Let .RightHeader = "Impresso em &D &T"
              Let .LeftFooter = "Path : " & ActiveWorkbook.Path
            Let .CenterFooter = "Nome da planilha &F"
            Let .RightFooter = "Aba &A"
        End With
      Next ws

      Set ws = Nothing

      Let Application.StatusBar = False
End Sub

  TagsExcel, VBA, header, footer, cabeçalho, rodapé, 
  


✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias