ممتاز جدا
معلم والله
استاذي لو تكرمت علي بعض الأسئلة
حاولت أن أجتهد
فأضفت هذا الكود فأين الخطأ
يقول اذا كان الأعلى اعلى من الرقم الذي سجله (رقم عالي جديد ) يسجله في الخلية المجاورة 46
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsEmpty(Target) Then
For x = 13 To 290
If Cells(x, 41) > Cells(x, 40) And Cells(x, 44) = "" Then
Cells(x, 44) = Cells(x, 41)
Cells(x, 45) = Format(Now, ("HH:MM:SS"))
If Cells(x, 41) > Cells(x, 44) And Cells(x, 46) = "" Then
Cells(x, 46) = Cells(x, 41)
Cells(x, 47) = Format(Now, ("HH:MM:SS"))
End If
Next
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
جزاك الله خيرا