Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الـعيدروس

Previous Moderators
  • Content Count

    3,277
  • Joined

  • Days Won

    20

الـعيدروس last won the day on November 27 2019

الـعيدروس had the most liked content!

Community Reputation

708 Excellent

About الـعيدروس

  • Rank
    مشرف سابق
  • Birthday 04/10/1987

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    عمل خاص
  • Location
    اليمن
  • Interests
    استغفرك ربي واتوب اليك

Recent Profile Visitors

4,277 profile views
  1. من الصور المرفقه من قبلك كل الداتا لشهر 1 فقط لايوجد شهر 2
  2. السلام عليكم تم بالمرفق افضل عدم استخدام التنسيقات الشرطية اذا تريد ملف عملي ابعد عن التنسيقات والالوان لانها مع الوقت ستسبب لك بطئ في الملف بإمكانك استخدام تقارير لاي بيانات تريدها وباقي الطلبات ان شاء الله اجد الوقت وابشر او بإمكان الاساتذة الافاضل يدلو بدلوهم ليتم ملفك كما ترجو وزيادة لاني حاليا مسافر وسأعود قريباً ان شاء الله في امان الله برنامج المعتمرين _A4.xlsm
  3. اخ ايهاب هل تريد جميع الصفحات في مدى واحد ام كل ورقة في صفحة منفردة ؟ اذا كان طلبك صفحة منفردة فالكود السابق بيعمل معك تمام
  4. تأكد اخ احمد غير صحيح ماتقول ارفق مثال لتجربة الكود
  5. ارفق الملف الذي نقلت عليه الاكواد لنرى اين الخلل بالضبط
  6. كما اشار استاذنا الحبيب احمد زمان بإمكانك استخدام التصفية او في حالة ملفك بشكلة الحالي وعدد الاسطر بالامكان استخدام هذا التعديل Sub MUTAKHEEN_ALL() Dim FS As Worksheet, TS As Worksheet Dim ER, FSN, FR, TR, A, Rw Dim Rn As Range Dim Rng As Range Set App = WorksheetFunction Set TS = Sheets("تأخير") TS.Range("A6:S500").Clear TR = 6 For FSN = 1 To Sheets.Count Set FS = Sheets(FSN) If FS.Name = TS.Name Then GoTo 9 With FS On Local Error Resume Next A = App.Match(.Name, TS.Range("J:J"), 0) If Err <> 0 Then If App.CountIf(.Range("N:N"), "<0") = 0 Then GoTo 9 Rw = TS.Cel
  7. تفضل شرح مبسط في الكود تم انشاء جدول الذي اسمة الجدول3 في الشيت A_2.xlsm
  8. السلام عليكم بعد اذن استاذنا ابو تامر جرب المرفق CONSULTATION_A.xlsm
  9. السلام عليكم بعد اذن استاذنا الحبيب احمد زمان هذا تعديل بسيط على الكود Sub MUTAKHEEN_ALL() Dim FS As Worksheet, TS As Worksheet Dim ER, FSN, FR, TR, A, Rw Set App = WorksheetFunction Set TS = Sheets("تأخير") TS.Range("A6:S500").Clear TR = 6 For FSN = 1 To Sheets.Count Set FS = Sheets(FSN) If FS.Name = TS.Name Then GoTo 9 With FS On Local Error Resume Next A = App.Match(.Name, TS.Range("J:J"), 0) If Err <> 0 Then If App.CountIf(.Range("N:N"), "<0") = 0 Then GoTo 9 Rw = TS.Cells(TS.Rows.Count, "J").End(xlUp).Row + 1 TS.Rows(2).Copy TS.Range("A" & Rw) TS.Range("A3
  10. السلام عليكم مالذي تريد عمله بالضبط المرفق به طلبك بخصوص الاختيار A_1.xlsm
  11. تم التعديل على المرفق تفضل برنامج المعتمرين _A3.xlsm
  12. ولك مثل دعائك اضعاف اخ بشير او بالامكان عبر الكود التالي اخف من السابق بحيث الحلقة تمشي فقط على الخلايا الفارغة في نطاق البيانات والتي تعتبر افتراضيا فيها دمج Sub Ali_Merg() Dim C_Rng As Object Dim A, B Application.ScreenUpdating = False For Each C_Rng In Application.ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks) With C_Rng If .MergeCells Then A = .MergeArea.Address: B = .Value .UnMerge: Range(A).Value = B End If End With Next Application.ScreenUpdating = True End Sub
  13. تفضل تأكد من المخرجات واذا ظهرت لديك اخطاء او ملاحظات بالخدمة ملاحظة ادخال نوع السكن حاول الادخال عبر القائمة لكي لايظهر لديك اختلال بتقرير التسكين برنامج المعتمرين _A3.xlsm
×
×
  • Create New...