احمد 505

السلام عليكم ورحمة الله وبركاته أعزائي الكرام أرجوا المساعدة في تعليمي طريقة نقل كود VBA من ورقة الى اخرى المطلوب 1- اريد شرح الطريقة التي تمكنني من نقل الكود. 2- الكود الذى بالمرفق يبدء من العمود B الصف الثاني.. 3- انا اريده أن يبدء مثلاً من AI الصف 92. 4- هل يمكن تفعيل الكود على الصفوف الباقية بطريقة السحب (يعني انا اريد استخدام الكود من الصف 92 الى الصف 1800) أم ان الكود يعمل تلقائي على كامل الورقة. 5- لماذا العمودين A+B تتكرر في العمودين التاليين C+D. 6- ازالة التكرار مع الاحتفاض بالخمس النتائج. 7- هل يمكن ان احتفض بأكثر من خمس نتائج ( 10 مثلاً ). 8- ما الفائدة من العمودين N+O ( ارجوا الغائها ) 9- هل يمكن ان يعوض الكود بمعادلة. اشكركم جميعاً A2.rar

هل من مجيب رجائاً

السلام عليكم ورحمة الله وبركاته ما شاء الله تبارك الله الصراحة دروس مفيدة جداً جداً جداً والله لم انتبه لهذه الدروس قبل هذا اليوم وقد قررت ان ابداء من الصفر لقد طرحت سؤال في المنتدى للأكسل وتفاجئت بعدم الاجابة فكررت السؤال بصيغة ثانية بعد اسبوع ولم يجيبني احد الصراحة انني تضايقت من عدم الرد ولكن بحثت في المنتدى بالصدفة ووجدت هذه الدروس القيمة وقد قمت بتحميلها كاملة وعرفت عدم إجابتي ( لان السؤال كان في المكان الغير صحيح ) الحقيقة أن الاستاذ ابو حنين قد قام مشكورا بإجابة سؤالٍ لي منذ فتره وقد استخدمت الورقة والكود وكانت فعالة جداً ولكن عندما اردت ان انقلها الى قاعدة البيانات التي استخدمها لم استطع ذلك لعدم معرفتي ( كيف اعدل على الكود ) الكود يبداء من العمود A وأنا اريد أن أستخدمه من العمود AI والصف 92 مع بعض التعديلات المرفقة أرجوا النظر في المرفق والمساعدة في التغيير مع القليل من الشرح أشكرك جزيل الشكر A2.rar

ياحماعة ما يصير كذا والا رد

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

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Or Target.Column = 3 Then If CStr(Cells(Target.Row, 3)) = CStr(Cells(Target.Row, 15)) Then Exit Sub Else Application.DisplayAlerts = False Range(Cells(Target.Row, 2), Cells(Target.Row, 9)).Copy Cells(Target.Row, 4) Range(Cells(Target.Row, 12), Cells(Target.Row, 15)).ClearContents End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 2 Or Target.Column = 3 Then Cells(Target.Row, 14).Value = Cells(Target.Row, 2).Value Cells(Target.Row, 15).Value = Cells(Target.Row, 3).Value End If End Sub احبابي هذا الكود الموجود عندي واريد ان اعرف كيف اغيره بحيث يتوافق مع الاعمدة التي اريد ان انقله اليها

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

