Como descrito acima, comandos diferentes executam atividades diferentes.
Seu botão1 da planilha remete/aciona a rotina -->Save<--
esse "comando" salva a planilha ativa no mesmo endereço/caminho e nome que foi "aberta"
Sub Save()
ActiveWorkbook.Save
End Sub
a rotina constante "EstaPasta_de_trabalho" salva uma copia da planilha ativa no endereço indicado (no seu caso com o mesmo nome)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ThisWorkbook
.SaveCopyAs ("C:Mod" & .Name)
End With
End Sub
Simples assim; dois comandos diferentes, duas atividades especificas.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 23/09/2018 9:26 am