Ola
Tenho esta duas macros, uma dentro de EstaPasta_de_Trabalho e outra dentro de um modulo.
Funciona, desde que exista alguma modificacao na planilha, porem se simplemente eu sair de uma aba pra outra nao funciona.
- Possuo as abas, Venda1, Venda2 e Venda3. O que devo colocar dentro de cada uma dessas abas para quando eu estiver em algumas delas, somente estas, o modulo AutoSalva seja iniciado ?
- Caso eu modifique algo dentro dessas abas, queria que reiniciasse o tempo, mas isso nao acontece ele depois do tempo programado executa a macro mesmo assim, e me transfere para a aba Fundo2.Isso seria somente se ficasse recioso.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
IniciaTimer
End Sub
Dim alertTime As Date
Sub IniciaTimer()
If alertTime <> 0 Then
On Error Resume Next
Application.OnTime EarliestTime:=alertTime, procedure:="AutoSalva", Schedule:=False
On Error GoTo 0
End If
alertTime = Now + TimeValue("00:00:30")
Application.OnTime alertTime, "AutoSalva"
End Sub
Sub AutoSalva()
' ActiveWorkbook.Save
' ActiveWorkbook.Close
Sheets("Fundo2").Activate
End Sub
Postado : 16/11/2016 11:53 am