Notifications
Clear all

Duplicar planilha e renomear

8 Posts
2 Usuários
0 Reactions
1,366 Visualizações
(@tecnico)
Posts: 36
Eminent Member
Topic starter
 

Bom dia,

Pessoal, tenho uma planilha que gera Ordem de serviço.

Preciso que cada vez que crio uma nova Ordem de serviço (coluna A), seja criado uma nova planilha com o Renomeada e igual ao "N° Ordem" e depois de todas as planilhas (final)

Preciso que ela contenha isso este formulário que preenchido.

Isso será tipo um banco de dados de minhas Ordens de serviços.

Alguém pode me ajudar?

 
Postado : 09/03/2015 8:20 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Use a pesquisa do fórum, caso não conseguir adaptar poste seu arquivo modelo!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/03/2015 10:53 am
(@tecnico)
Posts: 36
Eminent Member
Topic starter
 

Então vou tentar explicar o que quero realizar.

Estou anexando uma planilha neste post.

Já crie o botão de impressão, Salvar em PDF, Voltar!

Agora preciso criar um botão para copiar esta planilha com o conteúdo nela inserido, renomear para o n° da ordem de serviço que esta registrado em (A1:A2).

Ela será como um banco de dados. Vou gerar uma Ordem de serviço e a mesma criará uma nova planilha com o n° da Ordem de serviço como nome.

Alguem pode me ajudar?

 
Postado : 10/03/2015 1:06 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

copiar esta planilha

Neste caso você quer criar uma nova guia? uma novo arquivoxlsx?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/03/2015 1:47 pm
(@tecnico)
Posts: 36
Eminent Member
Topic starter
 

Uma nova guia.

 
Postado : 10/03/2015 2:02 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Seria isso?

Sub AleVBA_14922()
    ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = ActiveSheet.Range("A1").Value
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/03/2015 7:12 am
(@tecnico)
Posts: 36
Eminent Member
Topic starter
 

Era bem isso mesmo. Agora tem como ela sempre voltar para a planilha de origem?

Outra coisa, eu não quero que estas novas planilhas copiem os botões, tem como copiar apenas a planilha?

 
Postado : 16/03/2015 3:42 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Em nossa pesquisa encontrar muita coisa, incluído (além 1º post), as respostas para ambas as perguntas!

Além do mais click na mãozinha!!!!!!!!!!!!!

Era bem isso mesmo. Agora tem como ela sempre voltar para a planilha de origem?

http://www.google.com.br/cse?cx=partner ... nar%20abas

Outra coisa, eu não quero que estas novas planilhas copiem os botões, tem como copiar apenas a planilha?

http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/03/2015 6:36 pm