رامي قلعجية قام بنشر أبريل 19, 2019 قام بنشر أبريل 19, 2019 سلام عليكم لو سمحتم عندي صفحة فاتورة برحل منها الى صفحة المبيعات وعندي صفحة استعلام بستدعي فيها من صفحة المبيعات. المشكلة عاوز لما اعدل صنف في صفحة استعلام المبيعات يرحل الى صفحة المبيعات بس الكود مش راض يشتغل معاي وخبرتي قليلة جدا بالاكواد يا ريت حد يساعدني fatoura.rar
الـعيدروس قام بنشر أبريل 20, 2019 قام بنشر أبريل 20, 2019 وعليكم السلام برجاء اعادة رفع الملف لم استطيع فتحه يظهر رسالة بأنه للقراءه فقط
رامي قلعجية قام بنشر أبريل 20, 2019 الكاتب قام بنشر أبريل 20, 2019 9 ساعات مضت, الـعيدروس said: وعليكم السلام برجاء اعادة رفع الملف لم استطيع فتحه يظهر رسالة بأنه للقراءه فقط 15 ساعات مضت, ramikalaajieh.rk said: سلام عليكم لو سمحتم عندي صفحة فاتورة برحل منها الى صفحة المبيعات وعندي صفحة استعلام بستدعي فيها من صفحة المبيعات. المشكلة عاوز لما اعدل صنف في صفحة استعلام المبيعات يرحل الى صفحة المبيعات بس الكود مش راض يشتغل معاي وخبرتي قليلة جدا بالاكواد يا ريت حد يساعدني fatoura.rar 270.33 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads fatoura.rar اخي الكريم رفعت الملف مرة ثانية
الـعيدروس قام بنشر أبريل 21, 2019 قام بنشر أبريل 21, 2019 السلام عليكم هذا تعدل على الكود 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 وان لديك استفسارات اطرحها ولن يقصر معك الجميع تحياتي 1 1
رامي قلعجية قام بنشر أبريل 21, 2019 الكاتب قام بنشر أبريل 21, 2019 الله يبارك فيك اخي الحبيب لح جرب الكود وبرد خبر شكرا ليك جعله الله في ميزان حسناتك
رامي قلعجية قام بنشر أبريل 21, 2019 الكاتب قام بنشر أبريل 21, 2019 رااااااائع حللت لي مشكلة الها بتواجهني اكتر من شهر تسلم ايديك الله يحفظلك عيلتك ويزيدك من علمه حتى ينفع الناس لي عندك طلب عند تعديل العدد في صفحة استعلام المبيعات وترحيله عاوز يضرب العدد بالسعر ويحطو بصفحة المبيعات لما يرحلها وبنفس الوقت يرحل المجموع الجديد الى صفحة كشف حساب حسب الاسم وياريت مسج بوكس تم الترحيل بنجاح اذا امكن ذالك ولك كل التقدير fatoura1.rar
رامي قلعجية قام بنشر أبريل 21, 2019 الكاتب قام بنشر أبريل 21, 2019 والله مبدع ما عما اشبع من الكود 🤩😙
الـعيدروس قام بنشر أبريل 21, 2019 قام بنشر أبريل 21, 2019 السلام عليكم ان وجدت الوقت اليوم اعمل عليه او غداً اتمنى تغير اسمك في البروفايل الى عربي تحياتي لك
رامي قلعجية قام بنشر أبريل 21, 2019 الكاتب قام بنشر أبريل 21, 2019 (معدل) ماشي ان شاء الله الله يبارك فيك هلا بغيرو المجموع الجديد لح يكون بصفحة كشف حساب لكل الفاتورة اما في الترحيل الى المبيعات حيكون المجموع فقط للصنف الي تم تعديله اتمنى اكون وصلت الفكرة صح وشكرا ليك سلفا تم تعديل أبريل 21, 2019 بواسطه رامي قلعجية
الـعيدروس قام بنشر أبريل 21, 2019 قام بنشر أبريل 21, 2019 السلام عليكم مشكور على كلماتك الطيبه جرب المرفق امل ان يفي بالغرض fatoura2.rar 1
رامي قلعجية قام بنشر أبريل 21, 2019 الكاتب قام بنشر أبريل 21, 2019 الله يبارك فيك لح جربو ورد خبر ان شاء الله
رامي قلعجية قام بنشر أبريل 22, 2019 الكاتب قام بنشر أبريل 22, 2019 اعجز عن شكري لك انت انسان رائع لكل معنى للكلمة رائع اخي الكريم وهذا هو المطلوب اشكرك من كل قلبي وجزاك الله كل خير 😚😚😚
رامي قلعجية قام بنشر أبريل 22, 2019 الكاتب قام بنشر أبريل 22, 2019 ظهرت لي مشكلة لا يتم تعديل المجموع للصنف في صفحة المبيعات
رامي قلعجية قام بنشر أبريل 22, 2019 الكاتب قام بنشر أبريل 22, 2019 (معدل) يبدو ان الخطأ من عندي اسف جدا لقد اشتغل الكود في صفحة المبيعات لا اعلم ما سبب توقفه حين جربته. سؤال هل الدوال الموجودة في سطر رقم 9 بصفحة استعلام المبيعات لها فائدة ام احزفها تم تعديل أبريل 22, 2019 بواسطه رامي قلعجية
الـعيدروس قام بنشر أبريل 22, 2019 قام بنشر أبريل 22, 2019 Quote سؤال هل الدوال الموجودة في سطر رقم 9 بصفحة استعلام المبيعات لها فائدة ام احزفها لم استخدمها بإمكانك مسحها اذا ماتستخدمها
رامي قلعجية قام بنشر أبريل 22, 2019 الكاتب قام بنشر أبريل 22, 2019 شكرا لك اخي وحبيب اعزك الله بدينه دين محمد صلى الله عليه وسلم واكثر من امثالك ليعم الخير بين الناس اكتفي بهذا لانه مهما شكرتك لا اكفيك حقك السلام عليكم
رامي قلعجية قام بنشر أبريل 23, 2019 الكاتب قام بنشر أبريل 23, 2019 (معدل) السلام عليكم ورحمة الله وبركاته عندي ملف به صفحة فاتورة وصفحة المبيعات اريد ان اتي باخر سعر تم احتسابه للزبون من صفحة المبيعات عند كتابة كود الصنف مع اسم الزبون يأتي لي باخر سعر بعته. اريد النتيجة تبدا في E7 بصفحة فاتورة تنبيه لو سمحتو ممكن يكون زبون جديد وليس له حركة في صفحة المبيعات عند ذالك اريده ان يعطيني القيمة من صفحة الاصناف عمود سعر البيع حسب كود الصنف يصعب علي فعل ذالك ارجو ان لا اكون قد بالغت بطلبي شكرا سلفا fatoura2.rar تم تعديل أبريل 23, 2019 بواسطه رامي قلعجية
رامي قلعجية قام بنشر أبريل 24, 2019 الكاتب قام بنشر أبريل 24, 2019 (معدل) اخي العيدروس السلام عليكم ورحمة الله اضفت موضوع عشان نفس الملف بس ما حبيت يكون هون عشان غير الي طالبو بالعنوان لو امكن تساعدني بالحل بتكون فضلت عليي عنوان الموضوع كود اخر سعر بيع ارجو المساعدة تم تعديل أبريل 24, 2019 بواسطه رامي قلعجية
رامي قلعجية قام بنشر أبريل 27, 2019 الكاتب قام بنشر أبريل 27, 2019 السلام عليكم ساعدوني جزاكم الله خيرا
بن علية حاجي قام بنشر أبريل 27, 2019 قام بنشر أبريل 27, 2019 السلام عليكم ورحمة الله الملف به خلل ولا يفتح معي... بن علية حاجي
رامي قلعجية قام بنشر أبريل 27, 2019 الكاتب قام بنشر أبريل 27, 2019 (معدل) عندي شيت فاتورة وشيت برحل عليه المبيعات واسمو المبيعات عاوز لما اكتب كود الصنف في صفحة الفاتورة يجبلي اخر سعر انا بعتو بشرط يكون مربوط مع اسم الزبون المعادلة في عامود N fatoura3.rar fatoura3.rar تم تعديل أبريل 27, 2019 بواسطه رامي قلعجية رفعت الملف مرة ثانية اخي الكريم
رامي قلعجية قام بنشر أبريل 27, 2019 الكاتب قام بنشر أبريل 27, 2019 (معدل) شكرا جزيييييلا اخ علي وعل ردك السريع سؤال هل يمكن تطبيق المعادلة بالكود وتكون النتيجة بعمود E بدل من N تم تعديل أبريل 27, 2019 بواسطه رامي قلعجية
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.