حذف کردن در یک سلول و نمایش تاریخ حذف شدن در سلول بعد

[shazdekochooloo]

با سلام و احترام

من یه سوال داشتم از خدمتتون
میخواستم ببینم امکان داره با حذف کردن یک سلول در یک شیت ، داخل یک سلول در یک شیت دیگه تاریخ حذف کردن به شمسی نمایش داده بشه؟ و این تاریخ هر روز تغییر نکنه

[iranweld]

با سلام

در فایل پیوست تاریخ و ساعت و آدرس سلول و مقدار قبلی سلول در صورت حذف شدن در شیت بعدی ثبت میگردد.



Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

z2 = Sheets("Report").Cells(Sheets("Report").Rows.Count, "A").End(xlUp).Row + 1

If Target = "" Then

Sheets("Report").Range("a" & z2) = Now()

ff = Replace(Target.Address, "$", "")

Sheets("Report").Range("b" & z2) = ff
Sheets("Report").Range("c" & z2) = xx

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

xx = Target.Value


End Sub