Boa noite!!

Se por ventura passar 24 horas e ninguém lhe ajuda, tente explicar novamente, caso eu entender e souber eu lhe ajudo...

Lembre se para minha Arquivo é diferente de planilha = Guia etc. esses detalhes na explicação melhora o entendimento e resposta!!

Att

Boa noite!!!

Eu ainda não entendi, então para cria uma copia tente.
Será criado uma nova guia após a guia AleVBA_1 com o nome AleVBA_2

Sub AleVBA_8033()
Worksheets.Add(After:=Worksheets("AleVBA_1")).Name = "AleVBA_2"
End Sub

Boa noite!!!

Eu ainda não entendi, então para cria uma copia tente.
Será criado uma nova guia após a guia AleVBA_1 com o nome AleVBA_2

Sub AleVBA_8033()
Worksheets.Add(After:=Worksheets("AleVBA_1")).Name = "AleVBA_2"
End Sub

só que se eu clicar novamente, ela não vai criar a alevba_3..
deveria ter tipo um "+1" né?

Bom dia!!

Tente assim

Sub CriaCopiaComNomeNaSecuencia()
'Cria uma Copia de uma guia Com Nome Na Secuencia
Const cstrTEMPLATE As String = "testeAleVBA" '<- você tem que ter uma guia com esse nome,caso queira alterar fique avontade
Const cstrNEW_NAME As String = "testeAleVBA "
Sheets(cstrTEMPLATE).Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = cstrNEW_NAME & Format(Sheets.Count, "000")
End Sub

Bom dia!!

Tente assim

Sub CriaCopiaComNomeNaSecuencia()
'Cria uma Copia de uma guia Com Nome Na Secuencia
Const cstrTEMPLATE As String = "testeAleVBA" '<- você tem que ter uma guia com esse nome,caso queira alterar fique avontade
Const cstrNEW_NAME As String = "testeAleVBA "
Sheets(cstrTEMPLATE).Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = cstrNEW_NAME & Format(Sheets.Count, "000")
End Sub

é.. ja estamos tendo resultados.. hehe
então, agora o problema é que as macros não sao copiadas, eu vou ter que atribuir função a cada uma delas na hora que forem criadas.. fora que todos os botões das planilhas perderam as macros vou ter que vincular denovo hahahahaha
e.. eu queria que ela fosse renomeada apartir de uma "celula" no caso na planilha X vai ter la..
A1 = plan1
A2 = plan2
A3 = plan3
dai a medida que for criando a planilha vai ser renomeada para a celula de destino..
ou então, uma macro fora a parte para fazer isso, de uma vez só, eu tenho 1 macro mais ela renomeia somente a planilha que eu rodar a macro..

Bom dia!!!

Por favor click na mãozinha!!!
viewtopic.php?f=7&t=3784

Funciona assim, os nomes atuais das guias em coluna A, os nomes que deseja mudar em coluna B.

Sub ReNomearAleVBA()
Dim LR As Long, i As Long
With Sheets("Nomear")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LR
        Sheets(.Range("A" & i).Value).Name = .Range("B" & i).Value
    Next i
End With
End Sub

Bom dia!!

Criei um outro exemplo veja em
viewtopic.php?f=21&t=8037

Att

Isso! Agora voltando a questão das guias... Conseguistes?

Bom dia!!!

Por favor click na mãozinha!!!
viewtopic.php?f=7&t=3784

Funciona assim, os nomes atuais das guias em coluna A, os nomes que deseja mudar em coluna B.

Sub ReNomearAleVBA()
Dim LR As Long, i As Long
With Sheets("Nomear")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LR
        Sheets(.Range("A" & i).Value).Name = .Range("B" & i).Value
    Next i
End With
End Sub

tenta inserir essa formula naquela planilha que te mandei no MP..
não estou conseguindo mano.. pode colocar as planilhas atuais na A4..

Sub Capturar_Nome_Velho_Escrever_Nome_NovoXXX()
Dim LR As Long, i As Long, ws As Worksheet
With Sheets("PQP")
.Range("A4:A36").ClearContents
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "PQP" Then .Range("A" & Rows.Count).End(xlUp).Offset(1).Value = ws.Name
Next ws
End With
With Sheets("PQP")
LR = .Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To LR
Sheets(.Range("A" & i).Value).Name = .Range("B" & i).Value
Next i
End With
End Sub

n to conseguindo fazer rodar..

Boa noite!!

Na sua coluna "B" da guia PQP, não pode ter um numero maior de dados do que de guias no arquivo.

Exemplo:

Você tem no seu arquivo a Guia PQP, AleVBA_1, AleVBA_2, AleVBA_3

Na sua coluna "B" da guia PQP, você dznnn_1, dznnn_2, dznnn_3, dznnn_4

Notou que você tem uma guia a mais, além disso os dados de ambas as colunas devem iniciar na linha 4.

Att

é, consegui! obrigadissimo! ahahah
então, sobre a copia das guias, queria o botão pra criar uma guia nova.. e nela, que venha toda vinculada..