1-Tenho uma planilha que o relogio se atualiza automaticamente, feito em VBA.
2-Fiz em VBA um comparador de celulas, no caso F1 e F3, caso f3 >f1 executara um Beep.
3- Tenho instalado um soft "falador com o nome de DELTA TALK" ...ele fala tudo que estiver escrito na celula selecionada....porem isso so acontece quando teclo em F9 ou a tecla q eu programar...
4- Entao quero unir a funçao comparadora F1 F3 para disparar a tecla F9..
abaixo as sintaxes que ja fiz e nao deu certo..
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("relógio2").Range("f3") > Range("f1") Then
Application.OnKey "{F9}"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("relógio2").Range("f3") > Range("f1") Then
calculate
End Sub
SOMENTE ESTA FUNCIONA
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("relógio2").Range("f3") > Range("f1") Then
Beep
End If
End Sub
GRATO PELA SUA ATENÇAO