Usuário com melhor resposta
NumLock Ativa e desativa

Pergunta
-
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.
- Editado miguelinho70 sexta-feira, 17 de abril de 2015 02:10
Respostas
-
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
- Marcado como Resposta miguelinho70 sexta-feira, 17 de abril de 2015 11:43
Todas as Respostas
-
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
- Marcado como Resposta miguelinho70 sexta-feira, 17 de abril de 2015 11:43
-
-