سليم حاصبيا

انت لا تريد ان تساعد نفسك من يقوم بعمل ملف من حوالي 20 صفحة و يقوم بتعبئة البيانات و من ثم المعادلات اللازمة؟؟؟؟ و انت لا تريد ان ترفع نموذج عما تريد ولو كات ملفاً وهمياً

جرب هذا الماكرو Option Explicit Sub Tarhil() Dim Sh As Worksheet Dim My_max%, My_min% Dim my_num%, Search_Num Set Sh = Sheets("ورقة1") If ActiveSheet.Name <> Sh.Name Then Exit Sub My_max = Application.Max(Sh.Range("a:a")): My_min = 1 Search_Num = Sh.Range("c2") If Not IsNumeric(Search_Num) _ Or Search_Num < My_min Or Search_Num > My_max Then MsgBox "Write a number between " & My_min & " and " & My_max Exit Sub Else Search_Num = Int(Search_Num) my_num = Sh.Range("a:a").Find(Search_Num).Row End If Range("c" & my_num) = Range("d2"): Range("f" & my_num) = Range("e2") End Sub اليك الملف مع الكود ترحيل مثال Salim.rar

إضافة الى ما ذكره الاخوة يمكن استعمال هذه المعادلة (CTRL+SHIFT+ENTER) =SUM(LARGE($ُE$3:$J$3,ROW($A$1:$A$2))) اذا لم نعمل معك المعادلة يمكن استبدال الفاصلة "," بفاصلة منقوطة ";" لتصبح المعادلة هكذا =SUM(LARGE($E$3:$J$3;ROW($A$1:$A$2))) لا تنس (CTRL+SHIFT+ENTER) اذا كنت تريدها يدون (CTRL+SHIFT+ENTER) جرب هذه المعادلة =SUMPRODUCT(LARGE($E$1:$J$1,ROW($A$1:$A$2)),(ROW($A$1:$A$2)^0))

حمل الملف للتعامل معه

ارفغ الملف الجديد لنعرف ما المشكلة

اعتقد هذا السطر في الكود يقوم بما تريد If Application.CountIf(ActiveSheet.Range("b1:b3"), Sheets("help").Range("a1")) < 3 Then Kill_Myself

جرب هذا الماكرو Option Explicit Sub Filter_me() Range("xfd1") = "الصف" Range("xfd2") = Range("i1") On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 Range("a2:k500").AdvancedFilter xlFilterInPlace, Range("xfd1:xfd2") Range("xfd1:xfd2") = vbNullString End Sub

جرب هذه المعادلة =IF((N($E$8)*N($K$8))=0,0,IF(OR($D$2={14,16,18,20,25,32,35}),($D$2/1000)*60,""))

جرب هذا الملف تحويل بيانات Salim.rar

جرب هذه المعادلة =IF(MOD(C7,1)=0,CEILING(C7,10),C7) ا ذا لم تعمل معك المعادلة استبدل الفاصلة "," بفاصلة منقوطة ";" (حسب اعدادات الجهاز عندك ) لتصبح هكذا =IF(MOD(C7;1)=0;CEILING(C7;10);C7)

بعد اذن اخي زيزو هذا الكود من سطرين Sub Salim() Range("F4", Range("F4").End(4)).ClearContents Range("B2", Range("B2").End(4)).AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Range("F4"), Unique:=True End Sub

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

في الملف الذي ارفقته العديد من عدو المعادلات الاول (أقصد الخلايا المدمجة ) لذلك لا يمكن التعامل معه على هذا الاساس تم معالجة الامر بازالة الخلايا المدمجة و و ضع معادلة واحدة في الخلية C29 تعمل مع (Ctrl+Shift+enter) ثم تسحب يساراً و نزولاً الملف مرفق المصنف2 SALIM.rar

الكود ينقل فقط البيانات من الصف 50 في كل صفحة(هذا الصف يمثل المجاميع) اذا كانت المجاميع عندك في صف اخر( غير 50) استبدل قيمة r في الكود الى الرقم الذي تريد

جرب الملف الصفحة Salim كشف حساب عميل Salim.rar

كي بعمل الكود كما تريد في حال ادراج شيات جديدة لعملاء جدد يجب ادراجها بين الشيت الثالث و اخر 3 شيتات

انظر الى الملف المرفق (فقط اضغط على الزر Run) صرافة_salim.rar

جرب هذا الكود Option Explicit Sub scl_sh() Dim i%, k% Dim r%: r = 50 Dim Tar_Sh As Worksheet Set Tar_Sh = Sheets("الموازنة") Tar_Sh.Range("b9:m37").ClearContents k = 9 For i = 3 To Sheets.Count - 3 With Tar_Sh .Range("b" & k) = Sheets(i).Name .Range("c" & k) = Sheets(i).Range("b8") .Range("d" & k).Resize(1, 10).Value = Sheets(i).Range("c" & r).Resize(1, 10).Value k = k + 1 End With Next End Sub

في الخلية H5 هذه المعادلة =IF(ISNA(MATCH($H$4,$A$3:$A$7)),$A$3,INDEX($A$3:$A$7,MATCH($H$4,$A$3:$A$7)+1)) في الخلية H6 هذه المعادلة =INDEX($A$3:$A$7,MATCH($H$5,$A$3:$A$7,0)+1) اذا لم تعمل معك المعادلة استبدل الفاصلة "," بفاصلة منقوطة ";" (حسب اعدادات الجهاز عندك )

تم معالجة الامر باسلوبين (اختر احدهما) البحث باكثر salim _2من شرط.rar

جرب هذا الملف البحث باكثر salimمن شرط.rar جرب هذا الملف

ربما يكون المطلوب (كبف تريد من اكسل ان يجمع لك ارقاماً بدون الدالة Sum) Salim Summation.rar

جربت هذ الشئ من بدري لم ينفع Zoom 100% واكثر

لا اعرف اذا حصل ذلك عند الجميع لكن صفحة أوفيسنا تظهر عندي بهذا الشكل(مصغرة)مع العلم ان Zoom 100% جميع صفحات المواقع الاخرى طبيعية حاولت الاتصال بالاستاذ محمد طاهر لكن لا يمكنني تحميل الصورة له Officena_picture.rar

بعد اذن اخي بن علية هذه المعادلات الثلاثة في الخلايا: I5 H5 G5 =DATEDIF(0,(($D$5+$E$5*30+$F$5*365.25)/4),"md") =DATEDIF(0,(($D$5+$E$5*30+$F$5*365.25)/4),"ym") =DATEDIF(0,(($D$5+$E$5*30+$F$5*365.25)/4),"y")