اذهب الي المحتوي
أوفيسنا

أبو عبد النور

03 عضو مميز
  • Posts

    451
  • تاريخ الانضمام

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

  • Days Won

    1

كل منشورات العضو أبو عبد النور

  1. السلام عليكم، جرب المثال في المرفقات. TEL INDEX - alraqi_v002.rar
  2. السلام عليكم، بعد إذن ابو علي محاولة بالتنسيق الشرطي. بيان المؤسسة1 تنسيق شرطي قيمة_v001.rar
  3. وعليكم السلام، جرب ما بالمرفق. اصطررت لاستبدال اسماء الاوراق الى الانجليزية لاتمكن من تشغيل الكود (لان محرر الاكواد لدي لا يتعامل مع الاسماء العربية للاسف) الكود اضافة الى الترحيل يقوم حسب الموجود في العمود D من الصفحة الرئيسية باستحداث اوراق مطابقة للاسماء الموجودة في حالة عدم وجود تلك الصفحات. Tarheel_v001_ahmad.rar
  4. تابع هنا : https://www.officena.net/ib/search/?&q=معاينة قبل الطباعة
  5. بعد إذن الاخ سليم، انظر الى المرفق. PhoneListSep_v001.rar
  6. السلام عليكم، بعد إذن الاخ سليم، حل آخر من أجل تعميم الفائدة : Sub Test() With Sheet6 .Range("A6:I" & .Cells(.Cells.Rows.Count, "A").End(xlUp).Row).Offset(1).ClearContents End With Range("A6:AB100").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Sheet6.Range("W1:W2"), CopyToRange:=Sheet6.Range("A6:I6"), Unique:= _ False End Sub ترحيل البيانات اعتمادا على قيمة نصية.rar
  7. اطلع على هذا المثال ربما سياعدك في ملفك : https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=23237 تابع نتائج هذا البحث لعلك تجد فيها ضالتك : https://www.officena.net/ib/search/?&q=فورم تعديل اضافة
  8. في ورقة Search توجد هذه الاعمدة : تاريخ التحويل رقم حساب المستفيد اسم المستفيد مبلغ التحويل عملة التحويل وبالمقابل في ورقة data تجد هذه الاعمدة : التسلسل التاريخ المبلغ اسم المستفيد قيد من رقم الحساب مع عدم تسمية العمودين F و G وفي ورقة frame لا توجد مسميات للخانات المستعملة في الجدول ؟؟؟؟ اي جدول تستعمل ؟ الرجاء اعادة ترتيب الجداول في كل الاوراق مع مسميات رؤوس الاعمدة تسمية موحدة بالنسبة للبيانات المتشابهة.
  9. اهلا اخي الراقي، لتسهيل الامر يجب تسمية كل الاعمدة وتوحيد الجداول التي لها نفس البيانات في كل الصفحات. كما هناك عدة جداول في ورقة data، فاي جدول تستعمل لتخزين واستخراج بياناتك ؟
  10. عليكم السلام، جرب الملف المرفق. TestIf.rar
  11. صحح السطر التالي : Mh = WorksheetFunction.Match(II, .Range("E5:E" & lr), 0) + 4
  12. وعليكم السلام ورحمة الله، ما هو ترتيب البيانات التي تريد ترحيلها في ورقة Data ؟
  13. وعليكم السلام ورحمة الله، ارفق مثال على ذلك يكون احسن.
  14. وعليكم السلام ورحمة الله، والله نصيحة لك ولكل الاخوة الباحثين عن حل لمشكلاتهم. طرح الطلبات بهذا العدد الكبير من النقاط يجعل الكثير من المتطوعين - اللذين لديهم اوقات قليلة للدخول الى المنتدى - لا ينطلقون في التفكير للاجابة على تساؤلاتكم ان تبدأ دائما بمحاولة من جانبك وعند اي عقبة يتم طرح النقطة المبهمة هنا لتلقي الاجابة والمساعدة عليها لان بهذه الطريقة سوف تتعلم من حل مشكلة الى أخرى. سؤال ما هي النتائج المرجوة من معالجة ملفك النصي ؟ ومن اين تقوم باسخلاص الملف النصي هذا ؟ لان ما ارفقته عبارة عن بلوك واحد فقط وليس عبارة اسطر عديدة ؟
  15. تفضل تعديلا آخر. عند تعديل على اسم في الصفحة يتم تعديل في صفحة الأخرى_v004.rar
  16. والله هذا الذي تمكنت من التوصل اليه من تعديل في Private Sub UserForm_Activate() لضيق وقت طلبك. حاول ان تفهم الكود وتواصل التجربة او انتضر احد الاخوة ربما سياساعدك. الكود المضاف موجود بين '///////////----------------------- تعديل على فورم ادوية.rar
  17. حضرت لك نسخة ثانية من الملف يقوم فيها الكود بفحص الملفات ان كانت مفتوحة. Compare_v002.rar
×
×
  • اضف...

Important Information