TECLA DE ATALHO NO VBA

FABIOGRACIANO 23/04/2012 10:27:32
#400503
Senhores,

Preciso criar uma tecla de atalho no UserForm dentro do Excel
A pressionar a tecla F3, irá aparecer a mensagem com a data de hoje (MsgBox Date)

Procurei e não achei, só o pessoal do VBMania poderá me ajudar
Desde já agradeço

O anexo ajuda a entender melhor a minha necessidade
FILMAN 23/04/2012 10:49:14
#400507 Resposta escolhida
Ta ai
FABIOGRACIANO 23/04/2012 12:39:37
#400516
Amigo Filman

Não resolveu o meu problema, segue a planilha em anexo para facilitar o entendimento

Obrigado
FILMAN 23/04/2012 13:06:13
#400520
Bom é o seguinte contrario do VB os UserFORM não tem a propriedade KeyPreview então a cada componente colocado
no FORM coloque o código que esta em anexo
FABIOGRACIANO 23/04/2012 13:32:20
#400521
FILMAN

Fantastico, value pela ajuda, era exatamente o que eu queria.

Obrigado
FABIOGRACIANO 23/04/2012 13:38:32
#400523
FILMAN

Mais uma coisa para ficar perfeito,
Existe a possibilidade de criar a tecla de atalho sem o botão?
Somente apertando a tecla de atalho F3?
FILMAN 23/04/2012 14:05:08
#400527
Citação:

Bom é o seguinte contrario do VB os UserFORM não tem a propriedade KeyPreview então a cada componente colocado
no FORM coloque o código que esta em anexo



Como disse antes

não importa o componentes que colocar tem colocar no evento KeyDown deles mais

vc vai usar o evento KeyDown en tudo
FABIOGRACIANO 23/04/2012 14:25:45
#400531
OK FILMAN!!

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyF3 Then
MsgBox Date
End If
End Sub

Obrigado
FILMAN 23/04/2012 16:58:07
#400554
Isso Mesmo o Exemplo que te enviei ja esta fazendo isso só que tem o botão então coloquei no botão tbm



se a duvida foi esclarecida encerre o tópico

qualquer coisa posta ai
Tópico encerrado , respostas não são mais permitidas
Voltar