عبدالسلام علي

شكرا لك اخي الكريم تم حل المشكلة من خلال الموقع واتباع الخطوات وهي عملية اصلاح الاوفيس

السلام عليكم جميعا وكل العام والجميع بالف خير لدي سؤال لقد قمت بتثبيت اوفيس 2016 وعند النقر لفتح ملف اكسيل يفتح التطبيق ولكن لايحمل الملف والايفتح الا بعد الدخول على قائمة ملف واسنعراض وعند اختيار الملف يفتح الملف بمعنى الملف لا يفتح مباشرة . وشكرا للجميع عنوان مخالف تـــم تعديل عنوان المشاركة ليعبر عن طلبك

ارفق الملف

حول ملف الطلبة الى اكسيل واعمل دمج اسهل

اشكرك اخي علي في ميزان حسناتك

1.xlsx

السلام عليكم اريد ان احذف اي قيمتين متكررة معا نهائيا 1.xlsx

مشكور اخي وبارك الله فيك

انظر d4 يظهر الخطا التنسيق نص وليس رقم

اخي شرحك واضح وكل التنسيقات متطابقة ولكن مزال نفس الخطاء

ياريت توضح لي اكثر جزاك الله كل خير

بارك الله فيك اخي ولكن سؤال ماهو الخطا الذي كان

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

بارك الله فيك اخي زيزو هو المطلوب في ميزان حسناتك تقبل تحياتي

من خلال الملف المرفق استخدمت دالة vlookup حتى وصلت للنتيجة المطلوب يكون من خلال اليوزر فورم وليس من خلال المعادلة تجربة 2.rar

الملف سليم يا اخي الملف سليم تجربة 2.rar

ارفق لكم ملف المطلوب فيه التعديل على اليوزر فورم بحيث لايسمح بتكرار الرقم السري عند تفريغ اليوزر فورم في الخلايا المحدد لذلك تجربة 2.rar

السلام عليكم عندي ورقة عمل من عمودين فقط اريد عند تعبئة الخلية b1 والضغط على السهم ينتقل للخلية a2 وهكذا بين خلايا العمودين

عدل على هذا الملف على ما اعتقد هذا هو طلبك 1قاعدة البيانات.rar

شوف الملف المرفق ممكن يكون فيه طلبك جدول الحصص.rar

السلام عليكم اخي ابو عبدالباري كل العام وانت بالف خير واشكر اهتمامك

اشكرك استاذي الفاضل ياسر اولا :- لعدم رفع الملف كبير الحجم لم استطع رفعه وثانيا :- الكود الذي كتبته هذا ما اريده فعلا وجزاك الله كل خير وفي ميزان حسناتك

Sub ali_Fail_Students() Sheets("الناجحون").Range("a6:aq100") = "" Sheets("الناجحون").Range("a6:aq100").Interior.ColorIndex = 0 Application.ScreenUpdating = False X = Sheets("تجميعي").[e1000].End(xlUp).Row For T = 11 To X Step 3 Y = Sheets("الناجحون").[A1000].End(xlUp).Row + 1 If Sheets("تجميعي").Range("au" & T).Value = "ناجح" Then Sheets("الناجحون").Range("a" & Y) = Sheets("تجميعي").Range("E" & T).Value Sheets("الناجحون").Range("d" & Y) = Sheets("تجميعي").Range("g" & T).Value Sheets("الناجحون").Range("c" & Y) = Sheets("تجميعي").Range("f" & T).Value Sheets("الناجحون").Range("e" & Y & ":aq" & Y) = Sheets("تجميعي").Range("j" & T + 2 & ":av" & T + 2).Value Else End If Next Clear_and_Highlight Application.ScreenUpdating = True End Sub Sub rakan_Fail_Students() Sheets("راسب").Range("a6:aq100") = "" Sheets("راسب").Range("a6:aq100").Interior.ColorIndex = 0 Application.ScreenUpdating = False X = Sheets("تجميعي").[e1000].End(xlUp).Row For T = 11 To X Step 3 Y = Sheets("راسب").[A1000].End(xlUp).Row + 1 If Sheets("تجميعي").Range("au" & T).Value = "له دور ثان فى" Then Sheets("راسب").Range("a" & Y) = Sheets("تجميعي").Range("E" & T).Value Sheets("راسب").Range("d" & Y) = Sheets("تجميعي").Range("g" & T).Value Sheets("راسب").Range("c" & Y) = Sheets("تجميعي").Range("f" & T).Value Sheets("راسب").Range("e" & Y & ":aq" & Y) = Sheets("تجميعي").Range("j" & T + 2 & ":av" & T + 2).Value Else End If Next Clear_and_Highlight Application.ScreenUpdating = True End Sub هذين الكودين للترحيل يعملان كلا على حدى اي زر لترحيل الناجحين وزر لترحيل الراسبين المطلوب رب هذين الكودين بزر واحد يقوم بترحيل الناجحين والراسبين دفعة واحدة

بارك الله فيكما اخوي زيزو العجوز و ابو حنين لاهتمامكم والمساعدة فعلا هذا هو المطلوب ومجرد سؤال هل يمكن ان يشتغل الكود تلقائي

اشكرك اخي أبو حنين في ملاحظة عند نقل البيانات يتم حذف الجدول ياريت يكون ترحيل البيانات دون حذف الجدول