Saberexcel - site das macros
Essa macro do Aplicativo Microsoft Excel VBA, verifica se existe uma planilha com o começo do do nome desejado, se existir emite uma mensagem se deseja ou não deletar, caso sim ou não,caso exista uma planilha com o nome Pagamento_2011_hora_min_seg, cria uma nova planilha com o nome determinado mais a formatação de nome(Pagamento_dia_mes_ano_hora_min_seg)
contará as 14 primeiras letras do nome da planilha ativa, se exitir deleta
Sub Nome_Planilha_data_hora_min_seg()
'essa linha de código é para impedir a mensagem do sistema "deseja excluir..."
'Application.DisplayAlerts = FalseIf Left(LCase(ActiveSheet.Name), 14) = "pagamento_2011" Then
MsgBox "existe uma planilha que começa com 'pagamento_2011'", vbCritical, "Saberexcel - site das macros"
ActiveSheet.Delete
End If
'Criar uma nova planilha
Sheets.Add After:=ActiveSheet
'Renomear a planilha ativa como data e hora minutos e segundos
ActiveSheet.Name = "pagamento_" _
& Format(Now, "yyyy-dd-mmm-hhmms")
Range("A1").Value = "Data"
Range("B1").Value = "Nome"
Range("C1").Value = "Endereço"
Range("D1").Value = "Cidade"
Range("E1").Value = "Bairro"
Range("G1").Value = "Alterado para estudos por Excel VBA Estudos Escola"
Range("G2").Value = "se for criar outra planilha e nome da plan ativa for igual a 'pagamento_2011...'emite mensagem deleção"
Range("G3").Value = "Planilha exemplo retirada do DVD - 14.000 Planilhas Microsoft Excel VBA - Saberexcel"
' Application.DisplayAlerts = True
End Sub
Aprenda tudo sobre o pAplicativo 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 acimavba worksheets cria planilha formato dia e hora (17.76 kB)
