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

رجب جاويش

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

  • Posts

    3492

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

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

  • Days Won

    41

 نوع المحتوي 

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

  1. رجب جاويش
    أخى الحبيب / حمادة عمر جزاك الله كل خير أخى الحبيب على هذا المرور العطر والكلمات الطيبة
  2. رجب جاويش
    أخى الفاضل / سمير جزاك الله كل خير
  3. رجب جاويش
    الأخت الفاضلة / سما محمد جربى الملف المرفق Book111.rar
  4. رجب جاويش
    أخى الفاضل جرب المرفق ترحيل مع vlookup2.rar
  5. رجب جاويش
    أخى الفاضل / أبو محمد أشرف جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة
  6. رجب جاويش
    أخى الفاضل / الزير جزاك الله كل خير وتسلم ايديك على التعديل الجميل
  7. رجب جاويش
    أخى الحبيب / حمادة عمر فكرة جميلة وتنفيذ رائع بجد تسلم ايديك على الاسلوب الرائع فى العرض وتنوع وسائل الايضاح أفكار مفيدة للجميع وسنكون جميعا متابعين لك ومستفيدين ان شاء الله بارك الله فيك وجزاك الله كل خير أخوك / رجب جاويش
  8. رجب جاويش
    الأخت الفاضلة / سما محمد بالشكل الجديد فى الفورم البيانات غير متناسقة لذا أرجو التوضيح هل يتم ادخال رقم المسلسل والتاريخ واسم المورد والعميل مرة واحدة لكل أربع بيانات أم ماذا
  9. رجب جاويش
    السلام عليكم لاثراء الموضوع ترحيل مع vlookup.rar
  10. رجب جاويش
    وللمشاركة مع الأحبة هذا حل آخر ترصيد ذمم متشابهة.rar
  11. رجب جاويش
    أخى الفاضل / himass جزاك الله كل خير
  12. رجب جاويش
    أخى الفاضل السطر التالى LR = Cells(Rows.Count, 1).End(xlUp).Row يأتى برقم آخر خلية تحتوى على بيانات فى العمود A بعد ذلك حلقة تكرار من الخلية A2 الى آخر خليه بها بيانات For Each cl In Range("A2:A" & LR) السطر التالىx = cl & " " & cl.Offset(0, 1) يعمل على دمج محتويات كل خلية من العمود A مع الخلية المجاورة بعد ذلك تم اضافة ناتج الدمج كعنصر جديد فى الكومبوبوكس عن طريق السطر التالى Me.ComboBox1.AddItem x أخوك / رجب جاويش
  13. رجب جاويش
    السلام عليكم هذا هو الكود المطلوب Private Sub CommandButton1_Click() LR = [A1000].End(xlUp).Row + 1 i = 1 For Each cl In Range("A" & LR & ":F" & LR + 3) Cells(cl.Row, cl.Column) = Me.Controls("textbox" & i) i = i + 1 Next For T = 1 To 24 Me.Controls("textbox" & T) = "" Next End Sub Book1.rar
  14. رجب جاويش
    أخى الفاضل / nasersaeed أرجو أرفاق ملف توضح به ما تريد فيمكن حله بدالة if بدلا من indirect
  15. رجب جاويش
    هل تقصد هكذا Private Sub UserForm_Initialize() LR = Cells(Rows.Count, 1).End(xlUp).Row For Each cl In Range("A2:A" & LR) x = cl & " " & cl.Offset(0, 1) Me.ComboBox1.AddItem x Next End Sub comboBox.rar
  16. رجب جاويش
    أخى الحبيب / محمود تسلم ايديك وتسلم أفكارك
  17. رجب جاويش
    وهذه طريقة أخرى ضبط معادلة اندكس3.rar
  18. رجب جاويش
    أخى الفاضل /romio52225 جزاك الله أخى الفاضل
  19. رجب جاويش
    وهذه فكره أخرى وممكن استخدام دالة indirect مباشرة بدون اضافات ولكن الاضافات هدفها جعل الخلية فارغة عند عدم وجود بيانات ضبط معادلة اندكس2.rar
  20. رجب جاويش
    تفضل أخى ضبط معادلة اندكس1.rar
  21. رجب جاويش
    أخى الفاضل / ابو عونى شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة والمرور العطر وجزاك الله كل خير أخوك / رجب جاويش
  22. رجب جاويش
    السلام عليكم ورحمة الله وبركاته الأخ والأستاذ الفاضل / عبد الله المجرب الأخ والأستاذ الفاضل / جمال دغيدي الأخ والأستاذ الفاضل / أحمد فضيله ألف ألف ألف مليون مبروك وإلي الأمام دائما طبعا تستحقون ذلك بجدارة وبالتوفيق ان شاء الله ومن تقدم الى تقدم ومن نجاح الى نجاح
  23. رجب جاويش
    أخى الفاضل / abumode75 جزاك الله كل خير
  24. رجب جاويش
    أخى الفاضل / أبو عبد الملك كما قال لك أخى الحبيب / محمود الخطأ فعلا فى عنوان الموضوع وهو ( المساعدة فى حل هذا السؤال ) حيث ينبغى أن يكون العنوان دالا على المحتوى
  25. رجب جاويش
    أخى الفاضل / أبو عبد الملك اليك حل سؤالك مع رجاء من أحد الأخوة المشرفين بتغير العنوان Q1.rar
×
×
  • اضف...

Important Information

  I accept