جلب آخر سعر بيع صنف في فاتورة

[رامي قلعجية]

سلام عليكم 

لو سمحتم عندي صفحة فاتورة برحل منها الى صفحة المبيعات وعندي صفحة استعلام بستدعي فيها من صفحة المبيعات. المشكلة عاوز لما اعدل صنف في صفحة استعلام المبيعات يرحل الى صفحة المبيعات  بس الكود مش راض يشتغل معاي وخبرتي قليلة جدا بالاكواد يا ريت حد يساعدني 

 

fatoura.rar

[الـعيدروس]

وعليكم السلام

برجاء اعادة رفع الملف لم استطيع فتحه يظهر رسالة بأنه للقراءه فقط

[رامي قلعجية]

9 ساعات مضت, الـعيدروس said:

وعليكم السلام

برجاء اعادة رفع الملف لم استطيع فتحه يظهر رسالة بأنه للقراءه فقط

 

15 ساعات مضت, ramikalaajieh.rk said:

سلام عليكم 

لو سمحتم عندي صفحة فاتورة برحل منها الى صفحة المبيعات وعندي صفحة استعلام بستدعي فيها من صفحة المبيعات. المشكلة عاوز لما اعدل صنف في صفحة استعلام المبيعات يرحل الى صفحة المبيعات  بس الكود مش راض يشتغل معاي وخبرتي قليلة جدا بالاكواد يا ريت حد يساعدني 

 

fatoura.rar 270.33 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads

 

fatoura.rar

اخي الكريم رفعت الملف مرة ثانية

 

[رامي قلعجية]

لو سمحتم اعطونا من ما علمكم الله

[الـعيدروس]

السلام عليكم

هذا تعدل على الكود

mmmmmmmmmta3rif_cod

 بإستخدام النسخ واللصق ان شاء الله يفي بالغرض

Sub mmmmmmmmmta3rif_cod() ' مربوط بالفيلكوأب الي في سطر 9 في صفحة استعلام المبيعات
Application.ScreenUpdating = False ' للتسريع
Application.EnableEvents = False ' للتسريع
Application.Calculation = xlCalculationManual ' للتسريع
Sheets("استعلام_المبيعات").Unprotect "" ' فك الحماية
Sheets("المبيعات").Unprotect "" ' فك الحماية
Dim Sh As Worksheet
Dim Sh1 As Worksheet
Dim Mx, i, Rr, Z, ii
Dim Nu, Cu, r_o, r, Lr
Dim Rn As Range
Set Sh = Sheets("المبيعات"): Set Sh1 = Sheets("استعلام_المبيعات")
Mx = Application.WorksheetFunction.CountA([I11:I5000])
Nu = Sh1.[i11]
If Mx = 0 Then Exit Sub
If Sh1.[i2] = "" Then MsgBox "حقل رقم الفاتورة فارغ !!", vbExclamation, "تنبية !!!": Exit Sub
Lr = Sh.Cells(Sh.Rows.Count, "I").End(xlUp).Row
For i = 2 To Lr
    r = Sh.Cells(i, "i")
    If r = Nu Then
       ii = ii + 1
       If ii = 1 Then r_o = Sh.Cells(i, "i").Row
       Cu = Application.CountIf(Sh.Range("I2:I" & Lr), Nu)
       If Cu = Mx Then
            Sh1.Range("A11:J" & Sh1.Cells(Sh1.Rows.Count, "I").End(xlUp).Row).Copy
            Sh.Range("A" & r_o).PasteSpecial xlPasteValues
            Application.CutCopyMode = False
            Exit For
          Else
              For Rr = r_o To r_o + Cu
                If Rn Is Nothing Then
                   Set Rn = Sh.Range("A" & Rr)
                   Else
                   Set Rn = Union(Rn, Sh.Range("A" & Rr))
                End If
              Next Rr
              Lr = Sh1.Cells(Sh1.Rows.Count, "I").End(xlUp).Row
            If Mx > Cu Then
               Rn.EntireRow.Delete
                Z = Mx - Cu
                Sh.Rows(r_o & ":" & r_o + Z).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                Sh1.Range("A11:J" & Lr).Copy
               Sh.Range("A" & r_o).PasteSpecial xlPasteValues: Application.CutCopyMode = False
              Exit For
              Else
               Rn.EntireRow.Delete
                Z = Cu - Mx
                Sh.Rows(r_o & ":" & r_o + Z).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                Sh1.Range("A11:J" & Lr).Copy
               Sh.Range("A" & r_o).PasteSpecial xlPasteValues: Application.CutCopyMode = False
              Exit For
            End If
       End If
    End If
Next i
Application.ScreenUpdating = True ' للتسريع
Application.EnableEvents = True ' للتسريع
Application.Calculation = xlCalculationAutomatic ' للتسريع
End Sub

وان لديك استفسارات اطرحها ولن يقصر معك الجميع

تحياتي

[رامي قلعجية]

