خالدو

السلام عليكم ورحمة الله وبركاته أرجو المساعد والشرح في الملف المرفق. جزاكم الله خيراً 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

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

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

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

أخي خزاني جزاك الله خيراً أخي الحبيب ممكن الإصدار ملف أكسيل بدل ملف السيت أب لو سمحت

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

للرفع

السلام عليكم ورحمة الله وبركاته

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

جزاك الله خيراً أخي الحبيب على اهتمامك وتعبك معي.

السلام عليكم ورحمة الله وبركاته مشكور أخي الحبيب خزاني الرجاء فتح الملف المرفق .. به شرح المطلوب أكرر شكري وأسفي لاني فعلاً أتعبتك جزاك الله خيراً وجعل ذلك في ميزان حسناتك Fkhezzani1_New.zip