Este fórum está sendo desativado

[fazerbem]

Tenho o seguinte comando que quero modificar.

tenho uma Aba chamada Pedido. quero que tudo que estiver na celula H10 sirva de nome ao ser criada a nova Planilha. e assim eu nao precise digitar na MsgBox desta rotina o nome a ser dado.


Sub InserirPlanilhaComNome()

Dim nome
Sheets.Add ' inseri uma nova planilha
nome = InputBox("Informar nome da nova planilha") 'solicita o nome da nova planilha
ActiveSheet.Name = nome ' renomeia a planilha

End Sub


Grato , de novo !

Andre

[Parkeless]

Boa tarde!

Troca o "nome = InputBox("Informar nome da nova planilha")" por:

nome = range("H1") 'se ele tiver que buscar o nome na planilha ativa, ou
nome = Sheets("inserir o nome da sua aba aqui").Range("H1") 'se ele tiver que pegar em uma aba específica, não necessariamente a ativa.

Mas nisso, se a célula H1 estiver vazia ou conter um nome inválido, vai retornar um erro.

[fazerbem]

Grato ParkeLess, ficou Top.

Sub InserirPlanilhaComNome()

Dim nome


Sheets.Add ' inseri uma nova planilha

'nome = InputBox("Informar nome da nova planilha") 'solicita o nome da nova planilha


nome = Sheets("RESUMO").Range("H10")

ActiveSheet.Name = nome ' renomeia a planilha


End Sub


Abracos amigao

Andre