Automate record timestamp when data in specific range is changed

[Xing Duong]

Hello everyone,

Need you kind to help me to advise the current code I have used to automatically record the timestamp to work properly.

Current code I have used

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myTableRange As Range
Dim myDateTimeRange As Range
Dim myUpdatedRange As Range

Set myTableRange = Range("D9:O16")

If Intersect(Target, myTableRange) Is Nothing Then Exit Sub

Application.EnableEvents = False
Set myDateTimeRange = Range("F7")
Set myUpdatedRange = Range("F8")

If myDateTimeRange.Value = "" Then

    myDateTimeRange.Value = Now

End If

myUpdatedRange.Value = Now

Application.EnableEvents = True
End Sub

It can work well, except some cells contained the formulas, here are row 11 & 12

Digitized BSOC Template.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
5				Kiến thức cơ bản
6
7				Ngày kiểm tra:		Tue, 16-Nov-21 13:57
8				Ngày cập nhật:		Tue, 16-Nov-21 13:57
9
10				Initial			Unannounced
11				Total Scrore:		7		Total "x":			% Score	#DIV/0!	Result:	Incompleted
12				Recommended Action				None
13
14				Tên Trainee:
15				Tên Trainer:
16				Nhận xét:
17
18				Tiêu chuẩn trước khi đào tạo
19	N/A				Hoàn thành đào tạo kiến thức nền tảng
20
21				Quầy làm việc
22				Thiết bị
23	N/A				Đảm bảo các thiết bị, dụng cụ, vật tư đầy đủ, trong tình trạng tốt và sắp xếp ngăn nắp
24	v			Clean As You Go
25
26				Người thực hiên
27	v				Bề ngoài: theo đúng quy định trong Appearance Policy
28	v				Nắm rõ các nguy cơ An Toàn Lao Động và các bước bảo đãm An Toàn Lao Động
29	v				Nắm rõ các nguyên tắc và tiêu chuẩn An Toàn, Vệ Sinh thực phẩm	###
30
31				Quy trình thực hiện
32				Chuẩn bị nguyên liệu
33	v				Xem số lượng cần dùng theo Build To
34	v				Mang bao tay trắng
35					Cheese
36						Làm nguội (Tempering)
37	v						Lấy cheese trong kho lạnh theo FEFO và FIFO (luôn lấy nguyên bịch)
38
BSOC

Cell Formulas
Range	Formula
F11	F11	=SUM($Q:$Q)-COUNTIF($A:$A,"N/A")
J11	J11	=IF(COUNTIF($A:$A,"x")=0,"",COUNTIF($A:$A,"x"))
L11	L11	=COUNTIF($A:$A,"v")/E11
N11	N11	=IF(COUNTA($A:$A)-9<SUM($Q:$Q),"Incompleted",IF(L11=100%,"PASS","FAIL"))
H12	H12	=IF($J$11="","None",IF($J$11=1,"Provide constructive feedback and conduct 2nd verification right then",IF($J$11>=2,"Back to Try-Out stage and conduct 2nd verification right then")))

Named Ranges
Name	Refers To	Cells
Print_Area	=BSOC!$A$5:$O$134	N11, L11, J11, F11

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
A19:A981	Cell Value	="N/A"	text	NO
A19:A981	Cell Value	="x"	text	NO
B18:B981	Expression	=IF(OR($D18<>"",$E18<>"",$F18<>"",$G18<>"",$H18<>"",$I18<>"",$J18<>"",$K18<>""),TRUE,FALSE)	text	NO
N11:Q11,P12:Q12	Cell Value	="PASS"	text	NO
N11:Q11,P12:Q12	Cell Value	="FAIL"	text	NO
A19:A981	Expression	=IF($Q19=1,TRUE,FALSE)	text	NO

Cells with Data Validation
Cell	Allow	Criteria
E10	List	, v
J10	List	, v
A19:A38	List	=IF($Q19,$R$6:$R$10,"")

 

[bebo021999]

With:

If myDateTimeRange.Value = "" Then
myDateTimeRange.Value = Now

I believe that next worksheet change event , this range was not blank then Now can not be udated..

 

[Xing Duong]

With:

If myDateTimeRange.Value = "" Then
myDateTimeRange.Value = Now

I believe that next worksheet change event , this range was not blank then Now can not be udated..

Thanks for your respond.

Actually, I tested changing some cells that are not having formulas in there within a range D9:O16 and it works well. With this said, I think code not applicable for cells with formulas.