وارد کردن زمان در هنگام تغییر مقدار هر کدام از دو سلول

[javaddear]

سلام من می خواستم کدی بنویسم که وقتی هر کدام از دو سلول ستون 3 و 5 تغییر کرد زمان رو ثبت کنه و این کد فقط وقتی یک سلول تغییر می کنه زمان رو وارد می کنه چه تغییری باید بدم.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
(With Target.Offset(0, 11
.Value = Now
.NumberFormat = "hh:mm"
End With
End Sub

[Amir Ghasemiyan]

سلام دوست عزیز
نمیدونم منظورتون رو درست متوجه شدم یا نه. ببینین این کد کمکتون میکنه:



Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 3 Or Target.Column = 5) And Target.Cells.Count = 1 Then
With Target.Offset(0, 11)
.Value = Now
.NumberFormat = "hh:mm"
End With
End If
End Sub

[javaddear]

دستت درد نکنه فقط یه مشکلی داره که وقتی ستون 3 هستم یازده تا میره سمت چپ تا سلول مورد نظر حالا باید از ستون 5 ، 9 تا بره تا همون سلول بشه

[Amir Ghasemiyan]

یک تغییر ساده:



Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 3 Or Target.Column = 5) And Target.Cells.Count = 1 Then
With Target.Offset(0, 14 - Target.Column)
.Value = Now
.NumberFormat = "hh:mm"
End With
End If
End Sub

[javaddear]

یک تغییر ساده:



Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 3 Or Target.Column = 5) And Target.Cells.Count = 1 Then
With Target.Offset(0, 14 - Target.Column)
.Value = Now
.NumberFormat = "hh:mm"
End With
End If
End Sub


بابت وقتی که گذاشتین و توجهتون خیلی ممنون حل شد.