Timer

[frata]

Bem, estou precisando que meu programa abra uma caixa de diálogo

a cada cinco minutos para lembrar de corrigir a postura de quem está

no computador. Ela será fechada em seguida clicando-se enter.

Não tenho idéia de como criar esse temporizador...!!!

Será que alguém pode me ajudar...??

Obrigado antecipadamente.

Frata

[zinhovba]

Boa noite!!

Faça uma adaptação à sua necessidade.

Option Explicit

'Pasta de Trabalho

Private Sub Workbook_Open()

Application.OnTime Now + TimeValue("00:00:05"), "ordenar"

End Sub

Exemplo:

Option Explicit

Sub ordenar()

MsgBox "Atualizado"

Range("A1:B7").Select

ActiveWorkbook.Worksheets("Atualizar").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Atualizar").Sort.SortFields.Add Key:=Range("B2:B7"), _

SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Atualizar").Sort

.SetRange Range("A1:B7")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Range("C1").Select

End Sub

Abraços..

[frata]

Oi...MIl vezes obrigado...mas acho que não me expressei bem, porque me refiro à uma aplicação

em Visual Basic, e não em VBA. Mas foi muito útil, porque tb uso o VBA..e muito.

Obrigado. Frata.