تعديل على ملف للجرد المخزني

[زياد الحسناوي]

السلام عليكم 

الملف يحتوي على معلومات للجرد المخزني الخاص بالمحل

المطلوب 

ورقة عمل اسمها الوصل عند كتابة اسم المادة و العدد (الكمية)

يوجد في ورقة عمل (الجرد المخزني) الكمية المتوفرة من المادة 

 

فاذا كان الكمية المتبقة 0 تظهر رسالة تحذيرية بان المادة لا توجد داخل المخزن

واذا كانت متوفرة فيقوم بانقاص الكمية من المتبقي و وضع الكمية التي تم تسجيلها بالوصل بعمود حجوزات 

 

وشكرا مقدما

الجرد.xlsx

[أبومروان]

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

تم عمل عمود مساعد هو" g " اذا كان اقل من صفر تظهر رساله

ارجو ان يكون المطلوب

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim cell As Range
    For Each cell In Range("g12:g22")
        If cell.Value <= 0 Then
            Do While MsgBox("Range contains zero or negative value", vbOKCancel) = vbOK
            Loop
        End If
    Next cell

End Sub

 

الجرد.xlsm

[زياد الحسناوي]

شكرا لك ولكن هذا ليس المطلوب 

لا اريد عمود اضافي 

ولكني عند كتابة العدد وليكن 1 وكان بالجرد المخزني 0 تظهر رسالة خطأ او تحذير 

وبعد ذلك في حالة وجود الصنف يتم انزال العدد من المتبقي ووضعه في عمود الحجوزات 

[حسونة حسين]

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

تفضل

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Dim X
    If (Target.Column = 5 And Target.Row > 11) Then
        X = Application.Match(Target.Offset(0, -2), Sheet2.Range("C1:C" & Sheet2.Cells(Rows.Count, "C").End(xlUp).Row), 0)
        If Target.Value > Sheet2.Range("K" & X) Then
            MsgBox "noooooooooooooooo"
            Target.Value = ""
        Else
            Sheet2.Cells(X, 9).Formula = "=" & Sheet2.Range("I" & X) & "+" & Target.Value
        End If
    End If
    Application.EnableEvents = True
End Sub

 

[زياد الحسناوي]

3 ساعات مضت, حسونة حسين said:

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

تفضل

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Dim X
    If (Target.Column = 5 And Target.Row > 11) Then
        X = Application.Match(Target.Offset(0, -2), Sheet2.Range("C1:C" & Sheet2.Cells(Rows.Count, "C").End(xlUp).Row), 0)
        If Target.Value > Sheet2.Range("K" & X) Then
            MsgBox "noooooooooooooooo"
            Target.Value = ""
        Else
            Sheet2.Cells(X, 9).Formula = "=" & Sheet2.Range("I" & X) & "+" & Target.Value
        End If
    End If
    Application.EnableEvents = True
End Sub

 

شكرا يالغالي

بس ممكن هذا الكود شنو عمله ووين اخلي بالضبط

[حسونة حسين]

يتم وضعه في حدث الورقه المسمار

الوصل

تضغط عليها كليك يمين ثم view code

ثم تنسخ الكود وتضعه بها

 

[كمال على طارق]

زياد الحسناوي         من فضلك قم بإختيار وتفعيل أفضل اجابة على رد أستاذنا الكبير حسونة حسين له منا كل المحبة والإحترام ؟!!!! وياريت يتم الضغط على علامة الإعجاب 💙 وذلك تقديراً لمن قام بحل مشكلتك وتقديم المساعدة لك !!

تم تعديل مارس 5, 2023 بواسطه كمال على طارق