السلام عليكم أعزائي ارجوا المساعدة في نقل الكود المرفق الذي قام بمعله الاستاذ/ ابو حنين 1 اريد الطريقة في نقل محتويات الورقه المرفقة بالكود الى ورقة ثانية ( قاعدة بياناتي ) 2- الكود بالمرفق يبداء من العمود B 3- أنا اريد ان اغير العمود ليتماشى مع قاعدة البيانات حسب الترتيب 4- لماذا العمودين A+B تتكرر في العمودين التاليين ( اريد الاحتفاض بالخمس نتائج ولكن دون التكرار ) 5- هل بالامكان تعديل الكود الى معادلة (وتعطي نفس نتائج الكود اشكركم A2.rar

يا قوم اين انتم أبو حنين وينك يالحبيب انقذني من هالورطة

لا أصدق هذا الصمت

أخي الكريم أشكرك عى اهتمامك ومحاولتك الطيبة صحييح طريقتك جداً ممتازة وسوف استخدمها في نموذج أخر الانها ستفيدني ولكن للأسف الطريقة التي ابحث عنها تختلف 1- اريد نفس الورقة التي رفعتها في سؤالي كما هي ( لان طريقتها ممتازة وهي المطلوبة ) لانني اكتب في اول خانتين فقط ( وعند ادخال معلومات جديدية في نفس الخانتين تنتقل المعلومات السابقة الى الخانتين التي تليها ) لكي تكون كمرجع في المستقبل 2- اريد عدم تكرار معلومات الخانتين B+C مع الخانتين التي تليها 3- اريد اذا بالامكان استخدام معادلة بدلاً من الكود 4- اريد الطريقة لنقلها الى قاعدة البيانات تبعي اشكرك

يا جماعة ما فيه حل يعني

السلام عليكم أعزائي وأحبابي في هذا المنتدى المتميز لقد قام الأخ والأستاذ / أبو حنين بمساعدتي في هذا المرفق بطريقة الكود وأشكره على ذلك كل الشكر ولكن عندما اردت أن أنقل أو أنسخ الكود الى قاعدة البيانات لم استطيع ولا أعرف كيف أغير في الكود لجهلي بالتعامل مع الأكواد المطلوب أعزائي موجود بالمرفق ولكم مني جزيل الشكر A2.rar

بارك الله فيك اخي سليم هذا هو المطلوب بالقعل اشكرك

اخي سليم اسعد الله صباحك بكل خير مجهود جباار وتشكر عليه بارك الله فيك ولكن انا اقصد انك تحط عمودين لكل يوم مثلاً يوم الاحد عمودين B + A A يكون للأرقام من 1 الى 5 B يكون للملاحظة امام الارقام وكذلك في كل الايام اشكرك Monthly Plan 1.rar

اسف جدا رفعت السؤال ووبدون المرفق Monthly Plan 1.rar

الاستاذ سليم حاصبيا السلام عليكم بارك الله فيك انا سؤالت سؤال وانت جاوبتني بالملف المرفق وكان كافي لما طلبت وزيادة ولكن استاذي الكريم أنا اريد ان كل يوم يكون فيه 5 او 6 ارقام وانا حاولت اعمل ادراج ودمج ولكن مانفع المعادلات خربت المطلوب كل خانة فييها من 1 الى 6 ولكن في عمود لحاله عشان سهولة الكتابه امامها في الخانة المقابله بدون ما اضطر اكتبها كل مرة اشكرك

أخي سليم السلام عليكم ورحمة الله وبركاته معليش عزيزي لو سمحت اريد اضافة بسيطة على الجدول اريد الاعداد من 1 الى 5 في كل يوم تكون في عمود لحاله يعني يوم الاحد مثلاً اريد الاعداد في خانه والخانة الثانية اكتب فيها الملاحضة وكذلك باقي الايام انا حاولت اعمل ادراج لكن المعادلة تعطلت اشكرك Monthly Plan 1.rar

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

الاخ / سليم حاصبيا الصراحة مجهود جبار ورائع وهذا ما كنت ابحث عنه فعلاً روعه بكل المقاييس وانصح الجميع به كتب الله لك الاجر ونفعك بعلمك لتنفع غيرك اشكرك يالحبيب

اشكرك اخي ابو عيد مجهود تشكر عليه وكتب الله لك الاجر

السلام عليكم ورحمة الله وبركاته اعزاء الكرام عندي جدول الاعمال الشهري كل يوم فيه عدة اعمال ولكن اظطر كل شهر اغير الرقم من 1 الى 31 للأيام يدوياً السؤال هل يوجد طريقة بحيث اذا كان اول يوم في الشهر هو يوم الثلاثاء اروح لخانة يوم الثلاثاء واكتب فيه رقم 1 وبالتالي تترقم باقي الايام الى نهاية الشهر تلقائياً والشهر التالي مثلا اول يوم يكون يوم الجمعة اكتب الرقم 1 في خانة الجمعة وتلقائياً يتم الترقيم الى 31 اشكركم Monthly Plan.rar

اشكرك يالحبيب

السلام عليكم ورحمة الله وبركاته اعزائي الكرام عندي مشكلة بالمرفق ارجوا المساعدة اشكركم Due.rar

لا رد يمكن سؤالي طريقته خطاء الله العالم