اذهب الي المحتوي

احمدزمان

أوفيسنا
  • Content count

    4,219
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    11

احمدزمان last won the day on February 13

احمدزمان had the most liked content!

السمعه بالموقع

325 Excellent

عن العضو احمدزمان

  • الرتبه
    فريق الموقع
  • تاريخ الميلاد 10 يون, 1976

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    تاجر
  • بلد الإقامة
    KSA
  • الإهتمامات
    السيارات و المركبات

اخر الزوار

4,593 زياره للملف الشخصي
  1. وعليكم السلام و رحمة الله وبركاته اعتذر منك اخي الفاضل حاولت فتح الملف و لم اسنطيع تظهر نفس الرسالة في 2003 و 2010 و لم اتوصل للسبب
  2. و عليكم السلام و رحمة الله وبركاته اخي الفاضل م وليد اهلا وسهلا و مرحبا بك بين اخوانك فضلا اضافة اي شرح للمطلوب ولو القليل مع ملاحظة جزاك الله خيرا و احسن الله اليك
  3. وعليكم السلام و رحمة الله وبركاته بعد اذن اخي الفاضل عاطف اخي الذيب لم تحدد في السؤال نوع ملحق الملف هل هو XLS او غير ذلك وما هو اصدار اوفيس او اكسل الذي تحاول الفتح للملف عليه 2003 -2007 - 2010 - 2013
  4. احمدزمان

    الاكسيل عندي ضرب مساعده

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

    حساب مجموع الكميات المعتمدة فقط

    وعليكم السلام و رحمة الله وبركاته اخي رضا فضلا التوضيح يتم التجميع من اي عمود و يتم التجميع الى اي عمود
  7. السلام عليكم و رحمة الله وبركاته ابحث عن موضوع للأستاذ القدير طاهر اسمه مجمع البيانات في اكسل ان شاء الله تجد به ماتريد https://www.officena.net/ib/topic/38355-مكتبة-الموقع-مُجمِع-البيانات-للاكسيل-excel-data-collector/
  8. السلام عليكم و رحمة الله وبركاته بعد الشكر و التقدير لكلا من اخوني الأفاضل زيزو و ali على الحلول الصحيحة و الرائعة التي قدموها ================================ هذا حل ثالث باستخدام التصفية المتقدمة بالكود اولا : الخانات الحمراء مهمة جدا لعمل الكود ثانيا : لن يقف في طريقك اي معلومة ناقصة اذا ادخلت اسم العميل فقط = تظهر لك بيانات هذا العميل في جميع المخازن اذا ادخلت اسم المخزن و تركت خانة اسم العميل فارغة = تظهر لك كل بيانات هذا المخزن لكل العملاء اذا تركت كلتا الخانتين فارغة = تظهر لك كل البيانات الموجودة في ورقة 1 Sub srsh() Dim RN1 As Range, RN2 As Range, RN3 As Range Set RN1 = Sheets("æÑÞÉ1").Range("A4:L99") Set RN2 = Sheets("æÑÞÉ2").Range("K1:L2") Set RN3 = Sheets("æÑÞÉ2").Range("A4:L99") RN1.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=RN2, CopyToRange:=RN3, Unique:=False End Sub كشف حساب عميل حسب المخزن.xlsm
  9. السلام عليكم و رحمة الله وبركاته مرفق الشرح شرح كوود ترحيل.doc
  10. احمدزمان

    لماذا بطيء عملية الفرز؟

    و عليكم السلام استبدل الكوود السابق بالكوود الجديد
  11. احمدزمان

    لماذا بطيء عملية الفرز؟

    او جرب هذا الكوود الذي يؤدي نفس الغرض Sub macro1() ' Dim JNS, SAF, FSL Dim RN1 As Range Set RN1 = Range("A2:O555") JNS = Range("H1").Text SAF = Range("I1").Text FSL = Range("J1").Text Application.ScreenUpdating = False If JNS = "" Then RN1.AutoFilter Field:=8 Else RN1.AutoFilter Field:=8, Criteria1:=JNS End If If SAF = "" Then RN1.AutoFilter Field:=9 Else RN1.AutoFilter Field:=9, Criteria1:=SAF End If If FSL = "" Then RN1.AutoFilter Field:=10 Else RN1.AutoFilter Field:=10, Criteria1:=FSL End If Application.ScreenUpdating = True End Sub
  12. احمدزمان

    لماذا بطيء عملية الفرز؟

    السلام عليكم و رحمة الله وبركاته جرب اضافة خاصية منع تحديث الشاشة اثناء عمل الكود كما يلي Sub Filter_me() Rem========ÊÕÝíÉ ÌÏæá ÈÔÑØíä Application.ScreenUpdating = False Range("xfB1") = "ÇáÕÝ" Range("xfB2") = Range("i1") Range("xfC1") = "ÇáÌäÓ" Range("xfC2") = Range("H1") Range("xfD1") = "ÇáÝÕá" Range("xfD2") = Range("J1") On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 Range("a2:L500").AdvancedFilter xlFilterInPlace, Range("xfB1:xfD2") Range("xfB1:xfD2") = vbNullString ThisWorkbook.Save Rem======== Application.ScreenUpdating = True End Sub
  13. السلام عليكم و رحمة الله وبركاته تم التعديل لكود الترحيل وتم اضافة SUM(T6) للدالة في العمود AN و ان شاء الله تظبط هيك مرتب.rar
  14. اعظم الله اجركم و احسن الله عزائكم و غفر الله لميتكم ===== كله محلول باذن الله نتابع لاحقا ان شاء الله
×