احمد عبد الناصر

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

السلام عليكم جرب تعديل جمله الاستعلام في Groby_Serial الي SELECT * FROM (SELECT clng(tblEmployees.Emp_No) as Emp_No FROM tblEmployees) AS dd ORDER BY Emp_No; تحياتي

بسم الله ما شاء الله بداية قوية جدا و محتوى دسم و مفيد جدا عمل راقي و رائع شكرا لكم

السلام عليكم هذه كتب Wrox.Excel.2007.VBA.Programmers.Reference.Mar.2007 VBA.and.Macros.Microsoft.Excel.2010 و هذه قناة علي اليوتيوب http://www.youtube.com/channel/UCkndrGoNpUDV-uia6a9jwVg?feature=g-high-crv زادك الله علما و نفع بك تقبل تحياتي

. RECHERCHEV+.rar

السلام عليكم جرب هذه معادلة صفيف =AVERAGE(VLOOKUP(G7,A7:D13,{2,3,4},0)) لكني صراحة افضل حل استاذ ابو حنين تحياتي

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

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

السلام عليكم جرب هذه تحياتي متقدم او متأخر.+xlsx.rar

السلام عليكم جرب هذه تحياتي انتاج يناير 2014++.rar

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

http://www.youtube.com/watch?v=lh4VjEoD5WY

معذرة هذا بعد التعديل range("e"&range("e"&rows.Count).End(xlUp).Row+1).Select تحياتي

السلام عليكم زيادة في الخير range("e"&range("e"&rows.Count).End(xlUp).Row+1)

السلام عليكم جرب هذه Sub ABBAS2() Dim sh0 As Worksheet Dim sh1 As Worksheet Set sh0 = ThisWorkbook.Sheets("الرقم الامتحاني") ThisWorkbook.Sheets("استمارة").Copy After:=Sheets(Worksheets.Count) Set sh1 = ThisWorkbook.Sheets(Worksheets.Count) sh1.Name = sh0.[E4].Value sh1.[F4].Value = sh0.[e6].Value sh1.[e5].Value = sh0.[E7].Value sh1.[M3].Value = sh0.[E3].Value sh1.[L5].Value = sh0.[K5].Value sh1.[M5].Value = sh0.[K6].Value sh1.[N5].Value = sh0.[K7].Value sh1.[L5].Value = sh0.[K5].Value sh1.[C5].Value = sh0.[F4].Value sh1.[C6].Value = sh0.[E4].Value sh1.[L5].Value = sh0.[K5].Value sh1.Range("b8:n" & sh1.UsedRange.Rows.Count + 10).Clear sh0.Range("a2:c" & sh0.[K7].Value + 1).Copy sh1.Range("B8").PasteSpecial (xlPasteValues) sh1.Range("b7").Copy sh1.Range("b8:n" & sh1.[N5].Value + 7).PasteSpecial (xlPasteFormats) sh1.[b7].Select Application.CutCopyMode = False End Sub تحياتي

السلام عليكم جرب هذه Sub ABBAS() Sheets(2).[F4].Value = Sheets(1).[e6].Value Sheets(2).[e5].Value = Sheets(1).[E7].Value Sheets(2).[M3].Value = Sheets(1).[E3].Value Sheets(2).[L5].Value = Sheets(1).[K5].Value Sheets(2).[M5].Value = Sheets(1).[K6].Value Sheets(2).[N5].Value = Sheets(1).[K7].Value Sheets(2).[L5].Value = Sheets(1).[K5].Value Sheets(2).[C5].Value = Sheets(1).[F4].Value Sheets(2).[C6].Value = Sheets(1).[E4].Value Sheets(2).[L5].Value = Sheets(1).[K5].Value Sheets(2).Name = Sheets(1).[E4].Value Sheets(2).Range("b8:n" & Sheets(2).UsedRange.Rows.Count).Clear Sheets(1).Range("a2:c" & Range("a" & Rows.Count).End(xlUp).Row).Copy Sheets(2).Range("B8").PasteSpecial (xlPasteValues) Sheets(2).Range("b7").Copy Sheets(2).Range("b8:n" & Sheets(2).Range("b" & Rows.Count).End(xlUp).Row).PasteSpecial (xlPasteFormats) Application.CutCopyMode = False End Sub عندي استفسار هل يتم تغير اسم الصفحة المسماة استمارة او يتم ادراج صفحة جديدة باسم المدرسة منسوخة من صفحة استمارة تحياتي

السلام عليكم جرب هذه Sub ABBAS() Sheets(2).[F4].Value = Sheets(1).[e6].Value Sheets(2).[e5].Value = Sheets(1).[E7].Value Sheets(2).[M3].Value = Sheets(1).[E3].Value Sheets(2).[L5].Value = Sheets(1).[K5].Value Sheets(2).[M5].Value = Sheets(1).[K6].Value Sheets(2).[N5].Value = Sheets(1).[K7].Value Sheets(2).[L5].Value = Sheets(1).[K5].Value Sheets(2).[C5].Value = Sheets(1).[F4].Value Sheets(2).[C6].Value = Sheets(1).[E4].Value Sheets(2).[L5].Value = Sheets(1).[K5].Value Sheets(1).Range("a2:c" & Range("a" & Rows.Count).End(xlUp).Row).Copy Sheets(2).Range("B8").PasteSpecial (xlPasteValues) Sheets(2).Range("b7").Copy Sheets(2).Range("b8:d" & Range("b" & Rows.Count).End(xlUp).Row).PasteSpecial (xlPasteFormats) Application.CutCopyMode = False End Sub تحياتي

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

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

السلام عليكم الاستاذ ضاحي الغريب الف مبروك علي الترقية , زادك الله علما و نفع بك و اعلى نزلك في جنات النعيم . تقبل تحياتي

السلام عليكم جرب هذه تحياتي Book1+.rar

السلام عليكم زيادة في الخير =SUMIF(A2:A16;"سارة";B2:B16)+SUMIF(A2:A16;"يزن";B2:B16)+SUMIF(A2:A16;"عارف";B2:B16) المشكلة ان المعادلة كانت تبحث عن تحقق الثلاث شروط معا و ليس اي شرط من الثلاثة .اي ان تكون الخلية تساوي سارة و يزن و عارف في نفس الوقت و هو مستحيل تحياتي

السلام عليكم جرب هذه تحياتي ابو عبده+.rar

السلام عليكم جرب خذه نسخ من الخلية في الملف المرفق من الاستاذة ام عبد الله او جرب هذه [$-1860000]B2yyyy/mm/dd;@ تحياتي