Notifications
Clear all

Cópia de Worksheets usando uma planilha padronizada

3 Posts
1 Usuários
0 Reactions
942 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estou desenvolvendo um aplicativo com o VBA Excel XP. Tenho uma planilha padrão com várias colunas e 13 linhas, sendo cada linha um mês do ano e a última linha para o 13º salário. Dentro do form que desenvolvi, há uma caixa de texto para informar a data de admissão do servidor e outra para a data de exoneração.

Supondo que, hipoteticamente, um servidor foi admitido em 12/04/1998 e exonerado em 15/09/2000. Preciso criar, então, as planilhas SCPSSS1998, SCPSSS1999 e SCPSSS2000 tendo por base uma planilha padronizada, por exemplo, a planilha "SCPSSS". Essa planilha tem as linhas e colunas pré-configuradas e que não podem ser alteradas. Depois de criadas, meu código irá preencher essas planilhas com os vários dados de acordo com cada ano.

Depois que o usuário digitar as datas de admissão e de exoneração, o programa irá testar as datas digitadas para saber se são datas válidas e depois terá que ser capaz de criar as planilhas, uma para cada ano, usando como matriz a planilha padronizada (SCPSSS).

Alguém poderia me dar uma luz de como fazer isso via código VBA?

Luiz Roberto

 
Postado : 27/05/2011 3:44 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite Luiz Roberto

Acesse este site pois tem um tutorial que eu acredito que vai te ajudar:

http://blog.excelexperts.com.br/index.p ... uma-lista/

Um abraço:

 
Postado : 27/05/2011 6:10 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Oi Patropi! Valeu pela ajuda, mas achei esse outro código mais simples. O que você acha?

Sheets("SCPSSS").Select
Sheets("SCPSSS").Copy After:=Sheets(3)
Sheets("SCPSSS (2)").Select
Sheets("SCPSSS (2)").Name = "SCPSSS1999"
Sheets("SCPSSS").Select
Sheets("SCPSSS").Copy After:=Sheets(4)
Sheets("SCPSSS (2)").Select
Sheets("SCPSSS (2)").Name = "SCPSSS2000"
Sheets("SCPSSS").Select
Sheets("SCPSSS").Copy After:=Sheets(5)
Sheets("SCPSSS (2)").Select
Sheets("SCPSSS (2)").Name = "SCPSSS2001"

A planilha SCPSSS é a minha planilha modelo.

Valeu pela ajuda!

Luiz Roberto

Boa noite Luiz Roberto

Acesse este site pois tem um tutorial que eu acredito que vai te ajudar:

http://blog.excelexperts.com.br/index.p ... uma-lista/

Um abraço:

 
Postado : 27/05/2011 6:47 pm