2saad

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

شكرا جزيلا

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته لدي ملف به كود لجلب بيانات من ملفات أخري بناء علي مسار الملفات ولكن أنا اريد أن اختارأوراق معينة من الملفات لأن الملفات بها أوراق كثيرة فماذا أفعل لفعل ذلك ؟ ولكم جزيل الشكر ووافر الاحترامvba-macro-to-copy-data-from-multiple-files.xlsm

شكرا لحضرتك

ملف الاستاذ محمد ( الغير مشفر ) غير موجود للتنزيل

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

شكرا لحضرتك

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

شكرا جزيلا الملف مازال يديني خطأ

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

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

السلام عليكم ورحمة الله وبركاته وبها نبدأ اي موضوع إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته الكود هذا يطبع 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