| No menu, clicando na guia
Desenvolvedor, clique em Inserir, em Controles ActiveX clique
Botão de Comando (item marcado em amarelo na figura)
 Segure o botão da esquerda do
mouse e arraste-o pela planilha até formar um quadrado conforme
a figura abaixo
Solte o botão e a figura deverá
ficar igual à imagem abaixo
Dê um duplo click na caixa e
digite conforme a figura abaixo.
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name
= "Nova"
Clique na parte superior
esquerda (figura do Excel) para retornar à planilha
Retornando para a planilha,
note que na guia Desenvolvedor, esta ativada o Modo de Design
também. Quando o Modo de Design esta ativado, a caixa que você
colocou no Excel também esta marcada.
Nossa meta agora é alterar o
texto que aparece na caixa.
Como ela já esta marcada,
clique em Propriedades (ao lado do Mode de Design) e altere o
texto de CommandButton1 para Clique Aqui no item Caption
conforme figura abaixo. Após alterar o texto, clique em
 para
fechar a janela Propriedades
Clique no Modo de Design para
desmarcar esta opção e clique no botão para fazer o teste.
Veja como ficará a sua planilha.
Salve seu arquivo com o formato de
macro - extensão .xlsm
|