khalid_star2005

السلام عليكم لدي فورم تعديل اسم الشيت ناجح ما عدا اذا كان اسم الشيت موجود بل فعل تظهر خطأ مع رسالة دبك ارجو المساعدة الملف في المرفق ملاحظة:- تم ادراج الكود في الاسفل نوع الملف اكسل 2016 لا استطيع ارفاق الملف بسبب الحجم لا يسمح به في الموقع وشكراً

مشكور اخي @خالد الشاعر ما قصرت مع فائق التقدير والاحترام

السلام عليكم ممكن شرح طريقة عمل شريط ادوات خاصة لتشغيل المايكرو عن طريق الاكواد VBA او برنامج مثل Custom UI Editor For Microsoft Office ولكن يكتب بل عربي وشكراً ملاحظة نسخة الاكسل 2016 64بت

السلام عليكم اولاً اشكركم من كل قلبي ولكن هناك اخطاء اولاً بل نسبة للاستاذ @الأستاذ / محمد الدسوقى عند التعديل يقوم بادراج البيانات الجديدة في الصف الثني من الجدول ومن العمود B اينما كانت البيانات اما بل نسبة للاستاذ @صالح أبو أحمد الكود شغال ولكن عند تغيير اسم المدرسة يضهر الخطأ في .Cells(lastrow, "d").Value = Me.StaNa.Text 'المدرسة جزاكم الله خير جزاء

السلام عليكم اولاً اشكركم من كل قلبي ولكن هناك اخطاء اولاً بل نسبة للاستاذ @الأستاذ / محمد الدسوقى عند التعديل يقوم بادراج البيانات الجديدة في الصف الثاني من الجدول ومن العمود B اينما كانت البيانات اما بل نسبة للاستاذ @صالح أبو أحمد الكود شغال ولكن عند تغيير اسم المدرسة يظهر الخطأ في .Cells(lastrow, "d").Value = Me.StaNa.Text 'المدرسة جزاكم الله خير جزاء

السلام عليكم لدي فورم بحث وتعديل البيانات المطلوب كود زر التعديل وشكراً Data base.zip

@نبيل عبد الهادي تفضل اخي ليس لدي الخبرة في البرمجة وجدت الكود وقمت بتكراره الجزء الاول من الكود يقوم بادراج صف في اخر صف موجود فيها بيانات بالاعتماد على العمود ( دي ) في الورقة الفعالة اي الحالية اما الجزء الثاني هو نفس الكود ولكن تختار الورقة الثانية التي سوف يقوم بادراج الصف في اخر صف فيها بيانات بالاعتماد على العمود ( أي ) يمكنك تغيرهم حسب رغبتك اتمنى تستفاد منها فكرة الكود هو:- ان يكون لديك ورقة ثابتة لتجميع البيانات وعدة اوراق بحيث اذا قمت باضافة صف في اي من الاوراق الاخرى سوف يدرج صف في الورقة الثابتة ملاحظة :- الكود يقوم بنسخ الدوال والتنسيقات من الصف العلوي ولكن فارغة من البيانات Sub Insert_row() Dim rActive As Range Set rActive = ActiveCell Application.ScreenUpdating = False With Cells(Rows.Count, "D").End(xlUp) .EntireRow.Copy With .Offset(1, 0).EntireRow .PasteSpecial xlPasteFormats .PasteSpecial xlPasteFormulas On Error Resume Next .SpecialCells(xlCellTypeConstants).ClearContents On Error GoTo 0 End With End With rActive.Select Application.CutCopyMode = False Application.ScreenUpdating = True Sheets("اكتب هنا اسم الورقة المطلوبة").Select Set rActive = ActiveCell Application.ScreenUpdating = False With Cells(Rows.Count, "A").End(xlUp) .EntireRow.Copy With .Offset(1, 0).EntireRow .PasteSpecial xlPasteFormats .PasteSpecial xlPasteFormulas On Error Resume Next .SpecialCells(xlCellTypeConstants).ClearContents On Error GoTo 0 End With End With rActive.Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

وجدت الكود من موقع اجنبي بس احب اعرف سبب عدم الرد 7 ايام ؟؟؟؟؟؟؟؟؟؟؟؟؟ والكود مو صعب

عجيب يومين بلا رد؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

نحن هنا

شكرا جزيلاً اخي العزيز ابو عيد

بعد اذنك اخي عبدالله @أبوعيداخي العزيز ممكن مساعدتي في نفس الدالة بشرط توافق اسم المدرسة احتاج الى دالة يجمع اعداد الشعب في ورقة 1st من ورقة Data Base كذالك عدد الدارسين المرفق مثال Data base2.rar

ابداع وتميز .... مشكورررررررررررر

السلام عليكم احتاج كود يقوم بادراج صف في نهاية الورقة في ورقتين عمل مختلفي الاولى التي تكون فعالة والثانية في ورقة "احصائية المدارس على ان تقوم بنسخ الصيغ والتنسيق من الصف العلوي وشكراً