۩◊۩ أبو حنين ۩◊۩

السلام عليكم جزاك الله كل الخير اخى محمد

للرفع

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

السلام عليكم الاخ العزيز هانى ارجو ان تكون بك لخير مرفق الملف اتمنى ان يكون مرادك طباعة1.rar

جزاك الله كل الخبر اخى حماده سلمت يداك لك منى خالص التقدير

السلام عليكم اخى حماده عمر اولا سلمت يداك .. لم اوضح الطلب بصوره صحيحه هل يمكن جعل اخر خليه بها مدخلات ... هى الحد المستخدم فى كود رسم بيانى اخر خليه فى نطاق B لان لها رسم بيانى منفصل وكذلك اخر خليه فى نطاق C لان لها رسم بيانى منفصل وكذلك اخر خليه فى نطاق D لان لها رسم بيانى منفصل Private Sub OptionButton1_click() ChartObjects("Chart 1").Chart.SetSourceData Source:=Sheets("Sheet1").Range("B4:B20,c4:c20,d4:d20") End Sub مرفق الملف .. اعتزر على عدم ايصال المطلوب بصورة وافية تعديل أكواد أزرار الاختيارات1.rar

للرفع اكرمكم الله

السلام عليكم بعد اذن اخى الحبيب والمعلم الكبير حمادة عمر مرفق الملف ترحيل_W.rar

السلام عليكم الا الغالى حماده برجاء صورة الكودى لدى تظهر غير مقروئه تظهر بهذا الشكل برجاء كتابه ما بالون الاحمر جزاك الله خيرا Private Sub Workbook_Open() Dim M, pasword pasword = "1234" If Date >= CDate("01/05/2014") Then M = MsgBox("C? ?C?E ?I?? ???E C????? ?C?UU ??? ???", vbCritical + vbYesNo, "E???I") If M = vbNo Then Application.Quit Else If M = vbYes Then If pasword = InputBox("CII? ???E C????? ??C", "???E C?????") Then Sheet1.Select Exit Sub GoTo 1 Else MsgBox "??? ?I?? C??? ??E? C?E??C??", vbCritical, "I??" Application.Quit End If: End If: End If: End If 1 End Sub

السلام عليكم ارجو المساعده هل يمكن جعل اخر خليه بها مدخلات ... هى الحد المستخدم فى كود رسم بيانى بمعى اذا كان اخر مدخل هى الخليه B20 و C20 و D20 واذا تغير واصبح اخر مدخل هى الخليه B30 و C30 و D30 فهل يمكن جعل ذلك يتغير فى الكود تلقائى Private Sub OptionButton1_click() ChartObjects("Chart 1").Chart.SetSourceData Source:=Sheets("Sheet1").Range("B4:B20,c4:c20,d4:d20") End Sub

السلام عليكم اخى احمد عبد الفتاح ارجو ان يفى الملف بالغرض كانت فكره وارجو ان تفى بالغرض وقد ساعدنى بها الاخ جمال عبد السميع جزاه الله خيرا تعديل أكواد أزرار الاختيارات1.rar

سلمت يداك ااخى جمال جزاك الله خيرا

السلام عليكم اخى العزيز جمال سلمت يداك اين المرفق ؟

السلام عليكم اخى العزيز جمال سلمت يداك الا انه عن الاستدعاء بين تارخين 1/1/2010 الى 1/12/2010 يظهر تاريخ واحد فقط الا انهم 13 برجاء تصحيح الوضع سلمت يداك وجزاك الله خيرا

السلام عليكم الاخوة الافاضل يوجد خطاء فى معادلات الاستدعاء بين تاريخين لا اعلم اين هو ارجو المساعده استدعاء بين تاريخين.rar

السلام عليكم اخى طارق دائما مبدع ويوجد حلول لكل شئ ... سلمت يداك بكل خير

السلام عليكم اخى الحبيب طارق جزاك الله كل الخير والله لا اجد ما اقدرك حقك انت وبافى الاخوة الافاضل وخاصه العبقري / عبدالله باقشير حفظه الله سلمت يداكم بكل خير وجعله الله فى ميزان حسناتكم

السلام عليكم اخى الحبيب طارق اسال الله ان تكون بكل خير اخى الحبيب ... تم تغير السطر كما نوهت .. الا انه عند استخدام الكود واضافه الصفوف المراده ... بتم الكتابه على البيانات التى تليها وتظهر عند ارداج 5 صفوف فاكثر وتبقى نفس المشكله السابقه وهى عند اداراج الصفوف يتم الا انهم يتم ترحلهم بقدر عمود الى اليمين ... كما بالون الاصفر المشكله الاولى المشكله الثانية بعد تعديل السطر اخى طارق اعلم مدى انشغالك .. برجاء توضيخ رقم 4 ماذا يعنى Private Const MyColumn As Integer = 4 جزاك الله خيرا

السلام عليكم الاخوة الافاضل ارجو المساعده الملف النهائى فى المشاركة رقم 9 المسمى بى ترقيه4

السلام عليكم اخى الحبيب محمود الكود يعمل الا عند اضافه صفوف يتم وضعهم نكان مدخلات اخرى بمعنى عند ادراج 5 اسطر فى حقول كلابشة ..يتم وضعهم على بيانات حقول ام بركة لهذا كان الطلب يكون اضافه الصف عن طريق INSERT وليس PASET ارجو ان تجرب وقم باضافه 5 او اكثر ... منتظؤ الرد جزاك الله كل الخير

السلام عليكم وجدت كود رائع للاخ طارق والاخ عبد الله باقشير الا عند تنفيذة يوجد خطاء الاخوة الافاضل ارجو ان يكون اضفه الصف عن طريق INSERT وليس PASET ارجو المساعده ترقيه4.rar

الملف بعد اخر تعديل وجدت كود للاخ طارق محمود ... واعجز عن تطبيقه ترقيه2.rar

للرفع

للرفع اكرمكم الله

للرفع اكرمكم الله