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

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

السلام عليكم جرب هذا Sub Dahmour() arr = Range("e3:" & Cells.SpecialCells(xlCellTypeLastCell).Address) For Each i In arr If Not IsEmpty(i) Then If IsNumeric(i) Then Cells(r + 3, 2) = i Else Cells(rr + 3, 3) = i rr = rr + 1 End If r = r + 1 End If Next End Sub ملاحظة : يترك فراغات في العمود B كما في الملف . لا اعلم ان كان هذا مقصود . تحياتي

السلام عليكم جرب هذه Sub Dahmour() arr = Range("e3:" & Cells.SpecialCells(xlCellTypeLastCell).Address) For Each i In arr If Not IsEmpty(i) Then Cells(r + 3, 2) = i r = r + 1 End If Next End Sub تحياتي +تجميع اعمده فى عمود.rar

السلام عليكم استاذنا الخالدي ببساطة ارفع لك القبعة تقبل تحياتي

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

السلام عليكم استاذ حمادة تحياتي لك كود مميز هذا حل اخر لاثراء الموضوع Private Sub UserForm_Initialize() Dim arr As Variant ReDim arr(1 To Application.WorksheetFunction.CountA([a:a])) For Each c In Range("a1:a" & Range("a" & Rows.Count).End(xlUp).Row) x = c.Row - 1 If Not IsEmpty(c) Then If x = 0 Then GoTo 1 If Application.WorksheetFunction.CountIf(Range("a1:a" & x), c.Value) = 0 Then 1: arr(i + 1) = c.Value i = i + 1 End If End If Next ReDim Preserve arr(1 To i) ComboBox1.List = arr End Sub تحياتي HANY+-+.rar

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

السلام عليكم يمكن هذا من خلال معادلة =SUBSTITUTE(C10;"-";"") او ان اردت ان يكون التحويل لحظي و في نفس خلية الادخال جرب الكود في المرفق , يعمل علي اي خلية في العمود C . Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 3 Then If Target.Cells.Count = 1 Then Target = Replace(Target.Value, "-", "") End If End If End Sub تحياتي +الغاء شرطه من خليه.rar

السلام عليكم الكود يقوم بفك الحماية من علي الشيت ثم يزيل الحماية من علي جميع الخلاية ثم يقوم بحماية خلايا المعادلات ثم اعادة حماية الشيت . وبالتالي فان كان هناك خلايا محمية لا تحتوي علي معادلات فبعد تشغيل الكود سوف تزال الحماية من عليها . جرب الكود يقوم بالحماية دون فك حماية اي خلايا Sub Dahmour() For Each s In ActiveWorkbook.Sheets s.Unprotect "1" On Error Resume Next s.Cells.SpecialCells(xlCellTypeFormulas).Locked = True s.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True s.Protect "1" Next End Sub لا ادري ان كان هذا ما تقصد بتساؤلك ام شيء اخر تحياتي

السلام عليكم جرب هذا استفسار:هل تستخدم اكسيل 2003 ؟! تحياتي +جدول المحاضرين والقاعات.rar

السلام عليكم معذرة يبدو اني لم افهم المطلوب الكود الاصلي الذي في الشيت ان وجد الاسم مكرر يفتح صفحة جديدة sheet2 مثلا لكن بعد ظهور رسالة خطأ . التعديل الذي وضعته كان بغرض الغاء هذه الرساله فقط . جرب هذا التعديل ان وجد اسم الشيت مكرر يظهر رسالة تفيد بذلك و لا يضيف اي شيتات . و بالنسبة لهذا On Error Resume Next فهو لتجاهل الاخطاء و المضي لتكمله الكود متجاوزا الخطأ تحياتي اضافة شيت ++جديد1.rar

السلام عليكم الخطأ يظهر عند وجود صفحات لا يوجد فيها معدلات . استبدله بهذا Sub Dahmour() For Each s In ActiveWorkbook.Sheets s.Unprotect s.Cells.Locked = False s.Cells.FormulaHidden = False On Error Resume Next s.Cells.SpecialCells(xlCellTypeFormulas).Locked = True s.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True s.Protect Next End Sub تحياتي

