ورود تاریخ وارد شدن اطلاعات در ستون ها

[sabertb]

سلام خدمت اساتید گران قدر
قبل از سوال ام می خواستم تشکر کنم از همه شما اساتید عزیز به خاطر دانشی که به من و دیگر کاربران انتقال دادید .

قبلا در پستی دیگر که استاد "iranweld" این ماکرو رو طراحی کردند

http://forum.exceliran.com/showthread.php/7569-%D9%85%D8%B4%DA%A9%D9%84-%D8%A8%D8%A7-%D8%A7%D8%AE%D8%AA%D9%84%D8%A7%D9%81-%D8%B3%D8%A7%D8%B9%D8%AA-%D9%88-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE/page2

با وارد کردن اطلاعات در 2 یا چند ستون تاریخ ورود اطلاعات در ستونی دیگر ثبت میشد . ولی فقط یه شرطی داره که به نظر میرسه فقط بعد از وارد کردن اطلاعات در ستون M وقتی تاریخش ثبت می شود که با موس یا با کیبورد بر روی سلول بعدی یعنی N برویم . حالا سوال من اینه که میشه کاری کرد که چه وقتی سلول ستون بعدی انتخاب شد چه سلول ردیف بعدی (یعنی یه اینتر بزنی یا پایین بیایی) تاریخ ورود اطلاعات آن سلول ثبت گردد ؟

Sub data()

Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer

 rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column

If Cells(rowNumberValue, 13) <> "" Then
  Cells(rowNumberValue, 27) = Mid(J_TODAY(1), 1, 4) & Mid(J_TODAY(1), 6, 2) & Mid(J_TODAY(1), 9, 2)
   Cells(rowNumberValue, 29) = Time
End If
'Next i

End Sub
Sub data2()

Dim i, J As Integer

Dim rowNumberValue As Integer, columnNumberValue As Integer



 rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column


If Cells(rowNumberValue, 14) <> "" Then
  Cells(rowNumberValue, 28) = Mid(J_TODAY(1), 1, 4) & Mid(J_TODAY(1), 6, 2) & Mid(J_TODAY(1), 9, 2)
End If

End Sub 

[iranweld]

با سلام
با استفاده از کد زیر چه با اینتر و چه با کلید تب جابجایی صورت بگیرد تاریخ و ساعت را در ستون مجاور درج مینماید

Sub data()

Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer

 rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column

If Cells(rowNumberValue, 2) <> "" Then
  Cells(rowNumberValue, 3) = J_TODAY(1)
   Cells(rowNumberValue, 4) = Time
   Else
   Cells(rowNumberValue - 1, 3) = J_TODAY(1)
   Cells(rowNumberValue - 1, 4) = Time
End If


End Sub 

این کد هم که در worksheet1

Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("B2:B50000")) Is Nothing Then data
    
End Sub 

[sabertb]

با سلام
با استفاده از کد زیر چه با اینتر و چه با کلید تب جابجایی صورت بگیرد تاریخ و ساعت را در ستون مجاور درج مینماید

Sub data()

Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer

 rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column

If Cells(rowNumberValue, 2) <> "" Then
  Cells(rowNumberValue, 3) = J_TODAY(1)
   Cells(rowNumberValue, 4) = Time
   Else
   Cells(rowNumberValue - 1, 3) = J_TODAY(1)
   Cells(rowNumberValue - 1, 4) = Time
End If


End Sub 

این کد هم که در worksheet1

Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("B2:B50000")) Is Nothing Then data
    
End Sub 

احسنت . مشکلی که براش پیش میاد اینه که وقتی پاک میکنی ستون B رو اررور میده بعضی وقت هم نمی دونم چرا انگار بعضی سطر هارو جا میندازه .

Cells(rowNumberValue - 1, 3) = J_TODAY(1)
   Cells(rowNumberValue - 1, 4) = Time 

این قسمت اضافه شده به کد قبلی
من +1 گذاشتم نابود شد بعد rowNumberValue رو تغییر دادم به columnNumberValue چشتون روز بد نبینه با کیبورد راه میری تاریخ میزنه یکی در میون 5 تا در میون و ...دارم سعی میکنم معنی این کد هارو بفهمم .
چکنیم با این مشکلات

[iranweld]

در فایلی که ردیف کردم این مشکل وجود نداره