سليم حاصبيا

انسخ هذه المعادلة الى الخلية H4 واسحب يميناً =IF(OR(AND(I3="X",H3<>"x")+AND(H3="X",I3<>"x"))*1=1,"√","")

انسخ هذه المعادلة الى الخلية G2 واسحب يميناً و نزولاً =IFERROR(VLOOKUP($F2,INDIRECT(IF(ISNA(MATCH($F2,Sheet2!$D$2:$D$16,0)),"Sheet3!$e$1:$g$4","sheet2!$d$1:$f$4")),COLUMNS($F$1:G1)),"-")

تم معالجة الامر New salim.rar

يمكن ان يكون المطلوب اذا لم تعمل المعادلة استبدل فيها الفاصلة بفاصلة منقوطة معادلة جمع بشرط معطي salim.rar

الخلل كما ذكرت لك هو في السطر For حبث ان الرقم بجب ان يكون 284 و ليس 183

=IF(AND([@[Amount (SR)]]<>"",[@[Total LFP SR]]<>""),IF([@[Amount (SR)]]<>[@[Total LFP SR]],"there is a difference "&[@[Total LFP SR]]-[@[Amount (SR)]],"Zero"),"") انسخ هذه المعادلة الى الخلية AY2 و اسحب نزولاً (و كذلك الامر بالنسبة لبقية الاعمدة)

استبدل الرقم 183 في السطر For i = 2 To 183 بـ 284 اليك الكود التالي الذي يقوم بنفس العمل و اسرع بكثير حيث انه يقوم بتجميع كل الاعمدة المطلوبة وحذفها دفعة واحدة Sub Delete_Zero() Dim rg_to_del As Range, i As Integer Application.ScreenUpdating = False For i = 2 To 284 If Cells(284, i) = 0 Then If rg_to_del Is Nothing Then Set rg_to_del = Cells(284, i) Else Set rg_to_del = Union(Cells(284, i), rg_to_del) End If End If Next i rg_to_del.EntireColumn.Delete Application.ScreenUpdating = True End Sub

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

جرب هذا الماكرو Sub del_empty_rows() Dim My_Rg_Del As Range Dim lr, i As Integer Dim my_sheet As Worksheet Set my_sheet = Sheets("ورقة1") lr = my_sheet.Cells(Rows.Count, 1).End(3).Row For i = 2 To lr If Cells(i, "p") = 0 And Cells(i, "q") = 0 Then If My_Rg_Del Is Nothing Then Set My_Rg_Del = Range("p" & i) Else Set My_Rg_Del = Union(Cells(i, "p"), My_Rg_Del) End If End If Next My_Rg_Del.EntireRow.Delete End Sub

(بارك الله بك اخي ياسر على هذه المعادلة الرائعة والتي لم تخطر على بالي (و انا بخبط راسي كي ابتدع حلاً مناسبا على كل حال هذا حل اخر بالكود (الصفحة My_sheet) Rifi_Salim 1.rar

هذا احد الحلول Rifi_Salim.rar

يمكنك ذلك من خلال الكنابة مباشرة في الخلية

جرب هذا الملف التصفية بين تاريخين salim.rar

جرب المرفق (لا تنس تسجيل الاعجاب) الصفحة الثالثة A Da3n_Moudin salim advanced.rar

ربما ينفع هذا الكود Option Base 1 Sub rep() Dim mar() mar = Array("1", "2") For a = LBound(mar) To UBound(mar) u = mar(a) For b = LBound(mar) To UBound(mar) v = mar(b) For c = LBound(mar) To UBound(mar) x = mar(c) For d = LBound(mar) To UBound(mar) t = mar(d) Cells(m + 1, 1) = u & v & x & t m = m + 1 Next: Next: Next: Next End Sub

اخي ياسر يسرني ان أقوم بتقديم أول الحلول Permutation.rar

انسخ هذه المغادلة الى الخلية G4 , و اسحب نزولاً =IF(AND($E4<>"",$F4<>""),$E4-$F4,"")

ارفع الملف (او جزء منه اذا كان كبيراً)للمعالجة

انسخ هذه المعادلة الى الخلية B2 واسحب نزولاً =IFERROR(INDIRECT("'"&A2&"'!E4"),"") اذا لم تعمل معك المعادلة استبدل الفاصلة بالفاصلة المنقوطة

جرب هذا الملف الغاء المكرر في القائمة المنسدلة Salim.rar

هل تقصد مثل هذه الشيء vlooup_dif_sheets.rar

انظر الى الورقة 3 تجريبي salim 1.rar

جرب هذا الملف تجريبي salim.rar

ارفع نموذجاً لما تريده ولا تشترِ سمكاً في البحر

ربما يكون المطلوب A Da3n_Moudin salim.rar