سليم حاصبيا

لم ار اي كلمة زراعة في الملف كله

المعادلة المطلوبة =IF(G5="","",INDEX(Prices!$C$8:$L$15,MATCH($E5,Prices!$C$8:$C$15,0),$G5+1)) توضع في H5 وتسحب نزولاً (بدون Ctrl+Shift+Enter) شاهد المرفق الصفحة Salim آخر سعر salim1.rar

اضف هذا السطر الى الكود مباشرة قبل End Sub Target_Sheet.Columns.AutoFit

حصرة الاستاذ مجمد طاهر المحترم اريد فقط ان اعرف ماذا يعني هذا الرقم الذي يظهر عندي باستمرار ولا يمكن التخلص منه بل انه يتزايد كل فترة Capture1.rar

الملف كبير جداً حوالي 4 ميغا اختصر منه و ارسل نموذج للعمل عليه

جرب هذا الملف oumr.rar

1-ادخل هذه المعادلة في F5 2 -اضغط Ctrl+Shift+Enter و ليس Enter وحدها =IF($E5="","",IF(SUMPRODUCT(--(Prices!$D8:$Z8<>""))>0,INDEX(Prices!$D8:$Z8,MATCH(TRUE,Prices!$D8:$Z8="",0)-1),INDEX($F$4:F4,MATCH(E5,$E$5:E5,0)+1))) 3- اسحب نزولاً

اضغط Ctrl+F1 ليختفي الشريط اضفط مرة اخرى ليظهر

جرب هذا الماكرو Sub calcl1() Application.ScreenUpdating = False My_max = Application.Max(Sheets("تسوية").Range("a:a")) Sheets("تسوية").Range("h13").Formula = "=IFERROR(SUMPRODUCT(SUMIF(INDIRECT(""'""&$L$2:$W$2&""'!$B$13:$B$262""),$C13,INDIRECT(""'""&$L$2:$W$2&""'!""&CHAR(COLUMNS($A$1:A1)+70)&""$13:""&CHAR(COLUMNS($A$1:A1)+70)&""$262""))),"""")" Sheets("تسوية").Range("h13").AutoFill Destination:=Range("h13:z13"), Type:=xlFillDefault Sheets("تسوية").Range("h13:z13").AutoFill Destination:=Range("h13:z" & My_max), Type:=xlFillDefault Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub لملف يعمل عندي بصورة طبيعية حتى بعد زيادة عدد الاعمدة ربما السبب في الجهاز عندك

تم معالجة الامر يسمح بالكتابة فقط في العامودين B & H آخر سعر salim.rar

انسخ هذه المعادلة الى الخلية G5 واسحب نزولاً =LOOKUP(MAX(Prices!$D8:$L8)+1,Prices!$D8:$L8)

Sub find_for_me() Dim Ws1, Ws2, Ws3 As Worksheet Dim lr1, lr2 As Integer m = 0 Set Ws1 = Sheets("العاملة"): Set Ws2 = Sheets("ملف 265"): Set Ws3 = Sheets("الغير العاملين") Ws3.Range("a2:h500").ClearContents lr1 = Ws1.Cells(Rows.Count, 1).End(3).Row lr2 = Ws2.Cells(Rows.Count, 1).End(3).Row Ws2.Select '================================== Ws2.Range("a2").Activate Do Until ActiveCell.Offset(1, 0) = "" On Error Resume Next Set f_r = Ws1.Cells.Find(What:=ActiveCell, After:=Ws1.Range("a1")) If f_r Is Nothing Then r = ActiveCell.Row Ws2.Range(Ws2.Cells(r, 1), Ws2.Cells(r, "H")).Copy Ws3.Cells(m + 2, 1) m = m + 1 End If ActiveCell.Offset(1, 0).Activate Loop End Sub جرب هذا الكود

جرب هذا الملف BookSLIM.rar

استكشف ايضاً الدالتين T & SIGN

N هي دالة في الكسل تعمل كما يلي: اذا كانت الخلية الهدف رقماُ تعطينا هذا الرقم اما اذا كانت الخلية الهدف نصاً أو فارغة تعطينا صفر

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

لا افهم لما تطلب نفس الموضوع 5مرات متتالية تم حذف 4 منها

جرب هذا الملف ايضاً ربما يكون ما تطلبه SEARCH_BY LETTERS.rar

انسخ هذه المعدلة الى الخلية B4 (واسحب نزولاً) انها تعمل تسلسل اذا كنت الخلية المقابلة رقماً اكبر من 0 =IF(N($C4)>0,MAX($B$3:B3)+1,"")

يجب ان تكتب الاسم كاملاً (هذا ما طلبته انت بنفسك) او في حال انك تريد الاسم الأول او (عدة حروف الاوائل من الاسم عندها يجب اعادة البرمجة)

في هذا الملف يمنكك عمل الاثنين معاً اما الكتابة مباشرة في الخلية او البحث من القائمة المنسدلة selaect by name1.rar

دعنا نتكلم بلغة الاكسل ماذا تريد بالضبط /بماذا تريد استبدال True & False اعط مثالاً توضيحياً

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

جرب هذا الماكرو Sub calcl1() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual On error goto 1 My_max = Application.Max(Sheets("تسوية").Range("a:a")) Sheets("تسوية").Range("h13:z" & My_max).ClearContents Sheets("تسوية").Range("h13").Formula = "=IFERROR(SUMPRODUCT(SUMIF(INDIRECT(""'""&$L$2:$W$2&""'!$B$13:$B$262""),$C13,INDIRECT(""'""&$L$2:$W$2&""'!""&CHAR(COLUMNS($A$1:A1)+70)&""$13:""&CHAR(COLUMNS($A$1:A1)+70)&""$262""))),"""")" Sheets("تسوية").Range("h13").AutoFill Destination:=Range("h13:z13"), Type:=xlFillDefault Sheets("تسوية").Range("h13:z13").AutoFill Destination:=Range("h13:z" & My_max), Type:=xlFillDefault 1: Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

اليك الملف جاهز للعمل (القائمة المنسدلة مطاطة (اي انها تستجيب لاي تغييرات في البيانات و لا تذكر المكرر الا مرة واحدة selaect by name.rar