Macro para salvar com versões

2024 - VBA & Macros

Post Recente por amarcondes 11 anos atrás

3 Posts

2 Usuários

0 Reactions

618 Visualizações

RSS

amarcondes

(@amarcondes)

Posts: 2

New Member

Topic starter

Bom dia,

Estou com um problema e gostaria da ajuda de vcs, sou novo em macros no excel mas preciso automatizar uma planilha, preciso criar uma planilha que tenha um botão que salve a pasta de trabalho e acrescente a versão, por exemplo:

c:vbrelatorio1
c:vbrelatorio2

e assim por diante quantas vezes o botão for acionado, preciso tambem antes de a pasta de trabalho seja salva a macro mude de planilha para a planilha de nome menu.

pesquisei alguns codigos mas nenhum conseguiu me atender, para solucionar o problema da versão eu criei uma celula que inicia com valor 1, cada vez que o botao eh acionado, adiciono +1, no nome do arquivo ponho relatorio+celula, deu certo mas nao consigo por o diretorio onde desejo salvar, segue o abaixo o codigo:


Private Sub CommandButton1_Click()
On Error Resume Next
Dim Caminho As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "c:vb"
ActiveWorkbook.SaveAs Filename:=Caminho & [b1].Value & "_" & [A1].Value & ".xlsm"
MsgBox ("Planilha Salva Como : ") & [b1].Value & "_" & [A1].Value & ".xlsm"

    
    
End Sub

Grato Matheus Marcondes.

Postado : 28/04/2014 8:07 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

amarcondes,

Bom Dia!

Veja se é assim:

Private Sub CommandButton1_Click()
    On Error Resume Next
    Dim Caminho As String 'declaracao da variável caminho
    
    Sheets("Plan1").Range("A1").Value = Sheets("Plan1").Range("A1").Value + 1
    
    ActiveWorkbook.Save
    
    Caminho = ThisWorkbook.Path & ""
    
    ActiveWorkbook.SaveAs Filename:=Caminho & [b1].Value & "_" & [A1].Value & ".xlsm"
    
    
    MsgBox "Planilha Salva Como: " & Caminho & [b1].Value & "_" & [A1].Value & ".xlsm"
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 28/04/2014 8:49 am