Saberexcel - o site das macros
Excel permite criar novas planilhas em um número de maneiras diferentes. E se você deseja criar uma nova planilha e nomeá-la em um único passo? A maneira mais fácil de fazer isso é com uma macro. O seguinte é um exemplo de uma macro que irá pedir um nome e, em seguida, criar uma planilha e dê a essa planilha o nome fornecido.
Sub Adiciona_nome_nova_planiha()
Dim NovoNome As String
NovoNome = InputBox("Digite o nome para nova Planilha?")
If NovoNome <> "" Then
Sheets.Add Type:=xlWorksheet
ActiveSheet.Name = NovoNome
End If
End Sub
Esta macro funciona bem, enquanto o usuário digita um nome de planilha que é "legal" para os padrões do Excel. Se o novo nome não for aceitável para o Excel, a folha de planilha ainda é adicionada com um número, mas não é renomeado como esperado, voce digita o novo nome.
Há como voce antecipar o código para retornar possíveis erros na nomeação de uma planilha. O código exemplo a seguir irá adicionar a planilha, mas continuo pedindo um nome de planilha, se uma uma incorreta é fornecido.
Sub Adiciona_novo_nome_planiha2()
Dim PlanilhaAtual As String
PlanilhaAtual = ActiveSheet.Name
'Adiciona nova planilha
Sheets.Add
'verificando se o nome é valido
On Error Resume Next
'Receba o novo nome
ActiveSheet.Name = InputBox("Nome para nova folha de planilha?")
'Pergunta novamente se o nome é um nome válido
Do Until Err.Number = 0
Err.Clear
ActiveSheet.Name = InputBox("Tente novamente!" _
& vbCrLf & "Nome de planilha, esta planilha já existe" _
& vbCrLf & "Por favor digite outro nome para nova planilha")
Loop
On Error GoTo 0
'Volte para onde você começou
'Não é necessário se você não quer voltar
'para onde você começou, mas quer ficar
'sobre a nova planilha
Sheets(PlanilhaAtual).Select
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel
