خالدو
-
Posts
160 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه خالدو
-
-
هل يوجد بديل أخي ياسر؟
-
السلام عليكم ورحمة الله وبركاته إخواني.
أرجو التكرم ومساعدتي في الملف المرفق حيث أن الدالة لاتعمل بالشكل المطلوب.
وجزاكم الله خيرا.
-
جزاك الله خيرا أخي ياسر.
-
جزاك الله خيرا أخي ياسر لكن لا اريد أي ظهور للعملة في المعادلة إن أمكن لا العملات كثيرة جدا وايضا يصعب حصرها في المعادلة.
وشكراً
-
السلام عليكم ورحمة الله وبركاته
برجاء المساعدة حسب ما هو موضح بالملف المرفق.
وجزاكم الله خيراً.
-
السلام عليكم ورحمة الله وبركاته
لي رجاء آخر لو تكرمتم وهو أن الكود يتجاهل بعض المجلدات وهي:
Windows, Program Files, Documents and Settings , $Recycle.Bin
أرجو ألا أكون أثقلت عليكم وشكراً
-
السلام عليكم ورحمة الله وبركاته إخواني الكرام
الرجاء المساعدة ... شرح المشكلة موجود بالملف المرفق.
جزاكم الله خيراً
-
جزاك الله خيراً أخي الحبيب ياسر وجعل ذلك في ميزان حسناتك.
فعلاً مساعدة رائعة وسريعة جداً.
-
السلام عليكم ورحمة الله وبركاته أخواني الكرام
أرجو التكرم والمساعدة في الملف المرفق:
أولاً: تصحيح الخطأ بالكود لان يكرر اسم الملف.
ثانياً: مطلوب كود آخر يقوم بادراج المجلدات الفرعية داخل المجلد الكبير مثلاً:
لو قلنا أن المجلد الاساسي أو الكبير هو ABCD موجود تحته ملفات ومجلدات اخرى نغض الطرف عن اسماء الملفات فقط يذكر عددها وإجمالي مساحتها بدون تفاصيل
ويدرج لنا المجلدات الفرعية بالاسم والمساحة وعدد الملفات داخل كل منها وهكذا.
وجزاكم الله خيراً وأحسن إليكم
أخوكم خالد
-
جزاكم الله خيراً أخي عبد الله وأخي جمال.
وكما قال أخي الحبيب جمال أني أفضل الكود ولكن حل المعادلات سوف يفيدني بإذن الله في استخدمات أخرى.
عملت إضافة بسيطة لكود الأخ الفاضل عبد الله والحمد لله تم المطلوب.
الكود بعد الإضافة:
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
وأكرر الشكر وأسأل الله أن ينفع بكم المسلمين وأن يتقبل منا ومنكم صالح الأعمال
-
-
مشكور أخي الحبيب عبد الله ... كود رائع جداً.
فعلاً تم التحويل والترتيب.
أرجو التكرم بكود لحذف المكرر إن أمكن لأن الملفات الأخرى بها سجلات مكررة.
جزاك الله خيراً
-
السلام عليكم ورحمة الله وبركاته إخواني وأخواتي بمنتدى أوفيسنا العظيم.
أسأل الله العلي القدير أن ينصر أهلينا في غزة العزة والصمود على أعدائهم وعلى من خذلهم وأن يتقبل الله منا ومنكم الصيام والقيام وصالح الأعمال.
ثم أرجو التكرم بكود يحول تنسيق التاريخ كما هو موضح بالملف المرفق ثم عمل تصفية لاستبعاد المكرر ثم الترتيب من الأقدم للأحدث في نفس العمود.
وجزاكم الله خيراً
-
-
الاخ الحبيب خزاني
برجاء كلمة المرور لمحرر الفيجوال بيسيك للملف حتى يتسنى لي التعديل عليه... أو النكرم بالرد إن كان ذلك غير ممكن حتى ابحث عن حلول أخرى.
وأكرر شكري لكم وعلى مساعدتكم الكريمة ... وجزاكم الله خيراً.
-
أخي الكريم خزاني
ممكن كلمة المرور لمحرر الفيجوال بيسيك لو تكرمت؟
وجزاك الله خيراً.....
-
السلام عليكم ورحمة الله وبركاته
أخي الحبيب خزاني
ممكن لو تكرمت كلمة المرور للملف؟
جزاك الله خيراً
-
أخي خزاني
جزاك الله خيراً أخي الحبيب
ممكن الإصدار ملف أكسيل بدل ملف السيت أب لو سمحت
-
جزاك الله خيراً أخي خزاني
عمل رائع ويستلزم مجهود ووقت كبير....
بالله لو أمكن استخدام اللغة الانجليزية بدل الفرنسية وأكرر إن أمكن....
لن استطيع أن أوفيك حقك وأسأل المولى أن يجعله في ميزان حسناتك.
-
-
السلام عليكم ورحمة الله وبركاته
-
السلام عليكم ورحمة الله وبركاته
مشكور أخي أحمد وجزاك الله خيراً
عمل رائع ومحكم ومفيد جداً كما أنه إحترافي أيضاً
جعله الله في ميزان حسناتك.
-
جزاك الله خيراً أخي الحبيب على اهتمامك وتعبك معي.
-
السلام عليكم ورحمة الله وبركاته
مشكور أخي الحبيب خزاني
الرجاء فتح الملف المرفق .. به شرح المطلوب
أكرر شكري وأسفي لاني فعلاً أتعبتك
جزاك الله خيراً وجعل ذلك في ميزان حسناتك
مطلوب مساعدة عاجلة: كود لاحضار التاريخ الذي يسبق ظهور العجز
في منتدى الاكسيل Excel
قام بنشر
السلام عليكم ورحمة الله وبركاته
أرجو المساعد والشرح في الملف المرفق.
جزاكم الله خيراً
Request.zip