Página 1 de 1
[RESOLVIDO!]Ajuda com Workbooks. Add
Enviado: 07 Mai 2021 às 15:45
por 7Noronha
Boa tarde Champs!
Existe algum método para fazer um Workbooks. Add já com nome específico?
Pesquisei vários meios e não consegui resultado
Valeu a atenção
Re: Ajuda com Workbooks. Add
Enviado: 07 Mai 2021 às 16:19
por mucascosta
Veja se é isso: adicionar nova planilha com nome específico...
Código: Selecionar todosSub AddAba()
Dim xName As String
Dim xSht As Object
On Error Resume Next
xName = InputBox("Por favor, insira um nome para esta nova planilha ", "Mucas Sistemas - 2021")
If xName = "" Then Exit Sub
Set xSht = Sheets(xName)
If Not xSht Is Nothing Then
MsgBox "A planilha não pode ser criada porque já existe uma planilha com o mesmo nome nesta pasta de trabalho"
Exit Sub
End If
Sheets.Add(, Sheets(Sheets.Count)).Name = xName
End Sub
Re: Ajuda com Workbooks. Add
Enviado: 08 Mai 2021 às 08:43
por 7Noronha
Obrigado pelo retorno amigo, mas não resolveu meu problema. Deixa eu tentar explicar melhor. Este é o final do meu processo:
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("1:3").Select
Range("A3").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
No seu método ele criou uma nova aba, mas minha necessidade seria que criar um novo arquivo ( Workbooks.Add ) e já criar com nome específico.
Obrigado
Re: Ajuda com Workbooks. Add
Enviado: 08 Mai 2021 às 10:54
por mucascosta
Veja se o anexo lhe ajuda...
Re: Ajuda com Workbooks. Add
Enviado: 08 Mai 2021 às 13:45
por osvaldomp
7Noronha escreveu: ↑07 Mai 2021 às 15:45
Existe algum método para fazer um Workbooks. Add já com nome específico?
Só é possível renomear o arquivo ao salvá-lo.
Re: Ajuda com Workbooks. Add
Enviado: 12 Mai 2021 às 09:05
por 7Noronha
Obrigado @mucascosta me ajudou muito, dei uma editada no código para tirar umas informações que não usaria na minha planilha, mas atendeu muito bem a minha necessidade.