naar de laatste ingevoerde cel gaan

[don42]

Beste helpers,

is het mogelijk dat er na een foutmelding van een dubbele invoer = een datum (foutmelding via msgbox)
de laatste invoer gewist wordt
soms is de cel na het invoeren een kolom verder (pijltje gebruikt)
soms een rij lager( enter gebruikt)
vandaar ik ook zoek naar de laatste invoer

 

[edmoor]

Als je die messagebox via het Sheet Change event start zal altijd de ActiveCell zijn.

 

[don42]

Ik heb er dit van gemaakt

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sheets("Aanvraag 1").Range("ac3").Value > 0 Then
MsgBox "Let op dubbele invoer", vbCritical, "Er gaat iets niet helemaal goed!"
Else
End If
End Sub

En hoe nu verder

 

[edmoor]

Zo:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sheets("Aanvraag 1").Range("ac3").Value > 0 Then
        MsgBox "Let op dubbele invoer", vbCritical, "Er gaat iets niet helemaal goed!"
        Target.Activate
    End If
End Sub

 

[don42]

Hey ,

dat was um.
dank maar weer eens voor je hulp :thumb: