اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

رجب جاويش

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    3492

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

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

  • Days Won

    41

 نوع المحتوي 

كل منشورات العضو رجب جاويش

  1. رجب جاويش
    أخى ابراهيم جرب هذا التعديل Sub ragab() On Error Resume Next Dim sdate As Date, cl As Range sdate = InputBox("أدخل التاريخ الذى تريد تحديد الخلية المقابلة له") For Each cl In [A6:A25] If sdate = cl Then cl.Select: MyArr = MyArr & cl & ",": Exit For Next x = UBound(Filter(Split(MyArr, ","), sdate)) + 1 If x = 0 Then MsgBox "لاتوجد نتائج لهذا البحث" End Sub
  2. رجب جاويش
    تفضل أخى paste_columns.rar
  3. رجب جاويش
    بعد اذن أستاذنا الفاضل / الباشمهندس طارق أخى الفاضل / مرعى هل تريد الضغط على زر موجود فى شيت 1 أم الضغط على الموجود فى شيت 2 اذا كنت تريد الضغط على الزر الموجود فى شيت2 فانك تجد الحل على هذا الرابط http://www.officena.net/ib/index.php?showtopic=42356&st=20 أما اذا كنت تريد تنفيذ الكود عند الضغط على الزر الموجود فى شيت1 فأخبرنى
  4. رجب جاويش
    تفضل أخى مثال توضيحى.rar
  5. رجب جاويش
    أخى ابراهيم لتعديل الكود يتم وضع السطر التالى On Error Resume Next ليكون الكود كالاتى Sub ragab() Dim sdate As Date, cl As Range On Error Resume Next sdate = InputBox("أدخل التاريخ الذى تريد تحديد الخلية المقابلة له") For Each cl In [A6:A25] If sdate = cl Then cl.Select: Exit For Next End Sub
  6. رجب جاويش
    تفضل أخى 10.rar
  7. رجب جاويش
    السلام عليكم تفضل أخى بالمعادلات والأكواد استخراج اكبر بالمعادلات والكود.rar
  8. رجب جاويش
    أختى الفاضلة ان ما فهمته من سؤالك هو نفس ما فهمه أستاذنا الفاضل / بن عليه وان كان قصدك شئ آخر فهل هو كما بالمرفق وان لم يكن كذلك فأرجو التوضيح أكثر dd.rar
  9. رجب جاويش
    هل تقصد هكذا إستخراج تواريخ الموظف حسب الإسم المختار طلب تعديل.rar
  10. رجب جاويش
    أخى الحبيب / جمال الفار أعمالك دائما مميزة ورائعة مثل شخصيتك حيث يكفى اسم الأستاذ / جمال الفار على أى عمل لنتأكد أنه عمل جميل يخدم شريحة كبيرة جدا من الزملاء بارك الله فيك وجزاك الله كل خير وجعل هذا العمل فى ميزان حسناتك ان شاء الله تقبل أرق وأجمل تحياتى أخوك / رجب جاويش
  11. رجب جاويش
    جزاك الله كل خير أخى فضل على هذه الكلمات الطيبة
  12. رجب جاويش
    أخى الحبيب / محمود جزاك الله كل خير والف شكر على كلماتك الطيبة أيها الدينامو النشيط أخى الحبيب / أبو أنس حاجب دعائك الطيب المبارك أجمل وأفضل شئ فى الدنيا اللهم اجعل لأخى الحبيب / أبو أنس حاجب من دعائه لنا بمثله وأكثر واجمعنا به فى مستقر رحمتك يارب العالمين
  13. رجب جاويش
    شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير
  14. رجب جاويش
    بعد اذن أخى أبو حنين أخى فضل بعد التحية تفضل أخى ما تريد حسب فهمى للمطلوب مايشبه الرقم القومى.rar
  15. رجب جاويش
    تفضل أخى Private Sub ComboBox1_Change() ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy") End Sub ونفس الفكرة يمكن تطبيقها على أشياء كثيرة date.rar
  16. رجب جاويش
    أخى الفاضل / هيثم تسلم ايديك عمل جميل ورائع
  17. رجب جاويش
    شكرا جزيلا أخى الفاضل / عبد العزيز كمال وجزاك الله كل خير على هذه الكلمات الطيبة هذا ما تعلمناه من أساتذه هذا المنتدى الكرام بذل العطاء والعلم لوجه الله تعالى وابتغاء مرضاته والتفانى فى تقديم المساعدة لمن يحتاجها وفقنا الله واياكم لكل خير
  18. رجب جاويش
    أخى الفاضل / مهند هذا حل آخر بدون استخدام العمود الاضافى المساعد استخلاص نتائج بشرطين.rar
  19. رجب جاويش
    أخى الفاضل / مهند شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير
  20. رجب جاويش
    السلام عليكم تفضل أخى مع العلم أنه تمت الاستعانه بعمود اضافى فى صفحة شجرة الحساب لربط المركز مع رقم الحساب الرئيسى استخلاص نتائج بشرطين.rar
  21. رجب جاويش
    بارك الله فى إخوانى الأعزاء أخى / محمود أخى / هاني عدلي ولتنوع الحلول هذا حل آخر طلب بسيط 2.rar
  22. رجب جاويش
    أخى الفاضل هذا هو التعديل المطلوب Private Sub UserForm_Initialize() ComboBox1.RowSource = "A2:A20" End Sub comboBox.rar
  23. رجب جاويش
    أخى الفاضل / هيثم مقبول جزاك الله كل خير وأتمنى لك كل التوفيق فى اتمام عملك وان شاء الله يكون عمل رائع يستفيد منه الجميع
  24. رجب جاويش
    بعد اذن أخى الحبيب / أبو حنين تفضل أخى التحقق من الصحة.rar
  25. رجب جاويش
    أخى الفاضل تم التعديل لكى يتم نسخ المعادلات مظبوط ولن يرجى تعديل المسلسل فى صفحة الرصد فقط بعد تنفيذ الكود بدايه 2.rar
×
×
  • اضف...

Important Information

  I accept