السلام عليكم جرب هذا تحياتي اضافة شيت +جديد1.rar

السلام عليكم جرب هذا Sub newsheetcustomename() Dim sheetname As String sheetname = InputBox("ãä ÝÖáß ÇÏÎá ÇÓã ÇáÔíÊ") If sheetname = "" Or Len(sheetname) > 31 Then MsgBox ("ÇäÊ áã ÊÏÎá ÇáÇÓã Çæ ÇÓã ÇáÔíÊ ÇßÈÑ ãä 31 ÍÑÝ") Exit Sub End If For Each s In ActiveWorkbook.Sheets If s.Name = sheetname Then Sheets.Add Exit Sub End If Next Sheets.Add.Name = sheetname End Sub او هذا Sub newsheetcustomename() Dim sheetname As String sheetname = InputBox("ãä ÝÖáß ÇÏÎá ÇÓã ÇáÔíÊ") If sheetname = "" Or Len(sheetname) > 31 Then MsgBox ("ÇäÊ áã ÊÏÎá ÇáÇÓã Çæ ÇÓã ÇáÔíÊ ÇßÈÑ ãä 31 ÍÑÝ") Exit Sub End If On Error Resume Next Sheets.Add.Name = sheetname End Sub تحياتي

السلام عليكم جرب هذه =SUMIF(F11:F100;D3;D11:D100) تحياتي

السلام عليكم جرب هذه المحاولة . اضغط دبل كليك علي الخلايا c1 , d1 , e1 علي حسب الفترة التي تريدها . ملاحظة :اعتبرت عدد الحراس في القاعة 3 ثابت . تحياتي توزيع الحراس على القاعات+.rar

السلام عليكم تحياتي للجميع , اسعد الله صباحكم جرب هذه Sub Dahmour() For Each s In ActiveWorkbook.Sheets s.Unprotect s.Cells.Locked = False s.Cells.FormulaHidden = False s.Cells.SpecialCells(xlCellTypeFormulas).Locked = True s.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True s.Protect Next End Sub

السلام عليكم جرب هذه =DATE(2013;MONTH(H2);DAY(H2)) تحياتي jop_2011+.rar

السلام عليكم جرب هذه تحياتي ظهور الفورم بالضغط على زر معين+.rar

السلام عليكم استاذ أحمد برجاء مزيد من الشرح . كما فهمت تكتب مثلا في الخلية C27 كلمة "عمر" ثم نضغط F9 فيظهر الفورم وقد بحث فعلا عن كلمة عمر . (هذه الطريقة ستحتاج ان تخرج من الخلية بعد كتابة عمر و تقف عليها ثم تضغط F9 فهل هذا يناسبك) ماذا بعد هل يقوم الكود ايضا بمشح محتويات الخلية C27 علي اساس انها مؤقته فقط ام ماذا ؟ تحياتي

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

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

لا إله الا الله الحليم الكريم .. لا اله الا الله العلي العظيم .. لا إله الا الله رب السماوات السبع و رب العرش العظيم .. لا إله إلا الله وحده لا شريك له .. له الملك .. و له الحمد و هو على كل شيء قدير .. الحمد لله الذي لا إله إلا هو .. و هو للحمد أهل .. و هو على كل شيء قدير .. و سبحان الله .. و لا إله إلا الله .. و الله أكبر .. و لا حول و لا قوة إلا بالله .. إلهي .. أذهب البأس رب الناس ، اشف و أنت الشافي ، لا شفاء إلا شفاؤك ، شفاءً لا يغادر سقماً .. إلهي .. أذهب البأس رب الناس ، بيدك الشفاء ، لا كاشف له إلا أنت .. يارب العالمين آمين .. إلهي .. إني أسألك من عظيم لطفك وكرمك و سترك الجميل أن تشفيه و تمده بالصحة و العافية .. إلهي .. لا ملجأ و لا منجا منك إلا إليك .. إنك على كل شيء قدير .

السلام عليكم في اكسيل 2010 ممكن تقوم بذلك من خلال save as save type as pdf اعتقد ان ذلك موجود في اكسيل 2007 ايضا لكن لا اعلم عن اكسيل 2003 . تحياتي

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