اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by احمد عبدالحليم,

الردود الموصى بها

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

 

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

تم تعديل بواسطه mahmoud nasr alhasany
رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

قكت بتعديل كود 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

  • Like 3
رابط هذا التعليق
شارك

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 حيث أنه المصدر الرئيسي للاصناف ويتم وضع رصيد اول المده الفعلي والرصيد الحالي وان لم يكن للصنف رصيد يتم وضع صفر 

تقبل تحياتى

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

يتم الالغاء

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

Compress_٢٠٢٤٠٣١٣_١٤٤٣٤٧_7907.jpg

Compress_٢٠٢٤٠٣١٣_١٤٣٨٣٤_4008.jpg

تم تعديل بواسطه 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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information