نقل الكمية بين المخازن

[mahmoud nasr alhasany]

صباح الخير
لقد قمت بتصميم برنامج مخازن
فكرة هذا البرنامج هي نقل الكمية بين المخازن
وقمت بتصدير البيانات إلى شيت Mvts
ومع ذلك، لا يقوم بتحديث أو نقل كمية المخزون بين المخازن. في شيت stock
هل من الممكن إنشاء كود ينقل الكمية بين المخازن ويقوم بتحديث المخزون

 

نقل المخزون بين المخازن.xlsm

تم تعديل مارس 9 بواسطه mahmoud nasr alhasany

[mahmoud nasr alhasany]

لو افترضنا ان يوجد كمية 20 كرتونة فى المخزن الرئيسى للمنتج 1  ويتم تحويل 5 كرتونة ليكون رصيد المخزن الرئيسى (15) كرتونة

اما المخزن 1 يوجد كمية 8 كرتونة للمنتج 1 وتم تحويل من المخزن الرئيسى 5 ليكون رصيد مخزن 1 (13) كرتونة

نقل او تحويل الاصناف من مخزن الى مخزن 
اي النقص من المخزن الاول والزيادة فى المخزن الثاني
ولكم مني جزيل الشكر والاحترام مقدما

[احمد عبدالحليم]

تفضل اخى جرب الملف

قكت بتعديل كود MajStkProv وكود  xx() لتاكيد الحصول على الرصيد الصحيح 

وتم اضافة هذا الكود الى كود التحويل او الحفظ 

Dim rng As Range
Dim cll As Range
Dim cll2 As Range
Dim lastRow As Long
    lastRow = ThisWorkbook.Sheets("Stock").Cells(Rows.Count, "A").End(xlUp).Row
    Set rng = ThisWorkbook.Sheets("Stock").Range("A4:A" & lastRow)

For Each cll In rng
    If cll.Value = Me.CB_Pièce.Text And cll.Offset(0, 11).Value = Me.ComboBox1.Value Then
        cll.Offset(0, 3).Value = Val(Me.stocktr.Value) - Val(Me.Quantitetr.Value)
        Exit For
    End If
Next cll
For Each cll2 In rng
    If cll2.Value = Me.CB_Pièce.Text And cll2.Offset(0, 11).Value = Me.ComboBox2.Value Then
        cll2.Offset(0, 3).Value = Val(Me.TextBox_Stock_Initial.Value) + Val(Me.Quantitetr.Value)
        Exit For
    End If
Next cll2

تقبل تحياتى

 

نقل المخزون بين المخازن.xlsm

[mahmoud nasr alhasany]

شكرا جزيلا لك ا/احمد عبدالحليم

على هذا الكود

ولك منا كل احترام وتقدير

شكرا لك على هذا الاهتمام

[احمد عبدالحليم]

شكرا اخى الفاضل @mahmoud nasr alhasany 

على كلماتك الطيبة 

[mahmoud nasr alhasany]

Sub ADDD()
  On Error Resume Next
Dim i As Integer, MyRow As Integer, ii As Integer, Abu_Ahmed As Boolean
Dim Sh_A As Worksheet
Dim AA As Integer
On Error Resume Next
Application.ScreenUpdating = False
For i = 4 To Sheets("Stock").Range("A1000").End(xlUp).Row
If ComboBox2 = Sheets("Stock").Cells(i, 12) And Val(CB_Pièce) = Sheets("Stock").Cells(i, 1) Then
MyRow = Sheets("Stock").Cells(i, 1).Row
Abu_Ahmed = True
GoTo 1
Exit For
End If
Next
1
If Abu_Ahmed = True Then
Else
If MsgBox("هذا الصنف لايوجد فى قواعد البيانات فى " & Me.ComboBox2, vbYesNo + vbQuestion) = vbYes Then
Else
'CB_Pièce = ""
ComboBox2 = ""
Exit Sub
End If
Hide
'Unload Me
UserForm9.Show
End If
Application.ScreenUpdating = True
End Sub

كل سنة وانتم طيبين بمنااسبة الشهر الكريم اعاده عليكم باليمن والبركات

يوجد سؤال

ملحوظة لا يوجد هذا الصنف 100 فى مخزن 5

عند اختيار من مخزن الرئيسى الى مخزن 5

تأتى الرسالة بان MsgBox("هذا الصنف لايوجد فى قواعد البيانات فى "

ولاكن عند اختيار الامر نعم تتكرر الرسالة

مالخطاء فى هذا الامر

f نقل المخزون بين المخازن 2026.xlsm

[احمد عبدالحليم]

عذرا أتصفح المنتدى من الهاتف

بما ان شئت stock هو يعتبر قاعده بيانات أضف الصنف 100 في مخزن 5 أيضا وضع رصيد اول المده صفر ورصيد الصنف الحالي صفر 

وهكذا مع باقي الأصناف  توضع كلها في شيت stock حيث أنه المصدر الرئيسي للاصناف ويتم وضع رصيد اول المده الفعلي والرصيد الحالي وان لم يكن للصنف رصيد يتم وضع صفر 

تقبل تحياتى

وكل عام وانت بخير وتقبل الله منا ومنكم صالح الاعمال 

[mahmoud nasr alhasany]

نعم انه بالفعل فى شيت stock

ولاكن المشكله ان الرسالة تتكرر واضيف صور لذلك

الرسالة الثانية لا اريدها ان تتكرر

يتم الالغاء

MsgBox("هذا الصنف لايوجد فى قواعد البيانات فى مخزن 5")
عندما اعطى الامر لا يأتى هذا الامر
MsgBox("هذا الصنف لايوجد فى قواعد البيانات فى")

تم تعديل مارس 13 بواسطه mahmoud nasr alhasany

[mahmoud nasr alhasany]

On Error Resume Next
Dim i As Integer, MyRow As Integer, ii As Integer, Abu_Ahmed As Boolean
Dim Sh_A As Worksheet
Dim AA As Integer
On Error Resume Next
Application.ScreenUpdating = False
For i = 4 To Sheets("Stock").Range("A1000").End(xlUp).Row
If ComboBox2 = Sheets("Stock").Cells(i, 12) And Val(CB_Pièce) = Sheets("Stock").Cells(i, 1) Then
MyRow = Sheets("Stock").Cells(i, 1).Row
Abu_Ahmed = True
GoTo 1
Exit For
End If
Next
1
If Abu_Ahmed = True Then
Else
If MsgBox("هذا الصنف لايوجد فى قواعد البيانات فى" & Me.ComboBox2, vbYesNo) = vbYes Then
If MsgBox("هل تريد المتابعة الى شاشة اضافة هذا الصنف الى المخزن", vbYesNo) = vbYes Then
UserForm9.Show
Else
TextBox_Stock_Initial.Value = "0"
MsgBox "هل تريد الالغاء"
Exit Sub
End If
End If
End If
Application.ScreenUpdating = True

تم اصلاح مشكلة الحدث