2saad

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

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

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

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

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

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

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

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

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

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

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

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

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

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

شكرا جزيلا

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

السلام الله عليكم ورحمته وبركاته اخواني اعضاء المنتدي الكرام..عندي ملف اكسيل كان شغال معاي كويس ولكن لاحظت انه اصبح بطئ في ترحيل البيانات من ورقة الي ورقة اخري ومش عارف ايه السبب مع انه مساحته صغيرة ..ايه الحل ؟ عنوان مخالف ... تـــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

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

شكرا علي رد حضرتك بس أنا وضعت معادلة في الملف المرفق الجديد في في عمود الفصل في ورقة saad ولما برحل البيانات الي data بيترحل عمود الفصل خطأ الملف المرفق مرة ثانيةAHMAD - MH-2.xlsm

معلش فيه خطأ صغير في هذا الكود ..ارجو تصحيحه ...المطلوب بالمرفق AHMAD - MH-2.xlsm

معلش حضرتك لقلة خبرتي ...وهذا لشرح المطلوب الملف المرفق مكون من ورقتين عمل saad و data وعند الضغط عل زر الترحيل الموجود في الورقة data يتم ترحيل البيانات من الأعمدة المحددة من ورقة العمل saad الي ورقة العمل data المشكلة ان الكود ده يمسح البيانات المرحلة القديمة ويحل محلها الجديدة في النطاق المحدد بالكود sh.Range("C10:L1000").ClearContents وكمان يمسح باقي البيانات في الأAHMAD.xlsmعمدة الأخري M و N و O انا عايزه يمسح النطاق المحدد فقط يعني من C10:L1000 وباقي البيانات الموجودة في الأعمدة M و N و O تكون ثابتة لا تمسح

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته عايز اعرف ايه الخطأ اللي في الكود ده في الجزئية دي بالتحديد ( sh.Range("C10:L1000").ClearContents ) كلما انفذ الكود عندي يمسح حتي اللي بعد L1000 يعني يمسح M و N و O..... وشكرا لكم جميعا Sub استدعاء_كنترول4_الي_ملف_نصف_العام_صف_رابع() Dim arr As Variant Dim temp As Variant Dim cr As Variant Dim lr As Long Dim i As Long Dim j As Long Dim C As Long Dim WS As Worksheet Dim sh As Worksheet Dim myArray, targt, targt2 Set Main = Sheets("كنترول4") Set sh = Sheets("ملف وتحريري نصف العام صف رابع") targt = sh.Range("M5").Value & "*" targt2 = sh.Range("M6").Value & "*" 'targt = "ذك*" 'targt2 = "نا*" '= = = = = = = = = = = = ' شيت الهدف والمدى المطلوب مسحه sh.Range("C10:L1000").ClearContents ' عدد الصفوف في ورقة المصدر lr = Main.Cells(Rows.Count, 4).End(xlUp).Row 'متغير اسم ورقة المصدرومدى البيانات بها arr = Main.Range("A10:R" & lr).Value ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2)) 'ارقام الاعمده المطلوب نقلها cr = Array(2, 4, 5, 7, 9, 10, 11, 12, 15) j = 1 For i = LBound(arr, 1) To UBound(arr, 1) '================== 'اذا أردت ان يستدعي بيانات بدون شرط 'ماعليك الا ان تجعل السطر البرمجي الموجود 'اسفل هذا السطر لا يعمل '================== 'رقم عمود الذي سيتم البحث فيه 'If arr(i, 😎 Like targt & "*" _ And arr(i, 89) Like targt2 & "*" Then '================== temp(j, 1) = j For C = LBound(cr) To UBound(cr) temp(j, C + 2) = arr(i, cr(C)) Next C j = j + 1 '================== '================== Next i With sh 'خليه بدايه اللصق في شيت الهدف .Range("C10").Resize(j - 1, UBound(temp, 2)).Value = temp End With End Sub

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

تمام بارك الله فيك علي المجهود الرائع

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