none
NumLock Ativa e desativa RRS feed

  • 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
    sexta-feira, 17 de abril de 2015 01:47

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
    sexta-feira, 17 de abril de 2015 11:02

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
    sexta-feira, 17 de abril de 2015 11:02
  • Resolvido, obrigado Rafael.
    sexta-feira, 17 de abril de 2015 11:43
  • 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

    sexta-feira, 17 de abril de 2015 17:20
    Moderador