[حل شده] درج تاریخ

[hussein1358]

با سلام
من یک جدولی دارم که مربوط به برنامه زمانبندی هستش، حالا فرمولی می خوام که با توجه به ریز تعدادسرجوش های اجرا شده و تاریخ اجرای آنها، بصورت خودکار تاریخ را در ستون تاریخ های شروع و پایان درج نماید.

[میثم مقدم نیا]

اگه امکانش هست بیشتر توضیح بدیین دقیقا منظورتونا متوجه نشدم

[iranweld]

با سلام
برای درج تاریخ دو یوزر دیفاین فانکشن تعریف گردید.

برای درج تاریخ شروع با تایپ

=tarikhs(انتخاب سطر مورد نظری که تعداد سر جوش قید شده است.  ) 

تاریخ شروع آن سطر درج میگردد

برای درج تاریخ پایان با تایپ

=tarikht(انتخاب سطر مورد نظری که تعداد سر جوش قید شده است.) 

تاریخ پایان آن سطر درج میگردد

Function tarikhs(y As Range)

lr = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column

For j = 12 To lr

If Cells(y.Row, j) <> "" And InStr(Cells(4, j), ".") >= 2 Then

Exit For

End If

Next

tarikhs = Cells(4, j)

End Function 

Function tarikht(y As Range)

lr = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column

For j = lr To 12 Step -1

If Cells(y.Row, j) <> "" And InStr(Cells(4, j), ".") >= 2 Then

 Cells(4, j).Select

Exit For

End If

Next

tarikht = Cells(4, j)

End Function