أب مارية

السلام عليكم أخي أبو حنين لقد تم حذف الزر O.Vents الموجود في الورقة الأولى وأرجو التوضيح لكيفية الحذف في الفورم الجديد مشكور

للرفع

بارك الله فيك أخي أبو حنين أسال من جلت قدرته وعلا شأنه وعمت رحمته وعم فضله وتوافرت نعمه أن لا يرد لك دعوة ولا يحرمك فضله وان يغدق عليك رزقه ولا يحرمك من كرمه وينزل في كل أمر لك بركته ولا يستثنيك من رحمته لقد قمت تطبيق الكود على مشروع لي لكن قمت باستبدال الأرقام بالتاريخ في العمود A داخل الورقة الأولى وبعد القيام بحذف أي سطر فيقوم بخربطة في العمود A و يغير الكمية في كل من العمودين D و G ملاحظة: للقيام بحذف السطور اضغط على الزر الأحمر في الورقة الأولى ثم على Supprimer تم تعديل الملف المرفق 2n2014 هو الملف الصحيح 2n2014.rar

اخي الكريم ابو حنين لقد قمت بتعديل بعض تفاصيل الجدول واضافة أعمدة اخرى مما انجر عليه مشكل أسفل الجدول في الصفحة الأولى فارجو لو تكرمت تعديل الكود ولك مني الف تحية وتقدير Book1-Delete Row.rar

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

ارجو المساعدة مشكل في الجدول بعد حذف اي سطر بسبب خطا في الكود Book1-Delete Row.rar

بعد تطبيق بعض التعديلات بقي هناك مشكل فأرجو المساعدة Book1-Delete Row.rar

لقد قمت بالتعديل على كود الاخ ابو حنين وارجو التصحيح Dim LRR As Long, LR As Long Dim Bb '---------------------------------------------------------------------------------------------- LRR = Sheets("Sheet2").Cells(Rows.Count, 3).End(xlUp).Row LR = Cells(Rows.Count, "a").End(xlUp).Row '---------------------------------------------------------------------------------------------- If Application.Intersect(Range("A2:C" & LR), ActiveCell) Is Nothing Then GoTo 1 '---------------------------------------------------------------------------------------------- ActiveRow = ActiveCell.Row If MsgBox("SUPPRIMER", vbCritical + _ vbMsgBoxRight + vbYesNo, "SUP") = vbNo Then Exit Sub '---------------------------------------------------------------------------------------------- For Each Bb In Sheets("Sheet2").Range("B2:B" & LRR) If Bb = Cells(ActiveCell.Row, 2) Then Bb.Offset(0, 2) = Val(Bb.Offset(0, 1)) + Val(Cells(ActiveCell.Row, 2).Offset(0, 1)) Next '---------------------------------------------------------------------------------------------- Sheets("Sheet1").Range(Cells(ActiveRow, 1), Cells(ActiveRow, 3)).Delete MsgBox "SUPPRIMER ", vbInformation + vbMsgBoxRight, "OK" Sheets("Sheet1").Range("A2") = 1: Sheets("Sheet1").Range("A3") = 2 Sheets("Sheet1").Range("A2:A3").AutoFill Destination:=Range("A2:A" & LR - 1), Type:=xlFillDefault Exit Sub '---------------------------------------------------------------------------------------------- 1 MsgBox "?????? ??????? ???? ???? ?????? .", vbExclamation, "???" '----------------------------------------------------------------------------------------------

هل المطلوب يحتاج إلى معادلات معقدة أم ماذا؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ظظ

للرفع

للرفع

لو أضفنا بعض التعقيد للملف بحيث يكون الجدول به خانا اضافية مثلا سعر الوحدة وعدد الوحدات والمجموع وأردنا هنا عند حذف عملية في صفحة الـVents فماهو الكود اللازم تطبيقه بحيث يقوم باضافة عدد الوحدات المحذوفة في صفحة Vents إلى عدد الوحدات في صفحة Stocks أي أنه يقتصر في هذه الحالة على ارجاع عدد الوحدات دون المجموع

مشكور أخي أبو حنين أسأل الله أن أن ينور دربك ويجعلك ذخرا للاسلام والمسلمين

تسلم أخي ابو حنين على العمل لكن نريد اضافة قيمة السطر المحذوف الى القيمة التي تقابلها فقط وليس كل الاسطر

للرفع

اخي حمادة بارك الله فيك على العمل سؤال ثاتي في المرفق نريد عند حذف أي صف في الجدول الاول ادراج كود يقوم باضافة القيمة الموجودة في العمود C في الجدول الاول إلى القيمة المقابلة لها في الجدول الثاني في الورقة الثانية Book1-Delete Row.rar

مشكور اخي طلعت على العمل لو تكرمت بشرح الكود للافادة

السلام غليكم كيف يمكن ادراج كود لزر يتم من خلاله حذف السطور داخل جدول

السلام عليكم لدي مشكل لمم أجد له حل منذ مدة طويلة وهو كالتالي: لتكن لدينا صفحتان الأولى بها جدول به مجموعة من السلع مرقمة ومرتبة ترتيبا أبجديا وبها معلومات متعلقة بسعر الشراء وعدد الوحدات الفعلية بالمخزون وتاريخ الشراء إلى غير ذلكمن المعلومات والورقة الثانية عبارة عن يومية يدون بها ما تم بيعه خلال الشهر. هنا نريد ادراج زر تكون وظيفته حذف سطر من السطور في الورقة الثانية وهذا بعد تحديد السطر من خلال الضغط على أي خانة منه وفي نفس الوقت يقوم بارجاع الكمية المباعة إلى المخزون في الورقة الأولى. أرجو المساعدة

للرفع

آسف الملف المرفق Projet.rar

السلام عليكم الاخوة الكرام أخي ابو حنين مشكور على الابداع وارجوا المساعدة فلدي مشكل في الملف المرفق وهو متعلق بحذف عملية بيع معينة وهذا من خلال الضغط على زر O.Vente وبعدها الضغط على زر Supprimer فيقوم بحذف السطؤ المتعلق بنلك العملية وفي نفس الوقت ادراج كود يقوم بارجاع عدد الوحدات المباعة إلى المخازن غب ورقة Stocks. ولك مني فائق التقدير والاحترام.

مشكور أخي البروفسير على الاهتمام والله يكون في عونك وأنا في انتظار ردك

للرفع

أخي الحبيب أبارك لك هاى الترقية وأسأل الله القدير أن يتم عليك نعمته وأن يجعلك ذخرا للاسلام والمسلمين وأن يجعل اهتمامك ومساعدتك في هذا المنتدى في ميزان حسناتك... إلى الأمام