Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
CRIAR CÓPIAS DE FOR...
 
Notifications
Clear all

CRIAR CÓPIAS DE FORMULÀRIO COM INDICE AUTOMÀTICO

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
928 Visualizações
RSS
 nando
(@nando)
Posts: 53
Trusted Member
Topic starter
 

Boa tarde a todos,

Meus parceiro gostaria de ajuda de você par desenvolver o projeto modelo anexo.
Possuo guia inicial "HOME", uma planilha modelo "MODELO 001" e três modelos de laudo "M1,M2,M3" gostaria de criar uma VB de forma que na pagina inicial HOME faço uma cópia automática do MODELO 001 se possível ela apareça no índice na home.
Obrigado a todos.

formulario.xlsx
 
Postado : 05/04/2014 1:13 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Sub EuNaoEntendi()
    Dim MySheetName As String
    MySheetName = "M"
    Sheets("modelo001").Copy After:=Sheets("modelo001")
    ActiveSheet.Name = MySheetName
End Sub

Att

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

 
Postado : 05/04/2014 1:28 pm
 nando
(@nando)
Posts: 53
Trusted Member
Topic starter
 

Obrigado Certinho!! Valeu!

 
Postado : 05/04/2014 3:53 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Caso você desejar criar ema sequência M1, M2, M3 etc
Use...

Sub AleVBA_11212()
Const cstrTEMPLATE As String = "modelo001"
Const cstrNEW_NAME As String = "M"
Sheets(cstrTEMPLATE).Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = cstrNEW_NAME & Format(Sheets.Count, "0")
End Sub

Att

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

 
Postado : 05/04/2014 4:35 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico