SANDWICH PROJECT 2016 - VBA Excel - Copy a Master Worksheet
Sabe quando cria uma planilha mestra e gostaria de copiá-la rapidamente como um modelo para uma nova planilha?
Este código funciona muito bem com um calendário, planilhas de dataentry (entrada de dados) mensais, e outras aplicações onde tem planilhas com praticamente o mesmo layout.
Estou supondo que a planilha que deseja copiar seja chamada de Master, e que esteja oculta quando executar a macro.
Abra sua pasta de trabalho. Pressione Alt + F11 para visualizar o Editor do VBA. Clique duas vezes em ThisWorkbook. E cole o seguinte código na janela de código:
Dim NewPageName As String
Sub NewPage()
Let Sheets("Master").Visible = True
Sheets("Master").Copy After:=Worksheets(Worksheets.Count)
Let NewPageName = InputBox("What would you like to call your new Worksheet")
Let ActiveWindow.ActiveSheet.Name = NewPageName
Let Sheets("Master").Visible = False
End Sub
