Notifications
Clear all

BOTÃO PARA CRIAR GUIAS EM UMA PLANILHA

22 Posts
2 Usuários
0 Reactions
2,465 Visualizações
(@fabion)
Posts: 11
Active Member
Topic starter
 

Olá

gostaria que pudessem me ajuda no seguinte caso:

tenho uma planilha que é usada como agendamento, cada guia dessa planilha e para um dia do més ex: 01DEZ; 02DEZ; e assim por diante para cada dia do ano.

oque acontece é que toda vez que vai ser criada uma nova guia, deve-se ir la na aba plan1, plan2, e mudar para o nome do próximo més. seria possível através de VB criar um botão que faça essa função
já criando uma planilha em branco com o novo nome?

obs. nessa nova planilha devem estar limpos apenas os dados que serão preenchidos.

desde já obrigado

 
Postado : 14/12/2013 6:42 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia fabion,

Para fazer isso use o procedimento abaixo, julgando que a sua última planilha seja 01DEZ ou 02DEZ, seguindo a sua lógica e julgando que você tenha um arquivo para cada mês, caso não seja um arquivo para cada mês, no dia primeiro dia de cada mês ao incluir a planilha só altere para o dia sequencial e as próximas já seguirão a mesma sequência:

Sub lsIncluirPlanilhaSequencial()
    'Inclui uma planilha
    Sheets.Add After:=Sheets(Sheets.Count)
    'Altera o nome dela para o nome sequencial, só funciona para o mesmo mês
    Sheets(Sheets.Count).Name = Format(Left(Sheets(Sheets.Count - 1).Name, 2) + 1, "00") & Right(Sheets(Sheets.Count - 1).Name, 3)
End Sub

Abraço

Marcos Rieper

 
Postado : 14/12/2013 9:10 am
(@fabion)
Posts: 11
Active Member
Topic starter
 

Ola Marcos obrigado pela ajuda só uma duvida.
não sou muito bom e programação e entendo muito pouco mesmo.
quando estou compilando o codigo ele da um erro ali na linha (Sheets(Sheets.Count) .....
tenho que colocar algo ali, por exemplo guia vai ficar com o nome de 01DEZ devo colocar isso em algum lugar no código

obrigado

 
Postado : 16/12/2013 12:09 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja em:
http://www.sendspace.com/file/thbno7

Att

 
Postado : 16/12/2013 12:38 pm
(@fabion)
Posts: 11
Active Member
Topic starter
 

Ola Alexandre ficou legal, bem bacana mesmo , mas eu precisava que as informações fossem de uma planilha para outra. pelo menos os campos padrões

obrigado

 
Postado : 16/12/2013 1:05 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

já criando uma planilha em branco com o novo nome?

Eu realmente não sei o que você quer, eu não estou te entendendo :? :?

Eu vou deixar o pessoal mais experiente resolver sua dúvida!!

Att

 
Postado : 16/12/2013 1:08 pm
(@fabion)
Posts: 11
Active Member
Topic starter
 

Alexandre oque você me mandou cria uma planilha para cada dia do més, mas quero fazer isso baseado em uma planilha já existente.
a que você mandou faz isso mas criando uma planilha em branco entende?

seria pegar a planilha modelo, com nome , horário do agendamento etc, e copiar o conteúdo enquanto gera as seguintes

entendeu?

 
Postado : 16/12/2013 1:12 pm
(@fabion)
Posts: 11
Active Member
Topic starter
 

Bom dia fabion,

Para fazer isso use o procedimento abaixo, julgando que a sua última planilha seja 01DEZ ou 02DEZ, seguindo a sua lógica e julgando que você tenha um arquivo para cada mês, caso não seja um arquivo para cada mês, no dia primeiro dia de cada mês ao incluir a planilha só altere para o dia sequencial e as próximas já seguirão a mesma sequência:

Sub lsIncluirPlanilhaSequencial()
    'Inclui uma planilha
    Sheets.Add After:=Sheets(Sheets.Count)
    'Altera o nome dela para o nome sequencial, só funciona para o mesmo mês
    Sheets(Sheets.Count).Name = Format(Left(Sheets(Sheets.Count - 1).Name, 2) + 1, "00") & Right(Sheets(Sheets.Count - 1).Name, 3)
End Sub

Abraço

Marcos Rieper

ola Alexandre sera que podia me dar uma forcinha nessa duvida.

obrigado

 
Postado : 18/12/2013 6:19 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Deposita seu arquivo modelo!

Att

 
Postado : 18/12/2013 6:47 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

viewtopic.php?f=10&t=9374

Se não avançar avise.

Abs,

 
Postado : 20/12/2013 5:56 pm
(@fabion)
Posts: 11
Active Member
Topic starter
 

Ola Alexandre estou enviando a minha planilha

 
Postado : 21/12/2013 8:14 am
(@fabion)
Posts: 11
Active Member
Topic starter
 

Alexandre recebeu meu modelo?

 
Postado : 23/12/2013 8:39 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu já havia respondido... :shock:

Eu devo ter respondido, no tópico errado! :?
http://www.sendspace.com/file/tbrmxv

Att

 
Postado : 23/12/2013 8:45 am
(@fabion)
Posts: 11
Active Member
Topic starter
 

Alexandre esta muito bom, apenas oque acredito ser um ultimo ajuste, ela esta copiando a planilha, só que a formatação da mesma ela perde. como os espacamento das celulas, e as celulas que estão congeladas.
obrigado pela ajuda e pelo tempo que tem empregado nessa planilha.

 
Postado : 24/12/2013 5:21 am
Página 1 / 2