NumLock Ativa e desativa

Question

Boa noite amigos do Forum,

Estou com dificuldade de resolver este problema, uso a macro abaixo para inserir data e enter. Mas acontece que LIGA E DESLIGA Num/Lock (teclado númerico). Como fazer p não interferir no teclado númerico, somente pular para celula seguinte.

Sub data()
ActiveCell = Date
SendKeys "~", True
End Sub

Obrigado.

Answer 1

Olá! Se você deseja mudar de célula, porque você simplesmente não usa o comando offset?

Por exemplo:

'para a célula a direita
Sub data()
ActiveCell = Date
ActiveCell.Offset(0, 1).Activate
End Sub

'para a célula de baixo
Sub data()
ActiveCell = Date
ActiveCell.Offset(1, 0).Activate
End Sub

---

Rafael Kamimura

Answer 2

Resolvido, obrigado Rafael.

Answer 3

Sem macros, você poderia pressionar Ctrl+; e em seguida Enter (para baixo) ou Tab (para a direita).

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br