سليم حاصبيا

جرب هذا الملف طباعة salim.rar

ادخل الى المعادلات و عير الرقم 200 الى اي رقم تريد (6000000)

جرب هذا الشيء تكرار salim.rar

تم التعديل غلى الملف ليظهر كل الاسماء حسب البحث دفعة وحدة تعديل احمد عبد الرحمن salim.rar

جرب هذا الملف اظهار الاسماء عند كتابة الاحرف الاولى وعند الضغط على الاسم المراد تأتي البيانات الموجودة في الشيتات salim.rar

اثراء للموضوع هذه المعادلة =MATCH($E$3,$A$3:$A$5,0) او هذه =COUNTA(INDIRECT("A"&MATCH($E$3,$A$3:$A$5,0)+2&":A3")) او هذه (يلزمها CTRL+SHIFT+ENTER) =MAX(IF($A$3:$A$5=$E$3,ROW($A$1:$A$3),"")) أو هذه =SUMPRODUCT(--($A$3:$A$5=$E$3),{1;2;3}) هذا بالاضافة الى دالة IF مع توابعها (IF كذا اعطني كذا ...)

جاول استبدا الفاصلة بفاصلة منقوطة

جرب هذا الشي المعادلات محمية لعدم العبث يها غن طريق الخطأ تعمير salim.rar

تفضل اخي الملف جاهز مع الكود ( الكود لا ينفذ العمل الا اذا امتلأ اخر صف في الجدول ) WALID salim1.rar

اكتب هذه المعادلة في الخلية C2 واسحب نزولاً =IF(A2="","",299+ROWS($C$2:C2))

مشكور جداً اخي رجب على هذه الملاجظات القيّمة بالنسبة للملاحظة الاولى :كما تلاحظ من الكود هناك اختيار :انه اذا كان الصف ناقصاً نحصل غلى رسالة بهذا الشأن و للمستخدم حرية الاختيار اما الترحيل أو لا بالسبة للملاحظة الثانية :ربما كنت غلى حق في ذلك ،ولكن ماذا لو اراد المستخدم ان تكون البيانات بشكل تراكمي (كل يوم بيومه ) عندها يلجأ في بدايةالنهار الى مسح البيانات من الصفحة الرئيسية (بواسطة الزر المخصص لذلك ) و بيدأ بتسجيل الجديدة

جرب هذا الكود الكود لا ينفذ العمل الا اذا امتلأ اخر صف في الجدول Private Sub Worksheet_Change(ByVal Target As Range) lr = Cells(Rows.Count, 2).End(3).Row If Target.Row = lr Then If Application.WorksheetFunction.CountA(Range(Cells(lr, 1), Cells(lr, 8))) = 8 Then Range("A10:H" & lr).Select ActiveWorkbook.Worksheets("مثال1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("مثال1").Sort.SortFields.Add Key:=Range("E11:E" & lr) _ , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _ "محاسب,شئون عاملين,مهندس ميكانيكا,مهندس كهرباء,سائق,فني تشغيل", DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("مثال1").Sort .SetRange Range("A10:H" & lr) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End If End If End Sub

سجل معلوماتك في صفحة واحدة و ارسلها كل مغلومة الى صفحتها المخصصة writ_In_One Sheet.rar

كود بسيط لهذا الغرض Sub xx() Columns.Hidden = True Range("a1,c1,e1,j1,o1,z1").EntireColumn.Hidden = False End Sub

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

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

ارجو ان يكون المطلوب 1 salim.rar

يمكن ان يكون المطلوب هناك سؤال؛هل لوقت الخروج غلاقة الحسابات حسومات التأخير.rar

صديقي البرنامج لا يحسب لك بداية الاسبوغ او نهايتة انه يحسب بين تاريخين كم هناك من اثنين كم هناك من ثلاثاء و الى اخره

يمكنك التأكد من ذلك عبر اعطاء تاريخين قريبين من بعضهم مثلاً 1/3/2016 و 5/3/2016 ملاحظة- هناك شيء لم تكتشفة في الملف المرفق مني (جرب اعطاء تاريخ البداية اكبر من النهاية )و انظر ماذا يجري

ارفق الملف او جزءاً منه للعمل غليه

جرب هذا الملف ترحيل البيانات على شرطين Salim.rar

لمغرفة عدد ايام الاسبوع (جمعة ،سبت،احد ....بين تاريحين) انظر الى المرفق sum_of_weekdays.rar

التنسيق يغمل عندي 100% لعلك لم تضغ هذا التنسيق غلى كل الخلايا المطلوبة (اقصد لم تحددها قبل التنسيق)

أخي بن علية معادلة ناجحة جداً اما معادلتي فهي =IF(AND(N($D$1)>0,MOD($D$1,1)=0),IF($D$1=1,ROWS($A$1:A1),ROUNDUP(ROWS($A$1:A1)/($D$1-1),0)+ROWS($A$1:A1)-1),"")