mahmoudafefy قام بنشر أغسطس 22, 2013 قام بنشر أغسطس 22, 2013 (معدل) السلام عليكم ورحمه الله وبركاته انا عملت نموذج ادخال وهو شغال تمام بس فيه مشكله واحده انا عامل زى للبحث عن اول سطر فارغ ويكتب فيه تمام المشكله انى لما بكتب اسم وبدوس ادخاال الأسم بيتكتب عادى لو مسحت وكتبت نفس الاسم مره تانيه الاسم بردو بيتكتب عاو احلى التكست بوكس او البتون ميكررش الاسم اكثر من مره وشكرا ورقه بالحصه.rar تم تعديل أغسطس 22, 2013 بواسطه mahmoudafefy
ياسر خليل أبو البراء قام بنشر أغسطس 22, 2013 قام بنشر أغسطس 22, 2013 أخي الحبيب عذراً أرفق ملفك لكي يسهل على الأخوة الأفاضل مساعدتك
الـعيدروس قام بنشر أغسطس 22, 2013 قام بنشر أغسطس 22, 2013 السلام عليكم تفضل المرفقات ورقه بالحصه_1.rar
mahmoudafefy قام بنشر أغسطس 23, 2013 الكاتب قام بنشر أغسطس 23, 2013 تمام ياريت بعد اذنك بس تفهمنى الكود وكمان عاوز زى حفظ كمان انا عامل فى خانه الاسم لما ابحث هيظهرلى الاسم لو مسحتو ودوست حفظ بيتمسح فأنا لو كاتب اسمين مختلفين وجيت عملت مسح للأسم التانى وخليتو زى الاول ودوست حفظ بيتسيف عادى وبيبقى فى اسمين تحت بعض بنفس الاسم ياريت تكون فهمتنى ورقه بالحصه.rar
الـعيدروس قام بنشر أغسطس 23, 2013 قام بنشر أغسطس 23, 2013 السلام عليكم Ch = TextBox1 '----------------------------------------------- ' A'اخر صف به بيانات للعمود La = Cells(Rows.Count, 1).End(xlUp).Row 'CountIf = حساب عدد الخلايا في نطاق والتي تحقق الشرط المعطى ' النطاق = Range("A14:A" & اخر صف به بيانات) ' الشرط = Ch ' متغير لمربع النص If Application.CountIf(Range("A14:A" & La), Ch) = 1 Then MsgBox "الاسم مكرر": TextBox1 = "": TextBox1.SetFocus: Exit Sub End If تم عمل تنبية للتكرار على زر الحفظ ايضاً في المرفقات ورقه بالحصه_2.rar
أبو عبد الملك السوفي قام بنشر أغسطس 24, 2013 قام بنشر أغسطس 24, 2013 السلام عليكم أخي عباد أرجو أن تضيف هذا الكودللملف المرفق في شيت كل القوائم فأنا أيضا لا أريد أن يتكرر الاسم و بشرط أن يكون التنبيه عند زر ترحيل البيانات في نموذج إدخال بيانات جديدة برنامج المنحة المدرسية 18.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.