Este fórum está sendo desativado

[aleksander]

Olá pessoal tudo bem!

Estou tentando criar uma planilha com os mesmos moldes de uma já existente, mas com o nome contido em uma célula ativada.

Código: Selecionar todos

Sub criarColaborador()
'Nesse ponto dá erro >> tenho uma planilha chamada BASE (um molde) que será replicada e sua réplica  assumirá o valor (no caso um nome).
   Sheets("BASE").Copy Before:=Sheets(2)
'renomeia-se a nova planilha
   ActiveSheet.Name = ActiveCell.Value
'insere numa célula o nome dessa nova planilha
   ActiveSheet.[C2] = ActiveCell.Value
   
End Sub

[osvaldomp]

Se no arquivo há somente a planilha BASE, então use o comando abaixo.

Código: Selecionar todos

Sheets("BASE").Copy After:=Sheets(1)

[aleksander]

Olá Osvaldomp, blz?
Inseri o código

Sheets("BASE").Copy After:=Sheets(1)

Mas está ocorrendo um erro, ele cria a nova planilha, mas e ativa uma célula dela ocasionado erro na renomeação da planilha e a atribuição do na C2.

Pensei em resolver isso salvando o valor a célula de referência (de onde sairá o nome para nova planilha) em uma string, mas decorre outro erro nesta atribuição.

Código: Selecionar todos

Sub criarColaborador()
Dim renomear As String
'Erro
renomear = Str(ActiveCell.Value)

Sheets("BASE").Copy After:=Sheets(1)

'Aqui está pegando pegando o valor da célula da nova planilha... Incorrendo em erro, daí a tentativa de jogar o valor de referência na string

'ActiveSheet.Name = ActiveCell.Value
' ActiveSheet.[C2] = ActiveCell.Value
ActiveSheet.Name = renomear
ActiveSheet.[C2] = renomear

End Sub
[/code]

[osvaldomp]

Experimente:

Código: Selecionar todos

renomear = ActiveCell.Value