هشام شلبى

السلام عليكم ===== اخى :: tofimoon4 "ببالراحة علينا شوية" كل عام وانت بخير ستضيف هذا الجزء على الكود لكى لا تظهر المعادلات ولا تزعل Range(Range("x5"), Range("x6").End(xlDown)).Select Selection.Value = Selection.Value واليك كود اخر اخف حجما Option Explicit Sub hh() Range("X5").FormulaR1C1 = _ "=SUMPRODUCT(--(R5C16:R1500C16=RC[-8]),R5C20:R1500C20)" Range("X6").FormulaR1C1 = _ "=IF(EXACT(R[-1]C[-8],RC[-8]),"""",SUMPRODUCT(--(R5C16:R1500C16=RC[-8]),R5C20:R1500C20))" Range("X6").AutoFill Destination:=Range("X6:X1500"), Type:=xlFillDefault Range("X5:X1500").Value = Range("X5:X1500").Value End Sub شاهد المرفق formulas2code3.rar

السلام عليكم ===== اخى الحبيب ::ياسر بارك الله فيك وكل عام وانت والاهل بخير وامان

السلام عليكم ===== اخى :: العزيز Sub hh() Application.ScreenUpdating = False Range("X5").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(--(R5C16:R1500C16=RC[-8]),R5C20:R1500C20)" Range("X6").Select ActiveCell.FormulaR1C1 = _ "=IF(EXACT(R[-1]C[-8],RC[-8]),"""",SUMPRODUCT(--(R5C16:R1500C16=RC[-8]),R5C20:R1500C20))" Range("X6").Select Selection.AutoFill Destination:=Range("X6:X1500"), Type:=xlFillDefault Range("X6:X1500").Select Sheets("الصادر").Select Range("Y6").Select End Sub formulas2code1.rar

السلام عليكم ===== اخى العزيز شاهد هذا الرابط اذا لم تجد ضالتك هناك اعطى مثال توضيحى

السلام عليكم ===== اخى yhubaish راجع هذا الرابط فى المشاركة رقم 67

السلام عليكم ===== دالتان جديدتان للغالى ابو تامر الدالة OzgridLookup والدالة Lookup_Occurence عنوان الموضوع الاصلى 2_Test.rar

السلام عليكم ===== الاخ الحبيب :: ابو احمد بارك الله فيك " الله ينور عليك"

السلام عليكم ===== الشكر موصول لكل الاخوة والاحباب كل عام والجميع بالف خير الاخ mosha14 استخدم المعادلة =IF(E3>F3; 1-E3+F3;F3-E3)+IF(G3>H3; 1-G3+H3;H3-G3) لحساب مجموع الفترتين معا ويكون التنسيق على الشكل التالى hh:mm:ss شاهد المرفق presence and leave.rar

السلام عليكم ===== اخى الحبيب :: خبور بارك الله فيك -- كل عام وانت منور المنتدى

السلام عليكم ===== الدالة multvlookup العنوان الاصلى للمشاركة

السلام عليكم ===== اخى الحبيب :: كيماس اعتقد والله أعلم لكى تفلح نظريتك فى ايجاد القيم دون خطأ يجب ان يكون الاسماء فى المدى Mynames مؤبجدة تصاعديا وتصاعديا فقط قارن بين القيم الناتجة فى مرفقك والنواتج فى مرفقى والله من وراءالقصد عكس اتجاه دالة vlookup.rar

السلام عليكم ===== اخى :: كيماس بارك الله فيك

السلام عليكم ===== الموضوع رقم (14) ========= موضوع روعة ::: شرح powerpoint 2003 - access 2003 - excel 2003 - word 2003 صوت وصورة انقر هنا

السلام عليكم ===== الموضوع رقم (13) ========= تحفة من تحف الغالى ابو تامر عنوان المشاركة الاصلية

السلام عليكم ===== كل عام وكل اعضاء اوفسينا بالف صحة وخير

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

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

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

السلام عليكم ===== اخى شمس الثورة شاهد المرفق كود الاخفاء.rar

السلام عليكم ===== اخى عبدالله بارك الله فيك وكل عام وانتم بخير الاخ accountant_mostafa على نفس ملف اخى عبدالله اضفت لك فى التنسيق الشرطى للعمود A =COUNTIF($A$1:$A$1000;A1)>1 ليشير اليك باللون للقيمة الاصلية المكررة فمثلا عند كتابة العدد 1 فى الخلية A7 والضغط علة ENTER راقب ما يحدث منع التكرار في عمود.rar

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

السلام عليكم ===== الموضوع رقم (12) ======== عنوان المشاركة الاصلية

السلام عليكم ===== اخى المعتصم بارك الله فيك

السلام عليكم ===== اكيد طبعا رائع كعادتك اخى yahiaoui

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