سليم حاصبيا

ربما تنفع هذه الدالة البسيطة في هذا الملف (بدون دالة If و تشعباتها) دالة IF salim.rar

لم افهم ما تعنيه:و اخلى قيمة الخلايا الي في عمود الاخفاء "غ" عند الاخفاء ربما هذا ما تريده ملف 1 salim1.rar

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

من الضروري رفع ملف مثال للمعالجة

جرب هذا الملف (بلا أكواد) تنسيق شرطي وتحقق Salim.rar

هناك تناقضات في المعلمومان مثلاً في العامود D ديف تريد ان يسمح لك الاكسل يتسجيل رقم بين 0 و عشرين (فقط) و في نفس الوقت تطلب منه ان يلون بالاحمر ما يساوي 90

لم تذكر شيئاً بالنسبة لـــ نقل ملكية مركبة؟ ما هي الاسعار

هل هذا ما تريده تم حماية النعادلات لعدم العبث يها عن طريق الخطأ استدعاء حسب الفصل Salim.rar

ربما ينفع التنسيق الشرطي يهذا الشكل مثال Salim1.rar

جرب هذا الشيء Parking SalimWithUser.rar

من الضروري رفع مثالاً بسيطاً (حوالي 20 صف) عما تريد بالضبط

جرب هذا الملف يتم تلوين الخلايا اذا صادف وجود خلايا متشابهة مثال Salim.rar

تعديل طفيف على الكود ليتم تنفيذه بشكل اسرع Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False New_Find_Data Application.EnableEvents = True End Sub '========================================== Sub New_Find_Data() On Error Resume Next Dim i%, True_Fasle As Boolean Dim Premier_sheet As Worksheet, Second_sheet As Worksheet Set Premier_sheet = Sheets("ورقة1"): Set Second_sheet = Sheets("ورقة2") Dim salim_array(), My_St As Range ReDim salim_array(1 To Application.Max(Second_sheet.Range("a:a"))) For i = 1 To Application.Max(Second_sheet.Range("a:a")) salim_array(i) = i Next True_Fasle = IsError(Application.Match(Selection, salim_array, 0)) If Selection.Cells.Count > 1 Or True_Fasle = True Then GoTo Exit_Me Dim my_Num%, Mon_range As Range, x% Set Mon_range = Second_sheet.Range("A2").Resize(UBound(salim_array)) my_Num = Selection.Value x = Application.Match(my_Num, Mon_range, 0) + 1 If x Then Set My_St = Second_sheet.Cells(x, 1) With Premier_sheet.Cells(26, "k") For i = 0 To 4 .Offset(i) = My_St.Offset(, i) Next End With End If Exit_Me: Erase salim_array: Set Mon_range = Nothing: Set My_St = Nothing End Sub '============================================

ربما كان المطلوب salim2مرتبات-على.rar

جرب هذا الماكرو Option Explicit Sub Show_Sheets() Dim i% For i = 1 To Sheets.Count If Sheets(i).Visible = 2 Then Sheets(i).Visible = 1 Next End Sub

استبدل الرقم 36 بالرقم 52 (الذي هو رقم الصف لاخر طالب في الجدول) في كل المعادلات بالنسية لدمج المرسلات انسخ البيانات المطلوبة الى صفحة اخرى و اجعل هذه الصفحة(الاخرى) مصدراً لدمج المرسلات الملف مرفق و هو يقوم اوتوماتيكياً بادراج المعادلات اللازمة حسب عدد الطلاب مع نسخ المعاومات المطلوبة الى الورقة 2 tartib for printing salim.rar

تم معالجة الامر الرابع Salim with repitition_sorting.rar

تم معالجة الامر بواسطة كود لا يمكن ان بتجاهل اي قيمة الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False New_Find_Data Application.EnableEvents = True End Sub '========================================== Sub New_Find_Data() On Error Resume Next Dim i%, True_Fasle As Boolean Dim Premier_sheet As Worksheet, Second_sheet As Worksheet Set Premier_sheet = Sheets("ورقة1"): Set Second_sheet = Sheets("ورقة2") Dim salim_array() ReDim salim_array(1 To Application.Max(Second_sheet.Range("a:a"))) For i = 1 To Application.Max(Second_sheet.Range("a:a")) salim_array(i) = i Next True_Fasle = IsError(Application.Match(Selection, salim_array, 0)) If Selection.Cells.Count > 1 Or True_Fasle = True Then GoTo Exit_Me Dim my_Num%, Mon_range As Range Dim x% Set Mon_range = Second_sheet.Range("A2").Resize(UBound(salim_array)) my_Num = Selection.Value x = Application.Match(my_Num, Mon_range, 0) + 1 If x > 0 Then With Premier_sheet.Cells(26, "k") .Value = Second_sheet.Cells(x, 1) .Offset(1) = Second_sheet.Cells(x, 1).Offset(, 1) .Offset(2) = Second_sheet.Cells(x, 1).Offset(, 2) .Offset(3) = Second_sheet.Cells(x, 1).Offset(, 3) .Offset(4) = Second_sheet.Cells(x, 1).Offset(, 4) End With End If Exit_Me: Erase salim_array: Set Mon_range = Nothing End Sub '============================================ الملف مرفق Parking Salim.rar

اي اصدار من اكسل تستعمل شاهد هذا الفيديو https://www.youtube.com/watch?v=vtTa8y6i_rM

و هذا ما يفعله الماكرو جرب ان تضغط على اي رقم (في الملف الذي ارسلته لك)و ترى النتيجة البيانات مأخوذة من الورقة 2 (مخفية)

غلطة مطبعية وشكراً على التصحيح

جرب هذا الشيء transfer Salim.rar

ليس هناك حد اقصى لتحميل الملفات الملف وارفعه(هناك حد اقصى لحجم الملف المرفوع) اذا كان كبيراً يمكنك رفع جزء منه (حوالي 20 صف)

من الضروري رفع الملف للمعالجة

جرب هذا الملف ولك حرية ملء الجدول في الورقة 2 يالبيانات المناسبة تم ازالة دمج الخلايا لحسن عمل الكود بالنسبة لصيغة web page ليست لدي الخبرة في ذلك الرفع 111 Salim.rar