خالدو

السلام عليكم ورحمة الله وبركاته أرجو المساعد والشرح في الملف المرفق. جزاكم الله خيراً Request.zip

هل يوجد بديل أخي ياسر؟

السلام عليكم ورحمة الله وبركاته إخواني. أرجو التكرم ومساعدتي في الملف المرفق حيث أن الدالة لاتعمل بالشكل المطلوب. وجزاكم الله خيرا. Indirect.zip

جزاك الله خيرا أخي ياسر.

جزاك الله خيرا أخي ياسر لكن لا اريد أي ظهور للعملة في المعادلة إن أمكن لا العملات كثيرة جدا وايضا يصعب حصرها في المعادلة. وشكراً

السلام عليكم ورحمة الله وبركاته برجاء المساعدة حسب ما هو موضح بالملف المرفق. وجزاكم الله خيراً. Officena-3.zip

السلام عليكم ورحمة الله وبركاته لي رجاء آخر لو تكرمتم وهو أن الكود يتجاهل بعض المجلدات وهي: Windows, Program Files, Documents and Settings , $Recycle.Bin أرجو ألا أكون أثقلت عليكم وشكراً

السلام عليكم ورحمة الله وبركاته إخواني الكرام الرجاء المساعدة ... شرح المشكلة موجود بالملف المرفق. جزاكم الله خيراً ListFilesFoldersOfficena.zip

جزاك الله خيراً أخي الحبيب ياسر وجعل ذلك في ميزان حسناتك. فعلاً مساعدة رائعة وسريعة جداً.

السلام عليكم ورحمة الله وبركاته أخواني الكرام أرجو التكرم والمساعدة في الملف المرفق: أولاً: تصحيح الخطأ بالكود لان يكرر اسم الملف. ثانياً: مطلوب كود آخر يقوم بادراج المجلدات الفرعية داخل المجلد الكبير مثلاً: لو قلنا أن المجلد الاساسي أو الكبير هو ABCD موجود تحته ملفات ومجلدات اخرى نغض الطرف عن اسماء الملفات فقط يذكر عددها وإجمالي مساحتها بدون تفاصيل ويدرج لنا المجلدات الفرعية بالاسم والمساحة وعدد الملفات داخل كل منها وهكذا. وجزاكم الله خيراً وأحسن إليكم أخوكم خالد List Files+Folders.zip

جزاكم الله خيراً أخي عبد الله وأخي جمال. وكما قال أخي الحبيب جمال أني أفضل الكود ولكن حل المعادلات سوف يفيدني بإذن الله في استخدمات أخرى. عملت إضافة بسيطة لكود الأخ الفاضل عبد الله والحمد لله تم المطلوب. الكود بعد الإضافة: Sub Macro1() With ThisWorkbook.Sheets("Sheet2") Dim cel As Range, ArRng As Range Dim i As Long Dim r As Range On Error GoTo 1 With ThisWorkbook.Sheets("Sheet2").Range(Range("A1"), Range("A1").End(xlDown)) For Each cel In .Cells i = i + 1 cel.Value = Split(CStr(cel), ".")(1) & "/" & Split(CStr(cel), ".")(0) & "/" & Split(CStr(cel), ".")(2) If WorksheetFunction.CountIf(.Cells.Resize(i, 1), cel.Value) = 2 Then If ArRng Is Nothing Then Set ArRng = cel Else Set ArRng = Union(ArRng, cel) End If Next If Not ArRng Is Nothing Then ArRng.Delete .Sort .Columns(1), xlAscending LR = Cells(Cells.Rows.Count, "A").End(xlUp).Row Set r = Range("A1:A" & LR) r.RemoveDuplicates Columns:=Array(1), Header:=xlNo End With 1: Set ArRng = Nothing End With End Sub وأكرر الشكر وأسأل الله أن ينفع بكم المسلمين وأن يتقبل منا ومنكم صالح الأعمال

أخي الحبيب الكود الأخير لم يحذف المكرر وارفع لكم الملف الذي يحوي التكرار. Book2.zip

مشكور أخي الحبيب عبد الله ... كود رائع جداً. فعلاً تم التحويل والترتيب. أرجو التكرم بكود لحذف المكرر إن أمكن لأن الملفات الأخرى بها سجلات مكررة. جزاك الله خيراً

السلام عليكم ورحمة الله وبركاته إخواني وأخواتي بمنتدى أوفيسنا العظيم. أسأل الله العلي القدير أن ينصر أهلينا في غزة العزة والصمود على أعدائهم وعلى من خذلهم وأن يتقبل الله منا ومنكم الصيام والقيام وصالح الأعمال. ثم أرجو التكرم بكود يحول تنسيق التاريخ كما هو موضح بالملف المرفق ثم عمل تصفية لاستبعاد المكرر ثم الترتيب من الأقدم للأحدث في نفس العمود. وجزاكم الله خيراً Book1.zip

السلام عليكم ورحمة الله وبركاته الرجاء الاطلاع على المرفق CountText.zip