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

السلام عليكم استاذ عادل جرب هذه 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 r = r + 1 Else Cells(rr + 3, 3) = i rr = rr + 1 End If End If Next End Sub بالنسبة لموضوع الشرح اعذرني فانا لست جيد في الشروحات ولكن اختر جزئية معينة و سوف احاول شرحها باذن الله تحياتي

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

السلام عليكم جرب هذا 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

السلام عليكم استاذ اسلام شكرا لمرورك . الغرض من التجربة في الاصل هو محاولة عمل صفحة اكسيل من skydrive لتكون ظاهرة فعلا في المشاركة و تقبل التعديل من الكل في نفس الوقت بمعنى ان تكون embedded وهذا المقصود من الكود الاول ولكن لم ينجح لا اعلم ما السبب فليس لدي خبرة في لغات الويب لكن اظن السبب ان هناك مواقع تدعم هذا و هناك مواقع لا تدعم . ممكن ان تستخدمها كما في المشاركة الاولى علي هيئة رابط من خلال اما Google drive او Sky drive لكلا منهم مميزاته . بامكانك ان تنشرهم Share علي هيئة رابط و ان تتحكم بالسماح بالتعديل او القراءة فقط . اعتقد ان هذه الافكار ليست جديدة نوعا ما و اعتقد ان احد الافاضل تطرق لهذا الموضوع من قبل اعتقد استاذ رواس . تحياتي و اسعد الله صباحك

السلام عليكم تحياتي للجميع , اسعد الله صباحكم جرب هذه 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

<iframe width="402" height="346" frameborder="0" scrolling="no" src="https://skydrive.live.com/embed?cid=81F0A86631BF7D3A&resid=81F0A86631BF7D3A%21109&authkey=ALKA8pyyDBja7gc&em=2&wdAllowInteractivity=False&wdDownloadButton=True"></iframe> https://docs.google.com/spreadsheet/ccc?key=0AvU3pWCAf64FdDZZNFp6WWF5NXRpNWtrOWJWWXBXUVE&usp=sharing http://sdrv.ms/ZMZBhO https://docs.google.com/spreadsheet/ccc?key=0AvU3pWCAf64FdDZZNFp6WWF5NXRpNWtrOWJWWXBXUVE&usp=sharing

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

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

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

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