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

عبدالله المجرب

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    5,409

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

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

  • Days Won

    47

 نوع المحتوي 

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

  1. عبدالله المجرب
    كل عام والجميع بخير الافضل نقل الوضوع الى المنتدى المفتوح
  2. عبدالله المجرب
    السلام عليكم اعذرني لعدم تواجدي بسبب انشغالي هذه الايام ====== مبدئياً جرب التعديل الذي تم على ملف الصورة في الورقة 1 الى العمود P البحث.rar
  3. عبدالله المجرب
    شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=38999&hl=
  4. عبدالله المجرب
    بارك الله فيك اخي ابوتميم
  5. عبدالله المجرب
    كل عام والجميع بخير ونسأل الله في هذه الايام المباركة ان يمن على اخواننا في سوريا بالنصر المؤزر على الطاغية بشار اللهم آمين
  6. عبدالله المجرب
    بارك الله فيك استاذ مجدي يونس على هذه المشاركات الفاعلة
  7. عبدالله المجرب
    ملف رائع واختصارات مفيدة بارك الله فيك اخي احمد وسلمت يمينك اخي الشهابي
  8. عبدالله المجرب
    السلام عليكم بداية لااعتقد انه يمكن عمل زر يعمل بالمعادلات == بما ان الترقيم تلقائي لما لا يتم استعمال الاسم في النقل (ما رايك)
  9. عبدالله المجرب
    بارك الله فيك استاذ مجدي
  10. عبدالله المجرب
    بارك الله فيك استاذنا الفاضل عبدالله باقشير
  11. عبدالله المجرب
    تفضل المرفق New folder (3).zip
  12. عبدالله المجرب
    ضع مرفق يوضح المشكلة
  13. عبدالله المجرب
    حياك الله اخي عباس شكراً على مداخلتك وتعليقك
  14. عبدالله المجرب
    نرجو الالتزام بقواعد المشاركة بخصوص العنوان وعدم وضع شرح للمطلوب في المشاركة ====== شاهد الصور المرفقة (من خصائص عناصر التحكم اضبطها مثل الصور)
  15. عبدالله المجرب
    عمل موفق اخي ابو حنين بارك الله فيك
  16. عبدالله المجرب
    السلام عليكم ضع مرفق به ما تريد بالضبط
  17. عبدالله المجرب
    في التنسيق الشرطي للخلايا استعمل هذه المعادلة (في الخلية B1) وانسخ للباقي =WEEKDAY($B1) = 6
  18. عبدالله المجرب
    السلام عليكم جرب هذا Private Const M As String = "C1:C120" Sub MyPrnt() Dim cl As Range Set MyRng = Range(M) For Each cl In MyRng If IsEmpty(cl) Then cl.EntireRow.Hidden = True Next ActiveSheet.PageSetup.PrintArea = "$A$1:$F$120" Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True MyRng.EntireRow.Hidden = False End Sub
  19. عبدالله المجرب
    السلام عليكم اخي مجدي هذا هو المطلوب بحذافيره والأهم منه ان يكون المرفق قابل للتعديل والاهم الطريقة تعلمني (وتعلم رواد المنتدى) كيف اعملها جزاك الله خير على هذا العمل المميز وكم نتمنى دروس منك في هذا المجال للفائدة
  20. عبدالله المجرب
    ممتاز استاذ مجدي ارجو تكملة الفكرة وشكراً على ردك السريع
  21. عبدالله المجرب
    جرب هذا الكود Private Sub CommandButton1_Click() Dim cl As Range, cel As Range For Each cl In Range("C2:C" & [C10000].End(xlUp).Row) For Each cel In Range("B2:B65535") If cl = cel Then cel.Delete Shift:=xlUp: GoTo 1 End If Next 1 Next End Sub
  22. عبدالله المجرب
    المطلوب كتالالي هل ممكن عمل شريحة يتم فيها استعراض محافظات البحرين الخمس وفي النهاية تتجمع لتكون خريطة دولة البحرين
  23. عبدالله المجرب
    الاخوة الكرام الشهابي ابوحنين محمود بارك الله فيكم على هذا العطاء الكريم
  24. عبدالله المجرب
    السلام عليكم استخدم هذاالكود Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [D2:OI1000]) Is Nothing Then If Not IsEmpty(Target) And Cells(1, Target.Column).Value = "السداد" Then Target.Offset(0, 1) = Date End If End Sub
  25. عبدالله المجرب
    تم فصل المشاركة ونرجو وضع مرفق به شرح للمطلوب
×
×
  • اضف...

Important Information

  I accept