atob

اشكرك اخي رجب جزيل الشكر والله لا يحرمك الاجر

السلام عليكم ورحمة الله وبركاته في هذا الملف كود واريد التعديل عليه وهذا هو الكود Sub add() Dim iNx Dim Last As Long Dim myrange As Range ''''''''''''''''''''''' If Len(Trim(Range("C6"))) = 0 Then Exit Sub ''''''''''''''''''''''' iNx = Evaluate("MATCH(C6,myrange,0)") ''''''''''''''''''''''' Select Case IsError(iNx) Case True If MsgBox("åá ÊÑíÏ ÇÖÇÝÉ ÇáßÊÇÈ ÇáÌÏíÏ" & vbCr & Range("C6").Value, vbYesNo + vbMsgBoxRight) = vbYes Then Last = Sheets("m").Range("H" & Rows.Count).End(xlUp).Row + 1 Sheets("m").Range("H" & Last).Resize(1, 4).Value = Range("C6").Resize(1, 4).Value MsgBox "Êã ÈÍãÏ Çááå " End If ''''''''''''''' Case False If MsgBox("åá ÊÑíÏ ÇÖÇÝÉ ÇáÚÏÏ " & vbCr & Range("C6").Value, vbYesNo + vbMsgBoxRight) = vbYes Then Last = iNx Sheets("m").Range("J" & Last).Value = Val(Sheets("m").Range("J" & Last)) + Val(Range("E6")) MsgBox "Êã ÈÍãÏ Çááå " End If End Select End Sub وهذا الملف المرفق يوضح اكثر عن طلبي اضافة الي جدول.rar واشكركم جزيل الشكر

اخي عبدالله باشقير ما قد قصرت من اول فدائما تسبق الي الخير وانت اخي ابو نصار كودك الثاني والثالث هي اللي ضبطت معي لكن لو تعدل في الكود بحيث تبقى تنسيقات الجدول ثابته ولا تتغير عند كل حذف لصف بمعنى ان يبقى الجدول او النطاق (b6:e25) لا يتغير لونه او تنسيقه لانه مع الكود يتغير على العموم الكود اكثر من رائع وما قصرت والله يوفقك دنيا واخره

لكن اخي عبدالله بيكون تحت الجدول الذي اريد تنظيمه جدول اخر له كود يختص بنفس الجدول فاذا حذفت صفوف من الجدول الاعلى بتتأثر مواقع خلايا الجدول الاسفل وبيتلخبط الكود

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

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

اخواني الاعزاء اريد تعديل بسيط في الكود اذا امكن وهو اجعل الترتيب يبقى في نفس الجدول الملف المرفق يوضح اكثربحث واضافة2.rar

والله انك مبدع اخي عبدالله فالله يجزاك خير على مجهوداتك وكرمك معنا

السلام عليكم ورحمه الله وبركاته كما هو معروف لدي ان الداله now تحسب الوقت والتاريخ عند قيم الصفحه التي نقف فيها فسؤالي هل بالامكان التحكم بتغيرها ونقيده بخلايا معينه وليس بكامل الخلايا الملف المرفق فيه توضيح اكثر تغير الوقت.rar واشكركم

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

اشكرك جزيل الشكر اخي ابو حنين طبع الملف لم يعمل

اتمنى منكم مساعدتي في هذا الطلب وشكرا لكم

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

شكرا لك اخي عبدالله ودائما ما شاء الله عليك مبدع

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

اشكرك اخي ابو حنين ودائما انت تحرجني بخدمتك لي فالله لايحرمك الجنة

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

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

اخي عبدالله ما ادري كيف اجازيك على مساعدتك لي لكن ما اقول الا بيض الله وجهك في الدنيا والاخره

للرفع لحاجتي الي الحل

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

اخوي عبدالله حل اكثر من رائع لكن اتمنى لو كان بالكود اذا امكن مع ان حلك السابق ممتاز ولكن لزياده الاختيارات وشكرا

اخي عبدالله ما قصرت وكان حلك هو المطلوب فالله لا يحرمك الاجر ولكن لدي طلب اخير وهو كيف اعدل في الكود السابق اذا اردت الطرح والجمع مرتبطا بتوافق قيم قائمتين منسدلتين وهذا هو الكود الذي حاولت التعديل عليه ولكني لم اوفق ' ááÎÕã Sub kh_SUM1() Dim Cel As Range Dim Cel2 As Range For Each Cel In Range("D12:D26") For Each Cel2 In Range("e12:e26") If CStr(Cel) = CStr(Range("D4")) Then If CStr(Cel2) = CStr(Range("e4")) Then Cel.Offset(0, 2).Value = Val(Cel.Offset(0, 2)) - Val(Range("f4")) End If End If Next Next End Sub والملف المرفق يوضح اكثر طرح وجمع من جدول1.rar

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

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