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

[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

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