VBA Data Abas

[Djeison Lindemann]

Bom dia Galera.
A minha duvida é a seguinte, estou usando esse comando para quando a planilha aberta ela abra na aba que corresponde ao dia atual.
Private Sub Workbook_Open()
Dim dataatual As String
dataatual = Day(Date) ' pegando somente o dia da data
If dataatual < 10 Then
dataatual = "0" & (dataatual) ' adiciona o zero no incio se data menor que dia 10
End If
Sheets(dataatual).Select
Range("E2").Select
ActiveWorkbook.Save

End Sub


Porem a planilha só funciona quando fechada e reaberta, mas a planilha não é fechada durante a semana, somente final de semana.

Eu gostaria que executasse esse comando com ela aberta, trocou o dia troca de aba na planilha.

Obrigado.

[Reinaldo]

Se WorkBook_Open não atende, e necessário "descobrir" que outros eventos/atividades ocorrem/podem ocorrer durante esse período "aberto" e ver se algum atende a demanda

[Djeison Lindemann]

Obrigado Reinaldo por responder.

Mais coloquei para ter uma ideia, a linha que penso seria na lina do salvar, segue abaixo Exemplo:
Sub gravar()
' ThisWorkbook.Save
' Call timer
'End Sub

'Sub timer()
' Application.OnTime Now + TimeValue("00:10:00"), "gravar"
' MsgBox " Salvo Com Sucesso ", vbInformation, "Planilha"
'End Sub

Só não consigo pensar para rodar na data atual e seleciona a aba correspondente, seria na mesma linha do descritivo acima..

[milton]

Djeison Lindemann como você colocou para GRAVAR a cada 10 minutos, então se você colocar o código como segue abaixo, a Planilha dataatual será selecionada automaticamente a cada 10 minutos.

'Sub timer()
' Application.OnTime Now + TimeValue("00:10:00"), "gravar"

'Dim dataatual As String
'dataatual = Day(Date) ' pegando somente o dia da data
'Sheets(dataatual).Select
'Range("E2").Select

' MsgBox " Salvo Com Sucesso ", vbInformation, "Planilha"
'End Sub