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

طارق محمود

أوفيسنا
  • Content Count

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

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

  • Days Won

    39

طارق محمود last won the day on مارس 12

طارق محمود had the most liked content!

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

719 Excellent

عن العضو طارق محمود

  • الإسم الفعلي
    فريق الموقع
  • تاريخ الميلاد 19 نوف, 1963

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

  • Gender (Ar)
    ذكر
  • Job Title
    Eng
  • بلد الإقامة
    مصر

وسائل التواصل

  • MSN
    tarekmahmoud_2@hotmail.com
  • Yahoo
    ziko_001

اخر الزوار

7,221 زياره للملف الشخصي
  1. السلام عليكم أخي الكريم لابد من إدراج مثال من بياناتك والشكل الذي عليه البيانات في الشيتين
  2. الأستاذ الفاضل / أحمد الكسادي ( ايو عيد) تحية طيبة لم انتبه لمشاركتك القيمة حيث سألني الأستاذ mostafa sharaf علي الخاص ولما حللتها له أحببت ان يستفيد غيره من الحل لذلك وضعت المشاركة هنا ثم انتبهت لبرنامجك العبقري جزاك الله خيرا
  3. السلام عليكم تصحيح ليس ممكن 32 مراقب مع الإستثناءات فلنتكلم مثلا عن اليوم الأول - الفترة الأولي فقط الكود سيوزع 16 مراقب في الصف الرابع ثم يذهب للصف الخامس (اليوم الأول - الفترة الأولي ) يجد أن مقابل ال 32 مراقب ، منهم 16 بيراقبوا في الصف الرابع + 2 مثلا إستثناءات = 18 ، الباقي 14 من ال 32 يعني مش ممكن يوفي المطلوب (16) إذا زودت عدد الملاحظيين إلي 34 لتغطية الإستثناءات يكون الحل ممكن وكلما زادت الإستثناءات كلما وجب عليك تزويد الملاحظيين تفضل هذا الملف به الكود الجديد للورقة الثانية (الجديد) به حل للإستثناءات ولكل مشاكلك إن شاء الله لكن إذا قللت عدد الملاحظيين عن 34 فلن يستطيع الكود إيجاد الحل التعديل على الكود توزيع اللجان على الملاحظين (2).xlsm
  4. السلام عليكم لماذا كل هذه التشكيلات الغريبة في الملف .؟ الملف كان ممكن يكون أسهل بكثير إذا لم يكن هناك MERGE - WRAPE ... الفونت 60 وأكثر .... الأفضل إعادة صياغة الملفات بالطريقة العادية ليسهل عمل المعادلات
  5. السلام عليكم السؤال غير واضح تستطيع مثلا بالتصفية (فلتر) إختياؤ الفراغ
  6. السلام عليكم أخي الكريم أنت كسلت أو نسيت !! تشرح ماتريد ظننت أن بالملف شرح لما تريد ولم أجد شيئا
  7. السلام عليكم تفضل الملف به اضافة للكود تمنع اعطاء المراقب فترتان فى وقت واحد توزيع الارقام بطريقة عشوائية2.xlsm
  8. السلام عليكم تفضل =IF(LEN(D3)>=10,"0"&LEFT(B3,2)&"-"&MID(B3,3,100), "0"&LEFT(B3,1)&"-"&MID(B3,2,100))
  9. السلام عليكم الأفضل تضع كل الحالات لذلك وضعت لك الحل من خلال أكثر من كود واحد الأول : عند تنشيط الورقة وهذا يراجع الصفوف من 15 إلي آخر صف ويخفي السطر أوتوماتيكيا بشرطين أن I=0 ، G<>0 أي يكون هناك سداد الثاني : عند حدث تنشيط الورقة وهذا يراجع الصفوف من 15 إلي آخر صف ويخفي السطر أوتوماتيكيا بشرطين أن I=0 ، G<>0 أي يكون هناك سداد الثالث : Un-Hide كود عادي ليس خاص بأحداث الورقة وهذا يظهر كل السطور التي تم إخفاؤها من قبل بالإضافة إلي كود رابع في حدث الملف عند فتح الملف يتم تفعيل الكود الأول إليك الأكواد والملف به الأكواد Private Sub Worksheet_Activate() LR = [I9999].End(xlUp).Row If LR < 15 Then LR = 15 For r = 15 To LR If Cells(r, "I") = 0 And Cells(r, "G") <> 0 Then Rows(r).EntireRow.Hidden = True Next r End Sub Private Sub Worksheet_Change(ByVal Target As Range) r = Target.Row If Cells(r, "I") = 0 And Cells(r, "G") <> 0 Then Rows(r).EntireRow.Hidden = True End Sub Sub un_Hide() LR = [I9999].End(xlUp).Row Rows(10 & ":" & LR).EntireRow.Hidden = False End Sub '=============================================================== Private Sub Workbook_Open() Sheets ("كشف الحساب ") LR = [I9999].End(xlUp).Row If LR < 15 Then LR = 15 For r = 15 To LR If Cells(r, "I") = 0 And Cells(r, "G") <> 0 Then Rows(r).EntireRow.Hidden = True Next r End Sub اخفاء السطر.xlsm
  10. السلام عليكم ورحمة الله أخي الكريم تفضل جرب الكود التالي Sub nn() For sh = 1 To Sheets.Count With Sheets(sh) LR = .[C9999].End(xlUp).Row .Range("A" & LR & ":H" & LR).Copy .[A17].PasteSpecial xlPasteValues With .Range("A18:H" & LR) .ClearContents .Interior.ColorIndex = xlNone End With End With Next sh End Sub ومرفق أيضا الملف وبه الكود اصناف2.xlsm
  11. أخي الكريم لا أعتقد أن هناك خطأ لكن انظر لهذه الصورة لضبط خيار التحديث
×
×
  • اضف...