برجاء المساعده في وضع ناتج وتاريخ بشرط جمله محدد vba

[hanykassem]

مطلوب عند كتابه ok في( b4) يتم وكتابه تاريخ اليوم في (  a4 ) Qty = Qty                 
D4=c4

test-17-05-2023.xlsx

[alyaldeen]

test-17-05-2023.xlsm

[hanykassem]

شكرا لمجهودك 

بس للاسف مش دة المطلوب

[hanykassem]

مطلوب عند كتابه ok في( b4) يتم وكتابه تاريخ اليوم (  a4 )
وفي  Qty = Qty2 

[حسونة حسين]

السلام عليكم ورحمه الله وبركاته وبها نبدأ

تفضل ضع هذا الكود في حدث الشيت المطلوب

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X As Range
    Application.EnableEvents = False
    For Each X In Target
        If X.Row > 3 Then
            If X.Column = 2 Then
                If X.Value = "ok" Then X.Offset(0, -1).Value = Date
            ElseIf X.Column = 3 Then
                If X.Offset(0, -1).Value = "ok" Then X.Offset(0, 1).Value = X
            End If
        End If
    Next X
    Application.EnableEvents = True
End Sub

 

[hanykassem]

 تسلم يارب بس ممكن تتطبق علي الشيت المرفق

شكرا علي مجهودك وجزاك الله خير الجزاء وجعلة في ميزان حسناتك 

بس طلب اخير ممكن شرح الكود

 

 

[hanykassem]

ممكن شرح الكود 

 

ممكن شرح للكود لو امكن

[hanykassem]

On 5/18/2023 at 5:19 PM, حسونة حسين said:

السلام عليكم ورحمه الله وبركاته وبها نبدأ

تفضل ضع هذا الكود في حدث الشيت المطلوب

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X As Range
    Application.EnableEvents = False
    For Each X In Target
        If X.Row > 3 Then
            If X.Column = 2 Then
                If X.Value = "ok" Then X.Offset(0, -1).Value = Date
            ElseIf X.Column = 3 Then
                If X.Offset(0, -1).Value = "ok" Then X.Offset(0, 1).Value = X
            End If
        End If
    Next X
    Application.EnableEvents = True
End Sub

 

ممكن شرح الكود للاهميه