Notifications
Clear all

Copiar e criar nova planilha

4 Posts
2 Usuários
0 Reactions
1,077 Visualizações
(@diramos)
Posts: 0
New Member
Topic starter
 

Boa noite.
Na planilha anexada, preciso fazer uma cópia das células B11:E19, criar uma segunda planilha , colar os valores e renomear a planilha.
Farei isso mês a mês.
Conto com vcs.

 
Postado : 31/07/2016 8:00 pm
(@engeel2014)
Posts: 207
Reputable Member
 

O código abaixo cria e salva a planilha com o nome "cópia 01". Se quiser que o nome seja cadastrado automaticamente dependendo de algum critério, explique que podemos ajustar.

Sub copia()

    Sheets.Add After:=Sheets(Sheets.Count)
    activeSheets.Name = "cópia 01"
    Sheets("Caixa").Select
    
End Sub
 
Postado : 31/07/2016 10:38 pm
(@diramos)
Posts: 0
New Member
Topic starter
 

Boa tarde.
A planilha que esta em anexo, gera valores diários dentro de um mês, é possível, que ao final do mês, exemplo agosto de 01 a 31/08, todos os valores sejam apagado e lançados numa planilha na plan 2 que será chamada de agosto e que o mesmo processo aconteça para o próximo mês, setembro, gerando a plan 3 e assim sucessivamente.
Preciso, que ao final de cada mês, a macro faça essas ações e gere uma plan para cada mês.

 
Postado : 01/08/2016 4:51 am
(@engeel2014)
Posts: 207
Reputable Member
 

Boa tarde.
A planilha que esta em anexo, gera valores diários dentro de um mês, é possível, que ao final do mês, exemplo agosto de 01 a 31/08, todos os valores sejam apagado e lançados numa planilha na plan 2 que será chamada de agosto e que o mesmo processo aconteça para o próximo mês, setembro, gerando a plan 3 e assim sucessivamente.
Preciso, que ao final de cada mês, a macro faça essas ações e gere uma plan para cada mês.

Boa tarde Diramos, anexo conforme solicitado. Quando você abre a planilha o codigo verifica se a data inserida na célula "A12" é do mesmo mês do mês atual, se sim não faz nada, se não ela cria a planilha do mês e copia os dados e depois salva a planilha. Faça um teste aí e dá um retorno, pra ver te atende.

 
Postado : 01/08/2016 12:38 pm