Saberexcel - O site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), adiciona uma nova planilha e nesta nova planilha insere os dias da semana como também os números correspondentes aos dias da semana ex: 1, segunda...2, terça... 

Sub Insere_nova_plan_dias_semana()
Dim vNumero As Integer
Dim vTerminando As String
'On Error Resume Next

'//linhas comentadas para você fazer o teste, sempre inserirá uma nova planilha com o mesmo nome.

'Application.DisplayAlerts = False
'Sheets(1).Select: Sheets("DIAS DA SEMANA").Delete
  Sheets.Add
' ActiveSheet.Name = "DIAS DA SEMANA"
  ActiveCell.FormulaR1C1 = "Segunda-Feira"
  Selection.AutoFill Destination:=Range("A1:A7"), Type:=xlFillDefault
 
  For vNumero = 1 To 7
      ActiveSheet.Cells(vNumero, 2) = vNumero
  Next vNumero

  'observe que nesta linha de código neste local, após a seleção da última célula,
  'a propriedade offset, desloca duas linhas abaixo na mesma coluna e insere a msg finalizando.

  ActiveCell.Offset(vNumero + 2, 1).Value = "FIM -- DIAS DA SEMANA INSERIDOS"

  vTerminando = "Processo inserir dias da semana concluido......!"
  MsgBox vTerminando
 
End Sub


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



   Baixe o exemplo de planilha contendo a macro acima
vba datas insere nova planilha e dias da semana (21.1 kB 2011-01-24 21:52:17)