محمد عدنان

السلام عليكم الاستاذ @كريم نظيم جزاك الله كل خير لكن الكود لا يعمل الاستاذ @أبوأحـمـد بارك الله فيك و رحم الله والديك الكود يعمل جيدا

السلام عليكم و رحمة الله و بركاته ارجو المساعدة في الكود التالي الذي يقوم بحذف صف يحتوي على خلية مؤمنة بكلمة سر او كود اخر يقوم بحذف الصف المؤمن و جزاكم الله خير Dim x As Long Dim y As Long x = Sheets("الجرد ").Range("B" & Rows.Count).End(xlUp).Row For y = 2 To x If Sheets("الجرد ").Cells(y, 2).Text = TextBox1.Value Then Rows(y).Delete shift:=xlUp End If Next y MsgBox ("تم حذف المادة" & " " & TextBox5.Value), vbCritical

السلام عليكم اخ @أبوأحـمـد جزاك الله كل خير الكود يعمل و بارك الله لك و جزاك الله خير على سعة صدرك

السلام عليكم و رحمة الله و بركاته ارجو المساعدة بماكرو يقوم بترحيل من صفحة الجرد الى النموذج المالي بشرط ان يرحل كل القيم الموجودة في العمود 18 عمود المبيعات من صفحة الجرد التي قيمتها اكبر من صفر الى النموذج المالي علما ان كل صفحة تتسع ل 15 سطر اي اذا كان الترحيل 16 سطر يكون 15 على صفحة و الاخير يبدأ من الصفحة الثانية و جزاكم الله كل خير من صفحة الجرد يرحل رقم صفحة السجل و اسم الكتاب و الجزء و الصف و العدد المباع و السعر الافرادي و الاجمالي الى صفحة النموذج المالي بشرط ان قيم المبيعات في صفحة الجرد اكبر من صفر test2024.xlsb

بارك الله لك في علمك و جزاك الله كل خير استاذ @أبوأحـمـد

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

السلام عليكم ورحمة الله و بركاته ارجو المساعدة في الملف المرفق بماكرو عند اختيار كلمة اتلاف من القائمة المسدلة في العمود A يقوم بترحيل بيانات السجل من صفحة الجرد الى صفحة الاتلاف حسب الاعمدة المحددة ثم يقوم بحذف السجل نفسه من صفحة الجرد دون التاثير على المعادلات و اعادة الترقيم و بارك الله لكم و جزاكم كل خير test2024.xls

السلام عليكم الاستاذ @alliiia اشكر اهتمامك الحل الذي ذكرته اعرفة و لكن عتد نقل الملف الى جهاز في مكان اخر لا املك الصلاحية او الاذت لتغيير صيغة الارقام انا بحاجة لماكرو يقوم بتغيير الارقام لملفي دون تغيير ارقام الجهاز الحاسوب حل الاستاذ @lionheart حول الارقام مثل ما هو مطلوب لكم التكستبوكس التي تحتوي اسماء تظهر على شكل نقط

السلام عليكم الاستاذ الكبير @lionheart بارك الله فيك و جزاك الله كل خير الكود يعمل على جميع التكست بوك التي تحتوي على ارقام و لكن التكست بوكس التي تحتوي على اسماء يظهر على شكل نقاط كما في الصورة المرفقة

السلام عليكم اخ @كريم نظيم جزاك الله خير لكن الكود الي في اعلى لم يعمل و ذلك عند نسح الكود الارقام العربية تتحول الى ؟ علامة

السلام عليكم و رحمة الله و بركاته ارجو المساعدة بماكرو يجبر الفورم باظهار الارقام الموجودة في التكس بوك جميعها 1و2و3و4 الى الارقام العربية دون الحاجة الى الذهاب الى كنترول بانل و اللغات مرفق صورة الى الارقام الانجلزية بحاجة الى تحول الى ارقام الهندية و شكرا mark.xlsm

السلام عليكم و رحمة الله و بركاته ارجو المساعدة بكود CheckBox يقوم باظهار اسم المادة و علامة الفصل الاول و الثاني اذا كان في داخله اشارة الصح و يقوم باخفاء اسم المادة و علامة الفصل الاول و الثاني و المعدل اذا لم يكن الصح موجود في CheckBox1 الملف مرفق و جزاكم الله كل خير formmark.xlsx

اخ @alliiia بارك الله فيك لكن مقيد بالنموذج و هو لطلاب و شكر لك

السلام عليكم اخ @alliiia بارك الله بك بالتسبة للرنامج لست مبرمج لاعرف كيفية كتابة كود لتطويره اما بالنسبة لسؤالك اذا انتهى الشهر ؟ الاجابة هي ان الترحيل يكون شهري لجميع البنانات بناء على الشهر او التاريخ او نهاية السنة بزر واحد يقوم بالترحيل مع الانتباه الى رقم الصفحة حيث ان تكملة الشهر يكون بالصفحة التي بعدها حسب ترقيم الصفحات ثم طباعة الكتيب ؟ بارك الله لكم اعضاء المنتدي ارجو المساعدة لشخص لا يتقن البرمجة

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

السلام عليكم للرفع و المساعدة بالماكرو لانه صعب علي و جزاكم الله كل خير

السلام عليكم و رحمة الله و بركاته ارجو المساعدة بماكرو يقوم بترحيل حرف غ من شيت خلاصة الغياب الى شيت دفتر الغياب يعتمد تسلسل الطالب في صفحة الغياب اليومي في دفتر الغياب و ليس الاسم مع الانتباه ان دفتر الغياب يبدأ من شهر اب 8 و يكون الترحيل حرف غ حسب تاريخ الغياب و باقي ايام الحضور تضع اشارة "/ " مع الانتباه الى ترقيم الصفحات عند الترحيل و جزاكم الله كل خير ملاحظة جميع الاكواد بالملف تم اقتباسها من الجروب و جزى الله كل من كتبها وفي ميزان حسناتهم asbbook.xlsm

السلام عليكم اعتذر اخ @lionheart وبارك الله بجهدك و جزاك الله الجنة

بارك الله بك اخ @lionheart في ميزان حستاتك

السلام عليكم اخ @lionheart ما الفرق بين السطرين سوى حذف جملة IF لم يعمل الكود بارك الله فيك

اخ @lionheart ظهرت مشكلة عند استبدال السنة 2023 ب سنة 2024 يظهر فرقية في شهر 12

بارك الله فيك اخ @lionheart و جزاك الله كل خير هل بلامكان من خلال الكود يظلل يوم الجمعة و السبت و جزاك الله كل خير في ميزان حسناتك

لتكن الخلايا فوق اسم الطالب B1 B2

السلام عليكم اخ @lionheart الخلية C4 اليوم مثل السبت الاحد ...... و c5 التاريخ مثل 1/1/2023 >>2/1/2023 3/1/2023 >>>> الى نهاية السنة 31/12/2023 و الخلية l2 تقوم بعرض الشهر و اخفاء الاشهر الاخرى

السلام عليكم و رحمة الله و بركاته تقبل الله صياكم ارجو المساعدة بماكرو يقوم عند اختيار السنة من الخلية l1 يقوم بنعبئة التاريخ في الخلية c5 و c4 اليوم من بداية العام الى اخره مثال اذا تم اختيار السنة 2023 يقوم بتعبئة من 1/1/2023 , لغاية نهاية السنة 31/12/2023 و عتد اختيار الشهر من الخلية L2 يقوم باظهار اعمدة الشهر المختار و اخفاء جميع الاشهر الاخري و جزاكم الله كل خير absss.xlsm