أبو أيمن٤٩

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

شكرا أخي عبدالسلام على ردك ولكن يعطيني خطأ في الكود وخط أصفر على السطر Sheets("ورقة2").Cells(a, 1).Select Private Sub CommandButton6_Click() For a = 1 To 10000 If Sheets("ورقة2").Cells(a, 1) = TextBox1.Text Then Sheets("ورقة2").Cells(a, 1).Select Exit For End If Next a Sheets("ورقة2").ActiveCell.Offset(0, 1) = TextBox2.Text Sheets("ورقة2").ActiveCell.Offset(0, 2) = TextBox3.Text Sheets("ورقة2").ActiveCell.Offset(0, 3) = TextBox4.Text Sheets("ورقة2").ActiveCell.Offset(0, 4) = TextBox5.Text Sheets("ورقة2").ActiveCell.Offset(0, 5) = TextBox6.Text Sheets("ورقة2").ActiveCell.Offset(0, 6) = TextBox7.Text Sheets("ورقة2").ActiveCell.Offset(0, 7) = TextBox8.Text Sheets("ورقة2").ActiveCell.Offset(0, 8) = TextBox9.Text Sheets("ورقة2").ActiveCell.Offset(0, 9) = TextBox10.Text Sheets("ورقة2").ActiveCell.Offset(0, 10) = TextBox11.Text End Sub يظهر خط أصفر تحت السطر يلي مكتوب باللون الأحمر

شكراً لك أخي العزيز ياسر على مساعدتك وأسف على السؤال لأني جديد في عالم الأكسل أنا عملت الطريقه أدناه ولكن لم تعمل ممكن لو تسمح تفهمي أكثر : Private Sub CommandButton6_Click() For a = 1 To 10000 If Cells(a, 1) = TextBox1.Text Then Cells(a, 1).Select Exit For End If Next a Sheets("ورقة2").ActiveCell.Offset(0, 1) = TextBox2.Text Sheets("ورقة2").ActiveCell.Offset(0, 2) = TextBox3.Text Sheets("ورقة2").ActiveCell.Offset(0, 3) = TextBox4.Text Sheets("ورقة2").ActiveCell.Offset(0, 4) = TextBox5.Text Sheets("ورقة2").ActiveCell.Offset(0, 5) = TextBox6.Text Sheets("ورقة2").ActiveCell.Offset(0, 6) = TextBox7.Text Sheets("ورقة2").ActiveCell.Offset(0, 7) = TextBox8.Text Sheets("ورقة2").ActiveCell.Offset(0, 8) = TextBox9.Text Sheets("ورقة2").ActiveCell.Offset(0, 9) = TextBox10.Text Sheets("ورقة2").ActiveCell.Offset(0, 10) = TextBox11.Text End Sub

السلام عليكم ورحمة الله لكم كل الشكر والتقدير على كل ما تبذلوه من جهد لمساعدة الأخرين عندي طلب بسيط لو سمحتوا عملت فورم وبه زر للتعديل ولكن المشكلة أن التعديل يتم في أي ورقة مفتوحة أريد منكم كود تعريف زر التعديل بأن يكون التعديل بالورقة 2 Private Sub CommandButton6_Click() For a = 1 To 10000 If Cells(a, 1) = TextBox1.Text Then Cells(a, 1).Select Exit For End If Next a ActiveCell.Offset(0, 1) = TextBox2.Text ActiveCell.Offset(0, 2) = TextBox3.Text ActiveCell.Offset(0, 3) = TextBox4.Text ActiveCell.Offset(0, 4) = TextBox5.Text ActiveCell.Offset(0, 5) = TextBox6.Text ActiveCell.Offset(0, 6) = TextBox7.Text ActiveCell.Offset(0, 7) = TextBox8.Text ActiveCell.Offset(0, 8) = TextBox9.Text ActiveCell.Offset(0, 9) = TextBox10.Text ActiveCell.Offset(0, 10) = TextBox11.Text End Sub الأكواد الحمدلله شغالة وأذا كانت الورقة مفتوحة يتم التعديل عليها بدون مشاكل ولكن أذا كانت الورقة غير مفتوحة يتم التعديل على الورقة المفتوحة طلبي أريد فقط كيفية تعريفه بالورقة2 فقط عشان أي تعديل يكون بها .

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

الأستاذ ياسر خليل الملف المرفق بالأعلى يحتوي على بيانات وبه عدد 2 فورم اريد في الفورم2 ظهور النتائج من الشيت رقم3 حيث الآن تظهر فقط 20 خلية في الفورم2 وهو يوجد به حوالي 64 خليه ولا أعرف السبب مع أني حاولت عليه كثيرا ولم أستطيع مع العلم أن جميع التكست بوكس تم عملها في الفورم2 وكذلك تم كتابة الأكواد في اليوزرفورم2 فأرجو منكم المساعدة في ذلك . وأي إستفسار أنا حاضر .

ما شـاء الله 33 زيارة ولا واحد تكرم بالمساعدة يا أصدقائي محتاج الموضوع ضروري وكل شي موجود بالملف المرفق أتوقع بس تعديل في أحد الأكواد يعني شغل دقائق بس وإن شاء الله في ميزان حسناتكم

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

السلام عليكم ورحمة الله بصراحة أستفدت كثيرا من هذا المنتدى والشكر لكم جميعا فارجوا منكم مساعدتي في زيادة خلايا الإدخال في الفورم2 لأني نزلت برنامج من المنتدى وأريد زيادة خانات الإدخال في الفورم2 المطلوب ظهور النتائج في الخانات في الفورم2 حتى الخلية bk ‏‏نسخة.rar

شكرا لك أخي العزيز على سرعة ردك وعلى هذه المعلومة القيمة

السلام عليكم مرفق لكم ملف أرجوا منكم مساعدتي في ظهور التاريخ تلقائيا بعد فترة معينة حسب عدد الأيام المطلوبة حساب.rar

حاولت أرفع الملف اكثر من مرة ولم استطع ولا اعرف السبب . ارجو منك ارسال بريدك الالكتروني لكي اتمكن من ارسال الملف لك . وهذا بريدي الالكتروني mrgan49@gmail.com

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

شكراً لك أخي العزيز وإن شاء الله في ميزان حسناتك

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