o anexo nao foi postado. favor verificar

AlNeto, existe varias maneiras de se efetuar esta implementação, mas como não temos o modelo, a rotina abaixo é bem simploria, supondo que a Data esteja em A1, é armazenado este valor e somado + 1, depois copia esta Aba e devolve a mesma a Data acrescida.

Faça os testes se é o que está pretendendo.

Sub CopiaAba()
    
    Dim sWh As Long
    Dim sData

    sData = Range("A1").Value + 1
    
    sWh = ThisWorkbook.Sheets.Count
    
    Worksheets("Sheet1").Copy After:=Worksheets(sWh)
    
    ActiveSheet.Range("A1") = sData
    
End Sub

[]s

Obrigado vou testar!

Segue o anexo agora vai!

Boa noite!!

Por favor leia as regras os arquivos devem ser compactados!!

viewtopic.php?f=7&t=203

Att

Consegui meio aos trancos e barrancos este codigo para criar uma nova guia com a informação da guia anterior mas o meu problema agora é o calculo que deve ser feito em certar celulas usando os dados da guia anterior.

Ex. quando crio uma guia "plan2" automaticamente deveria calcular usando info da guia anterior "plan1".

Veja o codigo:

Onde estao os "XXXX" é que deveria constar a info da guia anterior para o calculo.Claro desde que seja possivel!

Sub Botão10_Clique()
    
Dim ActNm As String
    
Dim sWh As Long

sWh = ThisWorkbook.Sheets.Count
     
With ActiveWorkbook.Sheets

Worksheets("Dia 1").Copy after:=Worksheets(sWh)

ActiveWindow.View = xlNormalView
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    Selection.OnAction = "Botão10_Clique"
    Range("E12:G12").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[15]C[12]:R[25]C[12])+'XXXXX'!R12C5:R12C7"
    Range("K8:L9").Select
    ActiveCell.FormulaR1C1 = "='XXXXX'!R8C11:R9C12+1"
    Range("M8:M9").Select
    ActiveCell.FormulaR1C1 = "='XXXXX'!R8C13:R9C13+1"
    Range("K12:M12").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-9]C[6]:R[-4]C[6])+'XXXXX'!R12C11:R12C13"
    Range("F15:I15").Select
    ActiveCell.FormulaR1C1 = "='XXXXX'!R15C6:R15C9+1"
    Range("B15:E15").Select

End With

ActNm = ActiveSheet.Name

On Error Resume Next

ActiveSheet.Name = "C10:C18"

NoName: If Err.Number = 1004 Then ActiveSheet.Name = InputBox("Proximo.")

If ActiveSheet.Name = ActNm Then GoTo NoName

On Error GoTo 0

End Sub

Desde ja agradeço a colaboração.

AlNeto, sua duvida é um pouco mais complexa do que o enunciado no primeiro Tópico, onde dizia somente querer copiar uma aba e acrescer a Data, devemos lembrar que estamos em um Forum e toda solicitação deveria já na abertura do Tópico vir com as informações mais detalhadas do que realmente pretendemos, evitando-se assim de ficar sem resposta, de uma lida nos tópico s abaixo criado pelo colega Wagner Morel, bem pertinente e entenderá melhor.

TÓPICOS NÃO RESPONDIDOS
viewtopic.php?f=28&t=6050

Aproveite e veja este tambem :
Uso Racional do EXCEL
viewtopic.php?f=9&t=2474

Agora, quanto a sua questão, uma dica seria utilizar o "Gravador de Macros" e encontrará as repostas para os "XXXXX".

Outra Observação : Porque setou o Tópico como "RESOLVIDO ?"

[]s

AlNeto, sua duvida é um pouco mais complexa do que o enunciado no primeiro Tópico, onde dizia somente querer copiar uma aba e acrescer a Data, devemos lembrar que estamos em um Forum e toda solicitação deveria já na abertura do Tópico vir com as informações mais detalhadas do que realmente pretendemos, evitando-se assim de ficar sem resposta, de uma lida nos tópico s abaixo criado pelo colega Wagner Morel, bem pertinente e entenderá melhor.

TÓPICOS NÃO RESPONDIDOS
viewtopic.php?f=28&t=6050

Aproveite e veja este tambem :
Uso Racional do EXCEL
viewtopic.php?f=9&t=2474

Agora, quanto a sua questão, uma dica seria utilizar o "Gravador de Macros" e encontrará as repostas para os "XXXXX".

Outra Observação : Porque setou o Tópico como "RESOLVIDO ?"

[]s

É que consegui a solucao em outro forum entao creio que o melhor era setar como [RESOLVIDO] para não floodar o forum.

" & Worksheets(ActiveSheet.Index -1).Name & "

È substituir os "XXXX" que funciona como eu gostaria.

Outra Observação : Porque setou o Tópico como "RESOLVIDO ?"
[]s

É que consegui a solucao em outro forum entao creio que o melhor era setar como [RESOLVIDO] para não floodar o forum.

" & Worksheets(ActiveSheet.Index -1).Name & "

È substituir os "XXXX" que funciona como eu gostaria.

Meu comentário quanto a questão "RESOLVIDO", é que uma vez setado, dificilmente alguem irá acessar o Tópico, a não ser que tenham uma duvida parecida e utilizem a Busca no Forum, e como ainda não foi resolvido por completo o mesmo se perderá na lista de Tópicos Não Respondidos.

[]s