DETECTAR TECLA ENTER NA CELULA

MARCOS 28/08/2009 13:10:49
#321230
Bom dia,
Pessoal,no excel (2003):

Se estou na célula [Ô]C10[Ô]:

1.) Como fica o código para ir para [Ô]D20[Ô], se o usuário pressionar a tecla [Ô]ENTER[Ô] ?

2.) Em que evento da planilha devo colocar o código?


Agradeço qualquer ajuda
JSFF77 28/08/2009 14:43:42
#321247
Boa tarde.

Amigo,

Tente o seguinte código:

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Address = [Ô]$C$10[Ô]) Then Range([Ô]D20[Ô]).Select
End Sub

OBS.: Worksheet é a planilha que você deseja trabalhar.

Até mais.
USUARIO.EXCLUIDOS 28/08/2009 15:04:17
#321262 Resposta escolhida
Se vc nao se importar em ignorar a tecla pressionada (enter, tab ou seta, utilize)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        
    If ActiveCell.Address = [Ô]$C$10[Ô] Then [D20].Select
End Sub

mas...
Vc nao conseguirá identificar a tecla pressionada (enter) ao menos que utilize a API GetKeyboardState Se precisar, cole o codigo abaixo em um modulo

Declare Function GetKeyboardState Lib [Ô]user32.dll[Ô] (ByVal pbKeyState As Byte) As Long
Dim keystat(0 To 255) As Byte
Sub Key()
        While True
            Dim i As Integer
            If (keystat(13) And &H1) = &H1 Then Debug.Print([Ô]Enter is being pressed.[Ô])
            If (keystat(13) And &H80) = &H80 Then Debug.Print([Ô]Enter is toggled.[Ô])
            i = i + 1
            If i = 256 Then i = 0
        End While
    End Sub
MARCOS 28/08/2009 15:50:22
#321269
Pessoal,eu agradeço muito.
Mas, eu preciso saber como fica o código para sair da célula [Ô]C10[Ô] e ir para [Ô]D20[Ô] , [Ô]SE[Ô] e somente se a tecla [Ô]ENTER[Ô]
for pressionada na célula [Ô]C10[Ô].


é possível?
Tópico encerrado , respostas não são mais permitidas
Voltar