Salvar informações ...
 
Notifications
Clear all

Salvar informações em outra aba.

6 Posts
2 Usuários
0 Reactions
1,379 Visualizações
(@jsanches)
Posts: 0
New Member
Topic starter
 

Boa tarde,

segue em anexo um print da minha planilha:

gostaria de uma ajuda pois preencho mensalmente essa planilha e ao final de cada mês gostaria de salvar essas informações em uma outra aba para servir como um histórico.

agradeço quem puder ajudar..

 
Postado : 03/08/2015 6:54 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ficou bem vago, mas se quer uma copia da aba, ao final do mes é só copiar a aba para uma nova. Utilize o Gravador de Macros e terá sua rotina, então é só fazer alguns ajustes e pronto, poderá ser utilizada todo final de mes.

Uma rotina básica seria :

Sub CopyActiveSheetToLast()
      
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
      
End Sub

[]s

 
Postado : 03/08/2015 8:03 am
(@jsanches)
Posts: 0
New Member
Topic starter
 

deixa eu tentar me expressar melhor rsrs

Gostaria de assim essas informações GUERRAS DISPUTADAS ATÉ TROPAS RECEBIDAS fossem armazenadas separadamente pois todo o mês faço o reset da planilha mas gostaria de manter os dados assim fosse acumulando..

 
Postado : 03/08/2015 8:26 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Poste seu arquivo modelo!!

Assim como em...
http://gurudoexcel.com/forum/viewtopic. ... 1890#p1890

Att

 
Postado : 03/08/2015 10:15 am
(@jsanches)
Posts: 0
New Member
Topic starter
 

segue a planilha em anexo

 
Postado : 03/08/2015 10:21 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se detalhasse melhor de inicio o que pretende fica bem mais fácil e nem precisaria de anexo, e pelo print que postou e a nova explicação, e, se os dados estiverem nas colunas padrão, você quer copiar as colunas "E até J", então utilize a rotina abaixo :

Ajuste os nomes das Abaas.

Sub copia_colunas()
     
    With Sheets("Plan1")
      .Columns("E:J").Copy Destination:=Sheets("Plan2").Range("A1")
    End With

End Sub

[]s

 
Postado : 03/08/2015 11:25 am