Otomatik tarih atarken uyarsın

[orrhankaya]

A sütunundaki hücrelerde değişiklik yaparsam.
Hizasındaki B sütununa otomatik tarih atıyor.
Ama atmadan önce beni uyarsın.

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox("Sağdaki sütuna bugünün tarihini otomatik atsın m?"),vbYesNo, "Uyarı"
????????????
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column + 1) = Now
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target.Value = Empty Then
    Target.Offset(0, 1) = Empty
    Else
    If Target.Value <> Empty Then
    Onay = MsgBox("De&#287;i&#351;iklik yapt&#305;&#287;&#305;n&#305;z h&#252;crenin yan&#305;ndaki h&#252;creye g&#252;n&#252;n tarihi yaz&#305;lacak. Onayl&#305;yor musunuz?", vbCritical + vbYesNo)
    If Onay = vbNo Then GoTo Son
    Target.Offset(0, 1) = Now
    Else
    Exit Sub
    End If
    End If
Son:
End Sub

 

[orrhankaya]

Teşekkür ederim, COST CONTROL
Çalışmamı Pazartesiye erteleyecektim.
Hızır gibi yetiştiniz.