2saad

السلام عليكم ورحمة الله وبركاته وبها نبدأ اي موضوع إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته الكود هذا يطبع 8بطاقات الجلوس للمدرسة في كل ورقة ولكن فيه خطأ وعايز اصححه الخطأ : عند الطباعة يطبع كل الأوراق ولكن في آ خر ورقة يطبع بطاقة واحدة من 8 وأنا عايزة يطبع كل البطاقات لاخر بطاقة وشكرا جزيلا لأعضاء المنتدي الكرام الذين تعلمت منهم الكثير 'هذا الكود للنابغه ساجده العزاوي ' وهي من أهلنا بالعراق أعز الله العراق وأذل أعداءه 'تم في اكتوبر 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("M13").Value & "*" '=================== C = 0 Application.ScreenUpdating = False lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row 'اخر صف به بيانات ' عدد الصفوف الخارجة 'عن التوزيع في ورقة مصدر البيانات 'هذا السطر في حال شهادات الكل 'هذا السطر في حال طلب شهادات محدده ' For i = sh4.Cells(7, 18).Value To sh4.Cells(7, 19).Value For i = SHEHADA.[M4].Value To SHEHADA.[N4].Value '======= If DATA.Cells(i, 7) Like targt & "*" And C = 0 Then Range("D2") = DATA.Cells(i, 2) C = C + 1 ElseIf DATA.Cells(i, 7) Like targt & "*" And C = 1 Then Range("J2") = DATA.Cells(i, 2) C = C + 1 ElseIf DATA.Cells(i, 7) Like targt & "*" And C = 2 Then Range("D15") = DATA.Cells(i, 2) C = C + 1 ElseIf DATA.Cells(i, 7) Like targt & "*" And C = 3 Then Range("J15") = DATA.Cells(i, 2) C = C + 1 ElseIf DATA.Cells(i, 7) Like targt & "*" And C = 4 Then Range("D28") = DATA.Cells(i, 2) C = C + 1 ElseIf DATA.Cells(i, 7) Like targt & "*" And C = 5 Then Range("J28") = DATA.Cells(i, 2) C = C + 1 ElseIf DATA.Cells(i, 7) Like targt & "*" And C = 6 Then Range("D41") = DATA.Cells(i, 2) C = C + 1 ElseIf DATA.Cells(i, 7) Like targt & "*" And C = 7 Then Range("J41") = 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 = SHEHADA.[N4] And C = 8 Then SHEHADA.Range("G41:K53").PrintOut: Exit For If i = SHEHADA.[N4] And C = 7 Then SHEHADA.Range("A41:F53").PrintOut: Exit For If i = SHEHADA.[N4] And C = 6 Then SHEHADA.Range("G28:K39").PrintOut: Exit For If i = SHEHADA.[N4] And C = 5 Then SHEHADA.Range("A28:F39").PrintOut: Exit For If i = SHEHADA.[N4] And C = 4 Then SHEHADA.Range("G15:K26").PrintOut: Exit For If i = SHEHADA.[N4] And C = 3 Then SHEHADA.Range("A15:F26").PrintOut: Exit For If i = SHEHADA.[N4] And C = 2 Then SHEHADA.Range("G1:K13").PrintOut: Exit For If i = SHEHADA.[N4] And C = 1 Then SHEHADA.Range("A1:F13").PrintOut: Exit For If i < SHEHADA.[N4] And (Range("D41") = "" Or Range("J41") = "") Then GoTo 1 If i < SHEHADA.[N4] And C = 8 Then SHEHADA.Range("A1:K53").PrintOut C = 0 Range("D2") = "" Range("J2") = "" Range("D15") = "" Range("J15") = "" Range("D28") = "" Range("J28") = "" Range("D41") = "" Range("J41") = "" ' Range("M51") = "" 1: Next i Range("D2") = "" Range("J2") = "" Range("D15") = "" Range("J15") = "" Range("D28") = "" Range("J28") = "" Range("D41") = "" Range("J41") = "" ' Range("M51") = "" Application.ScreenUpdating = True End Sub عند وضع كود يتم وضع عن طريق ايقونه الكود وهى <> يرجي ارفاق ملف

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

اين الملف يا اخي

شكرا جزيلا علي الكود ولي طلب عند حضرتك عايز افهم الكود لآني حاولت افهمه مش عارف لأني عايز اطبقه في الشغل

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته محتاج اصحح الكود بالملف المرفق ولكم جزيل الشكرW_S.xlsm

شكرا لحضرتك ارجو توضيح باسورد محرر الأكواد لأني جربت 123 ولم يفلح

شكرا لحضرتك

شكرا لرد حضرتك نقلت الكود ولم يحدث اي تغيير يا أخي

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته انا بشكر الاستاذ ضاحي علي مساعدتي في تعديل هذا الملف ولي طلب بسيط انا عندي تكست بوكس اضع فيه تاريخ الميلاد ولكن بلاحظ ان التاريخ مقلوب وانا عايزه يكون من اليمين يعني الأول اليوم وبعدين الشهر وبعدين السنةفورم بحث برقم الجلوس وبه إضافة وتعديل 2وحذف (7).xlsm ولكم جزيل الشكر

شكرا جزيلا أستاذ ضاحي وربنا يجزيك خيرا

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

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته ارجو من سيادتكم التعديل علي هذا الكود بيحث يبدأ من العمود c بدلا من العمود a وهو فورم للترحيل للاستاذ الكبير مجدي يونس وشكرا لكمفورم بحث برقم الجلوس وبه إضافة وتعديل 2وحذف.xlsm

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

السلام الله عليكم ورحمة الله وبركاته ..إخواني اعضاء المنتدي الكرام ارجوا من حضراتكم تعديل الكود البحث بحيث يبدأ من العمود ( D ) بدلا من العمود ( A ) ..ولكم جزيل الشكر ووافر الاحترام نتيجة نصف العام _1.xlsm

شكرا لرد حضرتك وسيتم البحث

السلام الله عليكم ورحمته وبركاته..إخواني اعضاء المنتدي الكرام..محتاج اعدل علي كود الاضافة والحذف والاضافة في هذا الفورم ندي.xlsm

شكرا جزيلا استاذنا الكبير

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

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

شكرا جزيلا بس فيه ملحوظ عند طباعة الكل يطبع الصفحة الأولي فارغة . لماذا ؟

عشمي في سؤال ايه الفرق بين زر ( عرض الفصول ) وزر ( الطباعة دفعة واحدة )

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

اتاذنا الفاضل / الأستاذ إبراهيم ..بارك الله فيك وأكثر الله من أمثالك الكود شغال تمام وظبط البيانات ونوعتها ..بس ناقص حاجة واحدة ويكتمل الكود كما هو مطلوب وهو عايز الأولاد لوحدهم في عمود ( E) وعايز البنات وحدهم في عمود (L )..يبقي كده بارك الله فيك ..أنا عارف إني بتعبك معاي كتير ..أسف علي الخطأ / أستاذنا قوائم.xlsm

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

إخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته عندي كود لاخفاء الشيتات ومش عارف اطبقه علي الملف عندي فارجو شرح تطبيق الكود _______________________.rar