الله يبارك فيك اخي الحبيب 

لح جرب الكود وبرد خبر شكرا ليك

جعله الله في ميزان حسناتك

[رامي قلعجية]

رااااااائع حللت لي مشكلة الها بتواجهني اكتر من شهر تسلم ايديك الله يحفظلك عيلتك ويزيدك من علمه حتى ينفع الناس 

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

وياريت مسج بوكس تم الترحيل بنجاح 

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

fatoura1.rar

[رامي قلعجية]

والله مبدع ما عما اشبع من الكود 🤩😙

[الـعيدروس]

السلام عليكم

 ان وجدت الوقت اليوم اعمل عليه او غداً

اتمنى تغير اسمك في البروفايل الى عربي

 تحياتي لك 

[رامي قلعجية]

ماشي ان شاء الله 

الله يبارك فيك هلا بغيرو

المجموع الجديد لح يكون بصفحة كشف حساب 

لكل الفاتورة 

اما في الترحيل الى المبيعات حيكون المجموع فقط للصنف الي تم تعديله

اتمنى اكون وصلت الفكرة صح وشكرا ليك سلفا 

تم تعديل أبريل 21, 2019 بواسطه رامي قلعجية

[الـعيدروس]

السلام عليكم

مشكور على كلماتك الطيبه

جرب المرفق امل ان يفي بالغرض

 

fatoura2.rar

[رامي قلعجية]

الله يبارك فيك لح جربو ورد خبر ان شاء الله

[رامي قلعجية]

اعجز عن شكري لك انت انسان رائع لكل معنى للكلمة

رائع اخي الكريم وهذا هو المطلوب اشكرك من كل قلبي 

وجزاك الله كل خير 😚😚😚

[رامي قلعجية]

ظهرت لي مشكلة 

لا يتم تعديل المجموع للصنف في صفحة المبيعات

[رامي قلعجية]

يبدو ان الخطأ من عندي 

اسف جدا 

لقد اشتغل الكود في صفحة المبيعات 

لا اعلم ما سبب توقفه حين جربته. 

سؤال هل الدوال الموجودة في سطر رقم 9 بصفحة استعلام المبيعات

لها فائدة ام احزفها 

تم تعديل أبريل 22, 2019 بواسطه رامي قلعجية

[الـعيدروس]

Quote

سؤال هل الدوال الموجودة في سطر رقم 9 بصفحة استعلام المبيعات

لها فائدة ام احزفها

لم استخدمها بإمكانك مسحها اذا ماتستخدمها

[رامي قلعجية]

شكرا لك اخي وحبيب اعزك الله بدينه دين محمد صلى الله عليه وسلم واكثر من امثالك ليعم الخير بين الناس 

اكتفي بهذا لانه مهما شكرتك لا اكفيك حقك 

السلام عليكم 

[رامي قلعجية]

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

عندي ملف به صفحة فاتورة وصفحة المبيعات

اريد ان اتي باخر سعر تم احتسابه للزبون من صفحة المبيعات عند كتابة كود الصنف مع اسم الزبون يأتي لي باخر سعر بعته. 

اريد النتيجة تبدا في E7 بصفحة فاتورة 

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

يصعب علي فعل ذالك ارجو ان لا اكون قد بالغت بطلبي

شكرا سلفا 

fatoura2.rar

تم تعديل أبريل 23, 2019 بواسطه رامي قلعجية

[رامي قلعجية]

اخي العيدروس السلام عليكم ورحمة الله

اضفت موضوع عشان نفس الملف بس ما حبيت يكون هون عشان غير الي طالبو بالعنوان لو امكن تساعدني بالحل بتكون فضلت عليي 

عنوان الموضوع 

كود اخر سعر بيع ارجو المساعدة

تم تعديل أبريل 24, 2019 بواسطه رامي قلعجية

[رامي قلعجية]

السلام عليكم 

ساعدوني جزاكم الله خيرا

[رامي قلعجية]

رجائا وليس امرا ساعدوني

[بن علية حاجي]

السلام عليكم ورحمة الله

الملف به خلل ولا يفتح معي...

بن علية حاجي

[رامي قلعجية]

عندي شيت فاتورة وشيت برحل عليه المبيعات واسمو المبيعات

عاوز لما اكتب كود الصنف في صفحة الفاتورة  يجبلي اخر سعر انا بعتو بشرط يكون مربوط مع اسم الزبون 

المعادلة في عامود  N       

fatoura3.rar fatoura3.rar

تم تعديل أبريل 27, 2019 بواسطه رامي قلعجية
رفعت الملف مرة ثانية اخي الكريم

[Ali Mohamed Ali]

تفضل

 

fatoura2.xlsm

[رامي قلعجية]

شكرا جزيييييلا اخ علي وعل ردك السريع 

سؤال هل يمكن تطبيق المعادلة بالكود وتكون النتيجة بعمود E بدل من N

تم تعديل أبريل 27, 2019 بواسطه رامي قلعجية