سليم حاصبيا

اين الملف المرفق

الجدول عندك موصوع بطريقة لا يفهمها الاكسل (هناك خلايا مدمجة كثيرة) تم تغيير تصميم الجدزل ومعالجة المعادلات term_comp.xls

لا أحد بستطيع التعامل مع صورة الرجاء تحميل الملف نفسه و فيه شرح لما تريد

جرب هذا الكود Option Explicit Sub Create_Hyper() Dim wsSheet As Worksheet Dim lnRow As Long Application.ScreenUpdating = False ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sheets("Sheet1").Range("H5:H" & Rows.Count).ClearContents lnRow = 5 For Each wsSheet In Sheets If wsSheet.Name <> "Sheet1" Then With Sheets("Sheet1") .Hyperlinks.Add .Cells(lnRow, "H"), "", _ SubAddress:="'" & wsSheet.Name & "'!A1", _ TextToDisplay:="Goto:" & wsSheet.Name End With lnRow = lnRow + 1 End If Next wsSheet Salim_button Application.ScreenUpdating = True End Sub '============================= Sub select_sheet() Sheets("Sheet1").Select End Sub '============================= Sub Salim_button() Dim x%: x = Sheets.Count Dim i% For i = 1 To x If Sheets(i).Name <> "Sheet1" Then Sheets(i).Buttons.Delete With Sheets(i).Buttons.Add(218.5, 1.5, 170, 31) .OnAction = "select_sheet" .Font.Name = "Calibri" .Font.FontStyle = "Bold Italic" .Font.ColorIndex = 3 .Characters.Text = " SALIM SAY: Go_To_SHEET1" End With End If Next End Sub الملف مرفق Hyper_to_sheets.xlsm

جرب هذا الكود Option Explicit Sub find_comm() Dim My_Sh As Worksheet Set My_Sh = Sheets("المطلوب") Dim r%, I%, K%, Col%, m%, com$, Ro% m = 5: Col = 2 My_Sh.Range("a5").CurrentRegion.Offset(1).ClearContents For I = 1 To Sheets.Count If Sheets(I).Name <> My_Sh.Name Then My_Sh.Cells(Ro + 5, 1) = Sheets(I).Name: Ro = Ro + 1 r = Sheets(I).Cells(Rows.Count, 2).End(3).Row If r < 5 Then GoTo next_i For K = 5 To r On Error Resume Next com = Sheets(I).Cells(K, 2).Comment.Text If Err.Number = 0 Then My_Sh.Cells(m, Col) = Cells(K, 2).Address Col = Col + 1 End If Next K End If m = m + 1: Col = 2 next_i: Next I End Sub الملف مرفق Salim_المطلوب - .xlsm

توجد مشكلة في الملف

Validation مطلوب هذه المعادلة =INDIRECT(SUBSTITUTE($I4," ","_"))

فهمت عليك ولكن السؤال هو : من يحدد هذا الخطأ؟؟ اذا كان اللون الاحمر هو الذي يحدده فأنت ستقوم بتلوبن كل خلية تاريخها خطأ من وجهة نظرك و يمكن ان تكون صحيحة من وجهة نظر الاخرين و هنا المشكلة اذ يجب عليك ان تقوم بجرد كل الخلايا واحدة واحدة حتى النهاية اذا كان الامر كذلك فالأفضل تصحيح الخلية بدل تلوينها

وكيف تعرف ان تاريخ معين خطأ مثلا لنفرض ان 11/5/2018 هو خطأ ماذا تريد مكانه

قلت ارفع نموذجاً وليس ملف كامل بحجم 1 ميغا (يكفي 10 صفوف) حتى لا نضيع بامعادلات و بدون زوزقة ألوان تبهر النظر

حاول اختصار الملف الى جدولين او ثلاثة لمتابعة جركة المعادلات

ارفع نموذجاً عما تريد مع النتائج المتوقعة (يدوياً) للبحث عن الحل

ربما الحل هنا الصفحة Salim من هذا الملف Question.xlsx

لا أعلم اذا كان هذا المطلوب 123.xlsx

بعد اذن الاستاذ محمد هذا المغادلة البسيطة بدون تلك الشروط المتكررة =VLOOKUP(B3,{0,"Weak";15000,"Good";20000,"Excellent"},2) الملف Without IF.xlsx

الملف كبير جداً _1.2 ميغا) يصعب التعامل معه وفوق ذلك محمي بكلمة مرور (الكود) الرقم 40005000 لا تستحيب ارسل ملفاً مصغراً فيه بياتات (ليس اسم واحد ) و بدون زوزوقة ألوان يضيع فيها الانسان

لا أعتقد انه بوجد Evnent للــ Insert_row

هل جربت هذه المعادلة =ABS((MINUTE(MOD((SUBSTITUTE(SUBSTITUTE(A2," م","")," ص","")*1),1)))-(MINUTE(MOD((SUBSTITUTE(SUBSTITUTE(B2," م","")," ص","")*1),1))))

لاثراء الموضوع FFF_sal.xlsx و هذا ملف اخر (كنت قد حضرته لك معادلة واحدة )و لكن بدون المواد Book_salim_new_super.xlsx

لا أعرف اذا كان هذا المقصود بالضبط Aksat_Remains.xlsm

لم افهم اي شيء من الملف

Use this formula in C2 =IF(ROWS($A$1:A1)>$A$2,"",$A$2-(ROWS($A$1:A1)-1)) file included Book1_s.xlsx

هات الملف مع البيانات و سأجرب

الحمدلله تمت على خير لكن في المرة القادمة توفيراً للوقت أرجو ادراج جدول كما يفهمه اكسل (بدون خلايا مدمجة وتحيطه من كل الجهات صفوف فارغة واعمدة فارغة) تم شرح ذلك في مشاركة سابقة بهذا الموضوع

معادلة جديدة مع اختصار الجدول (عامود واجد للقاعات) الجدول يحتوي على معادلة واجدة تكتب في الخلية D9 و تسحب يساراً 9 أعمدة ثم نزولاُ قدر ما تريد الملف يحنوي على Define Names R_1_1 R_1_2 الخ....يمكن اكتشافها من خلال Name Maneger =IF($C9="","",IF(COUNTIF(INDIRECT("R_"&INT((COLUMNS($A$1:A1)-1)/3)+1&"_"&MOD(COLUMNS($A$1:A1)-1,3)+1),$C9)=0,"No Macth",INDEX(إجمالي!$B$11:$B$50,MATCH($C9,INDIRECT("R_"&INT((COLUMNS($A$1:A1)-1)/3)+1&"_"&MOD(COLUMNS($A$1:A1)-1,3)+1),0)))) Book_salim_new.xlsx