Este fórum está sendo desativado

[MegaT]

Olá Turma,
Gostaria de uma ajuda referente ao vinculo de macro, ela precisa ser executada na mesma linha, onde é colocado qualquer valor de forma manual, porem, essa macro é executada na linha inferior a da mesma coluna.
Print em anexo.
Código!

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect

Set KeyCells = Range("F1:F9999")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

ActiveSheet.Unprotect

linha = ActiveCell.Row
Range("G" & linha).Select
ActiveCell.Value = Now()
Selection.Locked = True

End If
End Sub

Agradeço desde já!

[babdallas]

Provavelmente está configurado para quando você der enter, o cursor move para a célula inferior.

Neste caso, use:

Código: Selecionar todos

linha = ActiveCell.Row-1

ao invés de

Código: Selecionar todos

linha = ActiveCell.Row