2saad

شكرا جزيلا أستاذ / ابراهيم وجعله الله في ميزان حسناتك أنا بتعبك معاي كثيرا لي سؤال من فضلك لو فيه شيتات كثيرة في الملف ( اوراق عمل ) وأنا عايز ارحل sheet1 و sheet2 و sheet3 فقط الي شيت ( saad ) بناء علي القائمة المنسدلة r12 التغيير هيبقي ازاي في الجزئية دي If ws.Name <> Sh.Name Then

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته أتقدم بخالص الشكر لكل الاعضاء لاني تعلمت منهم الكثير في هذا المنتدي الجليل محتاج كود يقوم بترحيل البيانات من sheet1 و sheet2 و sheet3 الي شيت ( saad ) بناء علي القائمة المنسدلة r12 ( أرجو أن تكون بالمصفوفات )way.xlsm

معلش أنا آسف

شكرا جزيلا أخي الفاضل

يا جماعة هل من مجيب ؟ الملف مرة أخريNew Microsoft Excel Worksheet.xlsx.xlsmNew Microsoft Excel Worksheet.xlsx.xlsm

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته لو سمحتم عايز أعرف ايه الخطأ في كود الترحيل المرفقNew Microsoft Excel Worksheet.xlsx.xlsm

شكرا جزيلا

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

رأي صائب شكرا لك

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

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته هذا كود لعمل ترحيل لبيانات التلميذ ولكن لا يرحل كل التلاميذ بيعدي 1 أو اثنين عايز اعرف ايه الخطا 'هذا الكود للنابغه ساجده العزاوي ' وهي من أهلنا بالعراق أعز الله العراق وأذل أعداءه 'تم في اكتوبر 2017 'كمعطيات المحترم ابو أحمد محمدي 'الهدف من الكود هو استخراج الشهادات 'كل 3 شهادات في صفحه واحدة 'بثلاث معايير '=*=*=*=*=* Dim SHEHADA As Worksheet, DATA As Worksheet Dim myArray, targt, targt2 As String 'اسم صفحة المصدر Set DATA = Worksheets("ص") 'اسم صفحة الهدف Set SHEHADA = Worksheets("جدول الامتحان مع رقم الجلوس ") '=================== ' targt3 = "5/1" targt = SHEHADA.Range("N125").Value & "*" '=================== C = 0 Application.ScreenUpdating = False lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row 'اخر صف به بيانات ' عدد الصفوف الخارجة 'عن التوزيع في ورقة مصدر البيانات 'هذا السطر في حال شهادات الكل For i = 14 To lr 'هذا السطر في حال طلب شهادات محدده ' For i = sh4.Cells(7, 18).Value To sh4.Cells(7, 19).Value '======= If DATA.Cells(i, 5) Like targt & "*" And C = 0 Then Range("E117") = DATA.Cells(i, 2) C = C + 1 ElseIf DATA.Cells(i, 5) Like targt & "*" And C = 1 Then Range("E130") = DATA.Cells(i, 2) C = C + 1 ElseIf DATA.Cells(i, 5) Like targt & "*" And C = 2 Then Range("E143") = DATA.Cells(i, 2) C = C + 1 ElseIf DATA.Cells(i, 5) Like targt & "*" And C = 3 Then Range("E156") = DATA.Cells(i, 2) C = C + 1 ' ElseIf DATA.Cells(i, 101) Like targt & "*" And DATA.Cells(i, 104) Like targt2 & "*" And DATA.Cells(i, 103) Like targt3 & "*" And c = 3 Then ' SHEHADA.Range("M51") = DATA.Cells(i, 2) ' c = c + 1 '=== End If If i = lr And C = 4 Then SHEHADA.Range("A149:L160").PrintOut: Exit For If i = lr And C = 3 Then SHEHADA.Range("A136:L147").PrintOut: Exit For If i = lr And C = 2 Then SHEHADA.Range("A123:L134").PrintOut: Exit For If i = lr And C = 1 Then SHEHADA.Range("A109:L121").PrintOut: Exit For If i < lr And (Range("E143") = "" Or Range("E156") = "") Then GoTo 1 If i < lr And C = 4 Then SHEHADA.Range("A109:L160").PrintOut C = 0 Range("E117") = "" Range("E130") = "" Range("E143") = "" Range("E156") = "" ' Range("M51") = "" 1: Next i Range("E117") = "" Range("E130") = "" Range("E143") = "" Range("E156") = "" ' Range("M51") = "" Application.ScreenUpdating = True End Sub ولكم جزيل الشكر

بارك الله فيك وأكثر الله من أمثالك

استاذي الفاضل / حسونة حسين ارجو أن يتسع صدرك لي انا عملت موضوع مستقل زي ما حضرتك طلبت وعشمان في استفسار هل ينفع في الملف المرفق ترحيل البياناتrazan.xlsm اللي في العمودين AA و AB في الشيت الأول الي العموددين Y و Z في الشيت الثاني

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

لوسمحتم يا جماعة الكود المرفق ساعدني فيه الاستاذ / حسونة حسين( الله يبارك فيك ويجزيه أفضل الجزاء) عايز ارحل العمودين الللي باللون الأصفر من شيت 1 الي شيت 2 ولكم جزيل الشكر ووافر الاحترام razan.xlsm

شكرا جزيلا وبارك الله فيك

إخواني أعضاء المنتدي الكرام بعد سلام عليكم ورحمة الله وبركاته كود الترحيل يرحل من sheet1 الي sheet2 محتاج اعدل في الكود بحيث يثبت الأعمدة الملونة باللون الأصفر بحيث عند الترحيل لا ترحل اليها اي بيانات لأني سوف اضغ فيها معادلات ومش عايز تتمسح عند الترحيل وشكرا razan.xlsm

اتفضل وعدل ذي ما انت عايز =IF(Q19=0;"";IF(Q19="";"";IF(Q19="غ";"غ";IF(Q19>=68;"ممتاز";IF(Q19>=60;"جيد جدا";IF(Q19>=52;"جيد";IF(Q19>=40;"ضعيف";"مقبول")))))))

إخواني اعضاء المنتدي الكرام بعد السلام عليكم ورحمة الله وبركاته المطلوب تطبيق الكود المرفق بالملف علي اليوزر فورم Test .xlsm

شكرا لرد حضرتك لو سمحت أنا عايز اطبقها علي القائمة المنسدلة الملون الملونة بالملف

إخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته عايز اعرف ايه الخطا في المعادلة المرفقة بالملف ss.xlsx

شكرا جزيلا لحضرتك

إخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته هل يوجد حاجة في التنسيق الشرطي إذا كان في خلية معينة رقم ( 3 ) مثلا يعطيني في الخلية المجاورة لها نص بعنوان ( ممتاز )

شكرا جزيلا يا استاذ / ابراهيم

شكرا جزيلا