Duplo Click insere a data e seleciona a próxima célula


#1

Boa tarde!

Uso este código
Application.ScreenUpdating = False

   If Not Intersect(Target, Range("I18:I2500")) Is Nothing Then
    Cancel = True
    ActiveCell = Year(Date)

    ActiveCell.Offset(0, 1).Select

End If


#2

Pelo que entendi, o título do tópico já corresponde ao que seu código faz, mas não consegui entender a sua duvida…

Poderia detalhar mais?


#3

duplo click aparece o ano, mas não muda automaticamente para o próximo campo.
Com este código
ActiveCell.Offset(0, 1).Select


#4

Colega @SPP fazendo um teste aqui com o seu código mudou normalmente.

Exemplo:

Duplo clique em A1 inseriu o valor 2018 em A1. Depois selecionou a célula B1.

Poderia postar seu arquivo?


#5

Andre fiz um teste em uma planilha nova também funcionou, vou ver o que esta errado.
obrigado