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

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

السلام عليكم جميعا وكل العام والجميع بالف خير

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

وشكرا للجميع   عنوان مخالف تـــم تعديل عنوان المشاركة ليعبر عن طلبك

ارفق الملف

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

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

1.xlsx

السلام عليكم

اريد ان احذف اي قيمتين متكررة معا نهائيا

1.xlsx

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

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

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

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

بارك الله فيك اخي 

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

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

نموذج فحص.rar

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

تقبل تحياتي

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

تجربة 2.rar

الملف سليم يا اخي

في ١٦‏/٢‏/٢٠١٨ at 15:19, محمد الخازمي said:

الملف معطوب حمل من جديد

الملف سليم

تجربة 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

هذين الكودين للترحيل يعملان كلا على حدى اي زر لترحيل الناجحين وزر لترحيل الراسبين 

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

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

ومجرد سؤال هل يمكن ان يشتغل الكود تلقائي

اشكرك اخي أبو حنين 

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