علي السحيب

النسخة السابقة من المرفق الموجود في المشاركة الخامسة كانت تحتوي على خلل في الترحيل إلى صفحة أسماء الركاب لم أنتبه له إلا قبل قليل .. لأنني قمت بإضافة صف في بداية صفحة أسماء الركاب ونسيت أن أقوم بالتعديل اللازم على الكود .. على كل حال لمن أحب يفضل إعادة تحميل المرفق من جديد، شكراً للجميع،

إبداع وتألق بلا حدود أخي تامر .. نحن جميعاً بإنتظار المزيد من الحلول الذكية،

تخيل أني فتحت المنتدى لأضع الرد على سؤالك .. ففوجئت بك تذكرني به، على كل حال الكود التالي ينفذ ما طلبته .. مع ملاحظة أنه مرتبط بالكود السابق وكلاهما يعمل بضغطه زر واحدة وعلى نفس ورقة العمل أو على ورقة عمل أخرى. Sub Duplicated() Set MyRange1 = [K16:K22] Set MyRange2 = [H16:H22] [H16:I22,K16:L22].ClearContents For R = 3 To 9 If Application.WorksheetFunction.CountIf([E3:E9], Cells(R, 5)) > 1 Then With Columns(8).Rows(65536).End(xlUp) .Offset(1, 0) = Cells(R, 5) .Offset(1, 1) = Cells(R, 6) End With End If Next For R = 3 To 9 If Application.WorksheetFunction.CountIf([B3:B9], Cells(R, 2)) > 1 Then With Columns(11).Rows(65536).End(xlUp) .Offset(1, 0) = Cells(R, 2) .Offset(1, 1) = Cells(R, 3) End With End If Next For Each Cell In MyRange1 A = Application.WorksheetFunction.CountIf([B3:B9], Cell) B = Application.WorksheetFunction.CountIf([E3:E9], Cell) C = A - B If Application.WorksheetFunction.CountIf(MyRange1, Cell) > C Then Cell.ClearContents Cells(Cell.Row, Cell.Column + 1).ClearContents End If Next For Each Cell In MyRange2 A = Application.WorksheetFunction.CountIf([B3:B9], Cell) B = Application.WorksheetFunction.CountIf([E3:E9], Cell) C = B - A If Application.WorksheetFunction.CountIf(MyRange2, Cell) > C Then Cell.ClearContents Cells(Cell.Row, Cell.Column + 1).ClearContents End If Next [H16:I22].Sort [H16], xlAscending [K16:L22].Sort [K16], xlAscending End Sub شاهد المرفق، ________________________________2.rar

يتم وضع الكود التالي في الموديول الخاص بالصفحة التي يتم إدخال البيانات بها. Private Sub Worksheet_Change(ByVal Target As Range) TA = Target.Address If TA = "$A$1" Or TA = "$C$1" Or TA = "$E$1" Then Application.SendKeys ("{Tab}") If [A1] = 40 And [C1] = 45 And [E1] = 75 Then [B1] = 40 [D1] = 50 [F1] = 64 ElseIf [A1] = 49 And [C1] = 48 And [E1] = 40 Then [B1] = 50 [D1] = 50 [F1] = 40 Else [B1] = [A1] [D1] = [C1] [F1] = [E1] End If End If End Sub شاهد المرفق، IF_Function_2.rar

شاهد المرفق وأخبرني إذا لم يكن هذا ما تريد، _______________________________2.rar

شاهد المرفق، _______________________________________.rar

مليون شكر لك أخي تامر على هذا الشرح الواضح والمميز. بودي إضافة نقطة مهمة ربما نسيت أن تتطرق لها أخي تامر وهي مكان وضع صيغ النطاقات .. ويكون ذلك من خلال القائمة إدراج ثم إسم ثم تعريف إسم ويتم هناك وضع أسماء النطاقات مع الصيغ.

يوجد ثلاث صفوف على يسار جدول فرز البيانات .. يمكنك الرجوع إليهم ومعرفة خطوات الحل.

ولمعلومات أكثر حول هذا الموضوع راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=13874

ولمعلومات أكثر حول هذا الموضوع راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=13874]

أشكرك،

الأخ nse .. إذا كان الجمع يعتمد على شرط واحد فقط .. فلا داعي لإستخدام الدالة SUMPRODUCT .. الدالة SUMIF تفي بالغرض: =SUMIF($A$2:$A$25,C2,$B$2:$B$25)

شاهد المرفق .. أتمنى أن يحوز على إستحسانك، ________________________________.rar

شاهدي المرفق، ____________.rar

هناك برنامج يقوم بهذه المهمة .. ولكن النسخة المتوفرة لدي حالياً من هذا البرنامج منتهية الصلاحية .. أنتظر حتى أبحث لك عن النسخة الحديثة وأرفقها.

راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=8890

في هذه الحالة يتم تغيير الكود إلى التالي: Private Sub Workbook_Open() Sheet1.[A65536].End(xlUp).Offset(1, 0).Select End Sub شاهد المرفق، ______________________2.rar

بصراحة فكرتك أعجبتني كثيراً .. وأنا أعمل عليها بمزاج عالي جداً .. أنتظر الرد الشافي قريباً ..

الكود التالي ينفذ لك ما تريد، Private Sub Workbook_Open() Sheet1.[A1].End(xlDown).Offset(1, 0).Select End Sub ولتنفيذ هذه المهمة عن طريق لوحة المفاتيح نستخدم زر Ctrl + سهم الأسفل للوصول لآخر خلية غير فارغة .. ثم نضغط مفتاح سهم الأسفل للوصول لأول خلية فارغة. شاهد المرفق، _____________________.rar

لا أعتقد أن المسألة صعبة ولكن السؤال غير مفهوم تماماً .. أفضل أن ترفق ملف تشرح فيه ما تريد بالضبط.

لا يمكن إستخدام الدالة SUMIF في هذه الحالة .. لأن SUMIF تعمل بكفاءة مع شرط واحد فقط .. أما إذا أردنا وضع أكثر من شرط فيكون ذلك عبر إستخدام الدالة SUMPRODUCT. ونفس الشيء بالنسبة للدالة COUNTIF. ولمعلومات أكثر عن هذا الموضوع راجع الروابط التالية: http://www.officena.net/ib/index.php?showtopic=6055 http://www.officena.net/ib/index.php?showtopic=7920

الصيغ التالية جميعها تعطي نفس النتيجة: 1- =IF(B7=B8,"متطابقة","غبر متطابقة") 2- =IF(EXACT(B7,B8),"متطابقة","غبر متطابقة") وبالعكس: 1- =IF(B7<>B8,"غير متطابقة","متطابقة") 2- =IF(NOT(B7=B8),"غير متطابقة","متطابقة") شاهد المرفق، ________________________________.rar

يكون ذلك بإستخدام الدالة SUMPRODUCT: =SUMPRODUCT(($B$2:$B$15>=E6)*($B$2:$B$15<=G6)*($A$2:$A$15)) شاهد المرفق، ______________________________.rar

تحويل ملف الإكسل إلى ملف تنفيذي يفيد في إمكانية عمل الأكواد داخل الملف بدون الحاجة إلى ضبط مستوى الأمان إلى منخفض.

ولكن ماهي خطوات إنشاء ألبوم صور جديد .. وأين يتم وضع الصيغة الخاصة بالدالة OFFSET؟؟