2saad

شكرا جزيلا وبارك الله فيك مفيش حل بدلا من كلمة ( code ) نكتب اسم المطلوب تنفيذه يعني مثلا بدلا من كلمة ( code1 ) نكتب اسم بحث واستبدال

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

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

حضرتك يا ريت تكلمني عربي علشان افهم ما تقول

شكرا لرد حضرتك بس مفيش طباعة للورقة ؟

شكرا لرد حضرتك يا أستاذ / محمد المطلوب : يعني عند الصغط علي القائمة المنسدلة الموجودة بالشيت الثاني واختيار مثلا ( الأول1 ) يقوم الكود بجلب الاسم والمادةالملونة باللون الأصفر الموجود أمامها ( الأول1 ) من الشيت الأول وطباعتها متتالية. وهكذا يا ريت يكون وصل المطلوب. ولكم جزيل الشكر .New Microsoft Excel Worksheet (2).xlsm

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته محتاج كود يقوم بترحيل وطباعة الخلايا من شيت1 الي شيت 2 التي باللون الأصفر وبها دالة (VLOOCUP ) بناء علي رقم الكود المثبت بالخلية ( Q1 ) والقائمة المنسدلة الملونة باللون الاخضر ولكم جزيل الشكرNew Microsoft Excel Worksheet (2).xlsm

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

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته محتاج معادلة اذا كانت الدرجة في العمود ( c ) لا تساوي ( غ ) والنوع في العمود (b ) ذكر يكون الناتج ( ناجح ) واذا كانت الدرجة في العمود ( c ) لا تساوي ( غ ) والنوع في العمود (b ) أنثى يكون الناتج ( ناجحة ) اذا كانت الدرجة في العمود ( c ) تساوي ( غ ) والنوع في العمود (b ) ذكر يكون الناتج ( ناجح بحكم القانون ) اذا كانت الدرجة في العمود ( c ) تساوي ( غ ) والنوع في العمود (b ) أنثى يكون الناتج ( ناجحة بحكم القانون ) اذا كانت الدرجة في العمود ( c ) تساوي ( "" ) والنوع في العمود (b ) تساوي ( "" ) يكون الناتج ( "") ولكم جزيل الشكر ووافر الاحترامعبدو.xlsx

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

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

أرجو الرد من الأخوة الأفاضل

شكرا جزيلا أستاذ / ابراهيم وجعله الله في ميزان حسناتك أنا بتعبك معاي كثيرا لي سؤال من فضلك لو فيه شيتات كثيرة في الملف ( اوراق عمل ) وأنا عايز ارحل 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 في الشيت الثاني