عادل حنفي

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

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

السلام عليكم اخي الحبيب ياسر اسعدني مرروك و علي قكرة انا متابع لاعمالك وسعيد بما اراه منك و من عدد من الاخوة الكرام بارك الله فيكم جميعا و الي الامام دائما خالص تحياتي و تقديري

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

السلام عليكم اخي الفاضل جرب الملف المرفق و ابداء اية ملاحظات خالص تحياتي كشف1.rar

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

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

السلام عليكم اخي الفاضل بالنسبة للتنسيق الشرطي تم عمل ذلك عن طريق كود ان فكرتة اساسا تكمن في ان التعامل يكون مع كل خلية علي حده بان يكون لها تنسيق شرطي حسب الرقم المدخل بها فاذا كان الرقم المدخل بالخلية ضمن ارقام تكون محددة مسبقا فان الكود يقوم بالغاء لتنسيق الشرطي السابق و يضع التنيق الشرطي الجديد الذي ايضا قمنا بتحديده مسبقا اما اذا كان غير الارقام المحددة مسبقا فان الكود يلغي التنيق الشرطي و ينهي الامر علي ذلك و يوضع الكود في حدث Worksheet_Change بحيث عند التغير في اي خلية في النطاق الذي قمنا بتحديد بالكود يتم التعامل مع هذه الخلية اما بالنسبة لا خفاء الاعمدة و الصفوف فان كود اخفء الاعمده و الصفوف بالنبة للملف المرفق مسبقا هو Sheets("sheet1").Columns("J:IV").Hidden = True Sheets("sheet1").Rows("21:65536").Hidden = True و يوضع في حدث Workbook_Open ليتم التعامل مع الكود لمجردفتح الملف ياريت اكون قدرت اوصل المعلومة اما بخصوص الطلب الاخير لك فالملف المرفق به ما تريده و سيعمل الكود بمجرد التغير بالعمود الثاني بالتحديد فاذا تساوت هذه الخليه مع احد الخلايا الموجودة بالجدول الثاني فان الخلايا التي في صف هذه الخلية يكون خطها بلون خط الخلايا التي بالجدول الثاني خالص تحياتي و تقديري تجارب1.rar

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

السلام عليكم اخي احمد عمل جميل و الي الامام دائما تجياتي

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

اللام عليكم اخي الفاضل تم عمل المطلوب بالملف المرفق تحياتي ترحيل.rar

السلام عليكم اخي Kemas بارك الله فيك اخي mmjksa جرب المرفق اظنه سيفيدك تحياتي مكرر4.rar

السلام عليكم اخي عذرا جرب الملف المرفق تحياتي مكرر3.rar

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

السلام عليكم اخي AHMADHAMOOR و لا يهمك و علي فكرة طريقة شرحك بالبوربوينت جميله تحياتي

السلام عليكم اخي هذا السؤال تم عمله بالفعل بالملف الذي يفتح بالزر و الذي اسمه 1.xls و ساشرح لك الطريقة ان شاء الله تحياتي

السلام عبليكم اخي الحبيب عماد الله يبارك لك و ينفعك يعلمك جميل و رائع و 10/10 خالص تحياتي و تقديري

السلام عليكم اخي ولد المجرب عذرا اخي السؤال لم يكن به اي شيئ عن التنسيق الشرطي و علي العموم جرب المرفق و ان شاء الله يكون المطلوب تحياتي formate.rar

اللام عليكم اخي الفاضل ان شاء الله يمكن ذلك لكن برجاء ارفاق مثالا لتحديد الطلب بالضبط لاختصار الوقت و الجهد تحياتي

السلام عليكم اخي الفاضل بالنبة لسؤالك عن كيفية عمل زر و عن الاكواد عموما هناك دورات عديده بالبحث عنها بالمنتدي تفيدك كثيرا منها علي سبيل المثال لا الحصر برجاء مراجعة الرابط التالي اضغط هنــــــــــــــــــــــــا و مرفق ملف مضغوط به ملف داخله ملفان اكسل و اخر وورد فك ضغط كامل الملف في اي مكان تريد و ابدا بفتح الملف الذي اسمه "لفتح ملف اكسل او وورد.xls" الذي به زر لفتح ملف وورد كما طلبت و اخر به ملف اكسل يظهر عند فتحه 10 اعمدة و 20 صف كما طلبت جرب الملف و اخبرني النتيجة تحياتي Open file.rar

السلام عليكم اخي AHMADHAMOOR نزلت الملف و الزر يعمل دون مشاكل عموما لك الشكر علي مرورك و المتابعة و ان يكون الملف يقوم بما طلب تحياتي

السلام عليكم اخي الفاضل الملف المرفق فيه فكرة مبسطة لسؤالك يقرب لك الفكرة حيث تم وضع التاريخ الذي حددته في الخلية B1 و الزر الذي تضغط عليه يضع تاريخ اليوم في الخلية A1 و الخلية C1 عبارة عن الفرق بين التاريخين فاذا وصلنا الي تاريخك الذي حددته او تعداه فستكون نتيجة الخلية C1 صفر او اقل من صفر فتظهر رسالة تفيد بانتهاء البرنامج و اذا كانت قيمة هذه الخلية اكبر من صفر فتظهر الفورم برجاء توضيح باقي المطلوب لمحاولة الاجابة عليك اما بالنسبة لتصحيح الكود فسيكون كالتالي Private Sub Workbook_Open() If Sheets("lock").range("d4").Value >= 27756 Then GoTo 100 100 Sheets("invoice").Visible = xlveryhidden Sheets("reg").Visible = True If Sheets("reg").range("a1").Value >= 102 Then GoTo 300 300 Sheets("invoice").Visible = True Sheets("lock").Range("a1:f100").ClearFormats Sheets("reg").Visible = xlveryhidden End Sub الخطأبالكود نقص بعض الاحرف و ضع else بالرغم من انك اقفلت ال if في نفس السطر في كل جمله من الكود و بالتالي ايضا لن تحتاج الي end if تحياتي TEST.rar

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

السلام عليكم اخي مصري جرب المرفق و اخبرني النتيجة ففيه ان شاء الله اجابة لما تريد تحياتي copy formula.rar