Home Excel - Dicas Microsoft Excel VBA Excel VBA - Worksheets Excel vba worksheet adiciona cabecalho todas as planilhas

Excel vba worksheet adiciona cabecalho todas as planilhas

E-mail Imprimir PDF

Saberexcel - site das macros

Macro simples do Aplicativo Microsoft Excel VBA, que adiciona um cabeçalho na folha de planilha, contém também uma macro auxíliar para ajudar no teste, deletanto o cabeçalho inserido. Observe que a macro está usando a instrução For Each, isso afeta todas as planilhas do livro, então, a macro inserirá cabeçalho em todas as planilhas do livro.


Sub Inserir_cabecalho_todas_planilhas()
'Adiciona uma espécie de cabeçalho em todas planilhas.
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Range("A1").Value = "DATA"
ws.Range("B1").Value = "NOME"
ws.Range("C1").Value = "ENDEREÇO"
ws.Range("D1").Value = "CIDADE"
ws.Range("E1").Value = "C E P"
Next ws
End Sub

Sub Limpar_cabecalho_todas_planilhas()
'Adiciona uma espécie de cabeçalho em todas planilhas.
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Range("A1").Value = ""
ws.Range("B1").Value = ""
ws.Range("C1").Value = ""
ws.Range("D1").Value = ""
ws.Range("E1").Value = ""
Next ws
End Sub


Aprenda sobre o Aplicativo Microsoft Excel VBA com SaberExcel




   Baixe o exemplo de planilha contendo a macro acima
vba worksheet adiciona cabecalho todas as planilhas (24.65 kB 2010-11-30 11:53:53)

Última atualização em Dom, 04 de Setembro de 2011 09:03  

Comentários  

 
# 28/05/2012 20:15
eu adorei fiz o curso eu amei fazer aprende muito sobre o excel hoje vou fazer uma prova sobre de auxiliar de administração eu amei sei fazer tudo isso obrigado por ter existido esse tipo de curso
Responder | Responder com citação | Citação
 
 
# TiagoDias 27/01/2014 15:42
Amigo, sei que este post é antigo, mas se por favor puder me dar uma ajuda... Como eu faço se não quiser substituir o valor em TODAS as planilhas, mas só nas seguintes à atual? Por exemplo, tenho uma aba para cada mês, e só quero que as alterações sejam feitas nos meses seguintes, mas não nos que já passaram... É possível? Obrigado!
Responder | Responder com citação | Citação
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje3881
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana23387
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês37116
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10459945
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA