Notifications
Clear all

Macro do Excel que indique que a tecla DEL foi pressionada

5 Posts
2 Usuários
0 Reactions
1,286 Visualizações
(@kaleo_rs)
Posts: 0
New Member
Topic starter
 

Boa tarde pessoal,

Preciso inserir um comando em uma macro (ja desenvolvida) que informe que a tecla DEL foi pressionada.

Exemplo:

Sub Valida_Celula()

xLinnha_Atual = ActiveCell.Row
xColuna_Atual = ActiveCell.Column

IF Ultima_Tecla_Pressionada <> DEL Then
xLinnha_Atual = xLinnha_Atual + 1
xColuna_Atual = xColuna_Atual + 1
Else
xLinnha_Atual = xLinnha_Atual + 2
xColuna_Atual = xColuna_Atual + 2
End IF
End Sub

 
Postado : 30/04/2015 11:43 am
(@laennder)
Posts: 62
Trusted Member
 

Olá kaleo,

É possível verificar a tecla pressionada através do evento KeyDown do TextBox.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If KeyCode = 46 Then
        MsgBox "Pressionou a tecla delete"
    End If

End Sub

Estou anexando uma planilha exemplo

 
Postado : 01/05/2015 7:32 am
(@kaleo_rs)
Posts: 0
New Member
Topic starter
 

laennder,

Não estou usando forms. É uma macro, até tentei usar o comando, mas ocorreu um erro de variável na declarada.

Ou seja, quando a célula A1 é selecionada e pressionado a tecla DEL, sempre que a célula tem o seu conteúdo alterada uma macro é executada, e nessa execução é que preciso saber se foi a tecla DEL pressionada.

 
Postado : 01/05/2015 9:34 am
(@laennder)
Posts: 62
Trusted Member
 

Então anexe a sua planilha, pois assim fica mais fácil compreender o que deseja.

 
Postado : 01/05/2015 4:22 pm
(@kaleo_rs)
Posts: 0
New Member
Topic starter
 

Segue Anexo...

Na WORKSHEET da planilha ENTRADA e da SAIDA tem uma macro que controla a range de A4 a A2000, ou seja, tudo que for alterado na range essa macro é executada e chama outra macro que valida os dados que são digitados.

A macro Testa_Dia é a minha dor de cabeça, pois o controle de Linha e Coluna funciona bem quando pressionado Enter ou TAB, visto que estas teclas salta um linha ou uma coluna e ai eu acrescento 1 na linha ou na coluna. Quando é pressionado DEL não a mudança nem de linha e nem de coluna.

Dentro da macro Testa_Dia inseri o IF que preciso fazer.

 
Postado : 03/05/2015 5:44 pm