هشام شلبى

السلام عليكم =========== الحمد لله اخى العزيز انك توصلت الى مبتغاك سوى منى او من اخى الحبيب ياسر وفقكك الله

السلام عليكم =========== فصدى هنا سيتضح بالمرفق AHMADHAMOOR.rar

السلام عليكم ========== عندى بتظهر تمام ممكن يكون كلامك مظبوط ادخل من الكنترول بانل وحاول تظبط التاريخ

السلام عليكم ========== برجاء التجربة مرة اخرى DATA.rar

السلام عليكم =========== بارك الله فيك اخى طارق الاخ العزيز وهذه طريقة اخرى 11111.rar

السلام عليكم =========== الاخ buotbah اين السورس الذى تريد ربطة بالفئة الملف فارغ ولا يحتوى على بيانات

السلام عليكم =========== لاثراء الموضوع تفضل المرفق كود حماية وفك حماية لكل الشيت.rar

السلام عليكم =========== اخى العزيز موضوعك محير هل تريد معرفة ما تريده بدون معرفة ابعاد الغرفه اظنه مستحيلا ام اذا كانت ابعاد الغرف موجودة فيكون من السهل حساب ذلك نظرا لاختلاف الغرف مابين متوازى مستطيلات او مكعبات

السلام عليكم =========== حياك الله اخى ياسر بالاضافة الى عبقرية اخى الحبيب طارق ولاثراء الموضوع استخدم الصيغة =LOOKUP(B6;B2:I2) مهندس_نور.rar

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

السلام عليكم =========== استخدم الصيغة =IF(COUNTIF(A:A;D2)<>0;"";D2) ITEM MODEL OFF.rar

السلام عليكم =========== ممكن شرح لما تريد وتبدأ بخطوة اولى لو ممكن وما معنى البعثرة

السلام عليكم =========== هناك اكثر من طريقة شاهد المرفق Desktop.rar

السلام عليكم =========== على حسب ما تخيلت شاهد المرفق OverTime.rar

السلام عليكم =========== شاهد المرفق "منقول" New مستند Microsoft Word.rar

السلام عليكم =========== اليك المرفق وبه الطلبان مجتمعان معا فى حالة تححق كل الشروط مجتمعة او منفردة وللتحقق من طواعية الكود اختر اى حالة مما ذكرت ثم اضغط ctrl+p وراقب ما يحدث ستجد بمجرد الضغط علىctrl+p ان الصفوف المطلوبة اختفت ثم اكمل طباعتك Private Sub Workbook_BeforePrint(Cancel As Boolean) Select Case Worksheets("كيما").Range("D25").Text Case "", "0.0" Worksheets("كيما").Rows("24:25").EntireRow.Hidden = True End Select Select Case Worksheets("كيما").Range("D31").Text Case "", "0" Worksheets("كيما").Rows("39:45").EntireRow.Hidden = True End Select Select Case Worksheets("كيما").Range("D33").Text Case "", "0" Worksheets("كيما").Rows("39:45").EntireRow.Hidden = True End Select Select Case Worksheets("كيما").Range("D35").Text Case "", "0" Worksheets("كيما").Rows("39:45").EntireRow.Hidden = True End Select Select Case Worksheets("كيما").Range("D37").Text Case "", "0" Worksheets("كيما").Rows("39:45").EntireRow.Hidden = True End Select End Sub اخفاء صفوف معينة عند الطباعة.rar

السلام عليكم =========== استاذنا الفاضل هل جربت تطبع الملف لو جربيت ستجد ان الطبع سيتم مع اخفاء الصفوف 14و15 او انك تريد زر ايضا للطباعة

السلام عليكم =========== المطلوب الاول تم عمله المطلوب الثانى انت تشير الى خلايا وتكتب خلايا اخرى مش عارف ايه الصح اخفاء صفوف معينة عند الطباعة.rar

السلام عليكم =========== المرفق نسخة من Xl0000006.rar

السلام عليكم ========== الاخ سالم بارك الله فيك ولاثراء الموضوع الاخ omar19-3 هذا طلبك وبين كل سجلين اربع فراغات Test1.rar

السلام عليكم =========== شاهد المرفق Book1.rar

السلام عليكم =========== هل تريد الا يظهروا فقط فى الطباعة اذا كان هذا فقط فلا حاجة الى كود

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

السلام عليكم =========== الاخ ابو اشرف اضف او احذف ما تشاء من الاوراق ان شاء الله ما تريده hh.rar

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