Boa tarde!!

Tente...

Sub AdicionarGuia_AleVBA()
With Sheets("Plan2")
    lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    newsheetname = .Cells(lastrow, 1)
End With
ThisWorkbook.Sheets.Add
ActiveSheet.Name = newsheetname
End Sub

Att

Alexandre, acrescentei o código no formulário no botão gravar e esta funcionando blz, mas só um detalhe, é possível que na plan criada na célula B1 fique com a mesma numeração de cadastro? ex: meu próximo cadastro é 5, ao clicar em gravar na plan2 vai receber meus dados, "que já esta criando uma nova plan", e o código daquele cadastro fosse para a célula B1 de cada plan nova criada.

Até o momento, muitíssimo obrigado.

Att,

Boa noite!!

Não sei se entendi mas...

Sub AdicionarGuia_AleVBA()
With Sheets("Plan2")
    lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    newsheetname = .Cells(lastrow, 1)
End With
ThisWorkbook.Sheets.Add
ActiveSheet.Name = newsheetname
Range("B1").Value = newsheetname
End Sub

Faça os teste não testado!!!!!!
Att

Alexandre, o que eu disse, foi exatamente o que vc fez, mas infelizmente me expressei mal... quando queria que na célula B1 tivesse o mesmo código do cliente cadastrado na plan2, mas a questão é criar uma ficha (aba) igual a plan existente, por exemplo a aba 1, e para não copiar dados já existente, posso acrescentar uma planilha modelo para usar como referencia.

Espero não estar dando trabalho... tentei criar uma macro copiar e colar e adaptar ao código que me forneceu, mas não tive sucesso.

Att,

Boa noite!!

Pirei na batatinha...
Eu não estou entendendo o que precisa, vejamos se mais alguém possa ajuda-lo!

Att

kkkkk, fica assim não Alexandre...

Consegui fazer o que eu queria, veja o anexo por favor e faça um teste... ta meio bruto o sistema, quando a nova aba é criada tem um comando que jogue ela para a última aba, 1, 2, 3, 4..., pois com as que tenho já tenho em meu projeto original, fica desordenado.

Desculpa ae pela bagunça e confusão.

Att,

Boa noite!!

Faça os teste.

http://www.sendspace.com/file/w4k0rn

Att

Alexandre, ficou perfeito, meu projeto esta 99,99% pronto, para concluir e chegar aos 100%, estou quebrando a cabeça para retornar a informação da célula D4 de cada Aba (1,2,3,4...) para a Plan2 conforme o cadastro.

Obrigado novamente.

Att,

Esqueci de dizer que é na coluna D da Plan2

Att,

Boa tarde!!
Está confuso
Tem certeza que é na guia com o nome "Plan2"???
Tem realmente haver com a rotina que disponibilizei
Se for então, acrescente mais uma linha

Range("D4").Value = newsheetname

Olá Alexandre, partindo do princípio para ficar mais claro... Foi criado uma rotina onde quando cadastro no formulário as informações são salvas na Plan2, que automaticamente é criada uma aba com o mesmo nome de cadastro e na célula B1 também tivesse este mesmo nº de cadastro, até ai tudo perfeito, a última coisa que quero fazer, é tipo um procv na coluna D, tipo assim, meu próximo cadastro é o 5, ao cadastrar, uma aba é criada com o nome 5, na célula B1 tenha o mesmo nome (5) e na plan2, onde fica as informações do cadastro, puxasse a informação da célula D4, que é valor de cada ficha, fazendo um resumo.

Na plan2 vai ficar assim:

A1 Código
B1 Nome
C1 Telefone
D1 Valor (é onde vou ter o valor de cada aba (1,2,3...), tipo um resumo.

E assim por diante... A2 B2 C2 D2

Não consegui fazer com o código que me passou, ressaltando que não sou experiente no assunto.

Att,

Talvez fique mais claro assim, já que temos quase tudo concluído em anexo:

Copiar a célula D4 de cada nova plan criada (1,2,3...) e colar na Plan2 conforme o código de cadastro.
A Plan2 funciona como meu banco de dados e resumo de valores a receber.
Todos códigos que usamos estão no botão Gravar.

Agora acho que ficou mais claro.

Att,

Boa tarde!!

Faça os teste..
http://www.sendspace.com/file/x2ovps

Att

Ale, é por ai... quando é criado um novo cadastro, em cada planilha fica uma ficha individual de cada cadastro (esta ficha é igual para todos) o que eu quero, é retornar a célula D4 de cada planilha criada, para a Plan2, tipo este exemplo que vc me enviou... agora acho que vc me entendeu... parcialmente estou usando a fórmula =SE(A1="";"";INDIRETO(A1&"!D4")) e arrastando para baixo até a célula 100 da respectiva coluna, mas ao querer imprimir, imprimi até onde onde consta a formula, mesmo que esteja invisível por causa do SE(.
Uma outra coisa, não estou conseguindo que o cadastro seja começado a partir da 2ª linha, da forma que esta, não tenho o cabeçalho (Nome, Telefone, Valor).

Att,