محمد عبدالرحمن 1

للرفع ------------------------- اللهم صلِّ وسلّم على نبيّنا محمّد

اخي عملت حسب الشرح ومازالت المشكلة نفسة الرسالة الاوفيس 2016

اشكرك انا جربت اليوزر فورم الاول وهو ممتاز جدا لكن تظهر لي رسالة خطاء ولا يتم تنفيذ كثير من الاكود شاهد الرساله Run Time Error 13 - Type Mismatch انا لا اريد تحويل التاريخ اريد اخال التاريخ من يوزر فورم بدون تظهار هذه الرسالة

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

اخـي واستاذي ابـــوعـــيــــد جـزاك الله خيـرا وزادك عـلمـا ونفع بـك وبــــارك فيـك وفـى وقتك وعلمك وعملك وعمرك ووقــتك وأهلــك وذريتـــــــك وجعـل عملك هــذا فى ميـزان حسنــاتــك يــوم الـقيـــــامــة

استاذ ابوعيد امـــــــــــ بنتظاركم ــــــــــــــــــــل المساعـــــــــــــــــــــــــــــــــــــدة

ياكرام ساعدوني بارك الله فيكم امـــــــــــ بنتظاركم ــــــــــــــــــــل المساعـــــــــــــــــــــــــــــــــــــدة

استاذ ابوعيد صحيح زر الاضافه لايعمل لان اوقفته اكماله بسبب هذي المشكلة وسؤالي في حال اضافة صف جديد تتغير بيانات البيل واتكست في الفوارم جرب اضف صف رقم 5 او غيره قبل العبارات المكتوبه التي تظهر في الفوارم وشاهد التغير في الفوارم امـــــــــــ بنتظاركم ــــــــــــــــــــل المساعـــــــــــــــــــــــــــــــــــــدة

استاذ ابوعيد اين انت بارك الله فيك امـــــــــــ بنتظارك ــــــــــــــــــــل المساعـــــــــــــــــــــــــــــــــــــدة

استاذ ابوعيد تم رفاق الملف امـــــــــــ بنتظاركم ــــــــــــــــــــل المساعـــــــــــــــــــــــــــــــــــــدة

السلام عليكم الاخوه الكرام وخاصه ‏‎الاستاذ ابوعيد هل يوجد امكانيه لتحديد الاضافة ب 20 صف فقط اي من صف واحد حتى 20 صف ولا يقبل اكثرمنها لكي تكون مناسبة لطباعة

‏‎استاذ ابوعيد تفضل مرفق الملف امـــــــــــ بنتظاركم ــــــــــــــــــــل المساعـــــــــــــــــــــــــــــــــــــدة مشكلة تغير اليبل والتكس عند اضافة صف.rar

ياكرام ساعدوني بارك الله فيكم امـــــــــــ بنتظاركم ــــــــــــــــــــل المساعـــــــــــــــــــــــــــــــــــــدة

السلام عليكم اخواني ماهو الحل عند ربط ليبل مع قيمه خليه محددة عندما يتم اضافة صف جديد هل F4 $ تفيد هنا مثل لبيل1 مربوط بقيمه خليه A6 في حال تم اضافة صف ثاني اوالثالث او رابع طبعا قبل A6 سوف تنتقل الخليه بما في داخلها الي الاسف تصبح الخليه التي فيها القيمه المطلوبه A7 بدل A6 المشكلة البيل سوف يضل يعرض محتوي الخليه A6 ماحو الحل من داخل محرر الاكواد هل اكتبها بهذا الشكل $ A6 $ ماهي الطريق الصحيحة باارك الله فيكم

السلام عليكم الاخوه الكرام وخاصه ‏‎الاستاذ ابوعيد هل يوجد امكانيه لتحديد الاضافة ب 20 صف فقط اي من صف واحد حتى 20 صف ولا يقبل اكثرمنها لكي تكون مناسبة لطباعة

‏‎استاذ ابوعيد بارك الله فيك ورحم والدينا ووالديك.. تسلم على سعة صدرك يا غالي .. ﷲ يجزاك خير ويسعدك وجميع من تفاعل معي بالموضوع

ياكرام ساعدوني بارك الله فيكم امـــــــــــ بنتظاركم ــــــــــــــــــــل المساعـــــــــــــــــــــــــــــــــــــدة

استاذ ابوعيد اين انت بارك الله فيك امـــــــــــ بنتظارك ــــــــــــــــــــل المساعـــــــــــــــــــــــــــــــــــــدة

صبحكم الله بالخير والسرور والرضا والنعيم جميعا

استاذ ابوعيد اين انت بنتظارك

استاذ ابوعيد اين انت بارك الله فيك امـــــــــــ بنتظارك ــــــــــــــــــــل المساعـــــــــــــــــــــــــــــــــــــدة

استاذ ابوعيد عندما اضغط اضافة تظهر هذه النافذة

ياكرام ساعدوني بارك الله فيكم امـــــــــــ بنتظاركم ــــــــــــــــــــل المساعـــــــــــــــــــــــــــــــــــــدة

استاذ ابوعيد والله انت مبدع يعطيك العافيه استاذي يوجد مشكلة بسيطة وهي بعض الخلاياء بدون التنسيق الحدود نفس السابقة مرفق صوره وكذالك المعادلة في عامود G لم تندرج في الاضافة واطلب منك لوتكرت كتابة توضيح وشرح تحت كل كود بالعربي لكي افهم واستطيع التعديل في المستقبل يعني هو يخذ كبي نسخ من اي سطر يكررة المدى التنسيق عمل كل سطر بالكود Private Const ContColumn As Integer = 7 Sub Kh_Insert_Rows() Dim r, s, x, c, d 'r = ActiveCell.Row s = InputBox("أدخل عدد الصفوف المراد أضافتها", "إضافة الصفوف", 1) 'If r < 7 Then Exit Sub Application.ScreenUpdating = False r = Range("A6").End(xlDown).Row + 1 For x = 1 To s Range("A" & r).Resize(1, 18).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A" & r) = 1 Next c = Range("A6").End(xlDown).Row Range("A" & r - 1).AutoFill Destination:=Range("A" & r - 1).Resize(s + 1, 1), Type:=xlFillDefault Range("C" & r - 1).Resize(1, 2).AutoFill Destination:=Range("C" & r - 1).Resize(s + 1, 2), Type:=xlFillDefault Range("R" & r - 1).Resize(1, 1).AutoFill Destination:=Range("R" & r - 1).Resize(s + 1, 1), Type:=xlFillDefault For d = 1 To c - 5 Range("A" & d + 5) = d Next 'Range("A6").FormulaR1C1 = "=MAX(R2C:R[-1]C)+1" ' Range("A6").AutoFill Destination:=Range("A3:A" & (c + s)) 'Range("A6:A" & c) = Range("A6:A" & c).Value Application.ScreenUpdating = True End Sub وصدقني عاجز عن الشكر لشخصك الكريم انت ومن تفاعل وبالانتظار .

ياكرام ساعدوني بارك الله فيكم امـــــــــــ بنتظاركم ــــــــــــــــــــل المساعـــــــــــــــــــــــــــــــــــــدة