skyblue قام بنشر نوفمبر 29, 2011 قام بنشر نوفمبر 29, 2011 الاساتذة المشرفين والاعضاء الافاضل بعد النحية امل التكرم بالمساعدة في في الملف المرفق تحياتي نموذج.rar
الـعيدروس قام بنشر نوفمبر 30, 2011 قام بنشر نوفمبر 30, 2011 السلام عليكم الاخ الفاضل skyblue بالنسبة الترحيل الى ورقة 1 ماعمره هيكون فاضل لان طلبك المرة اللي فاتت الاحتفاظ برصيد اول المدة لتكست 2 وتكست 2 يقراء رصيد اول المدة من ورقة 1 فا أرجو شرح المطلوب لماذا الشرط واذا كان الشرط لشيئ اخر فالكود بيكون كذا بعد اضافة الشرط Private Sub CommandButton3_Click() If ورقة1.Cells(1, 13).Value > "" Then MsgBox "سبق ترحيل الرصيد", vbExclamation, "خلايا ممتلئه": Exit Sub 'مسح القيم القديمة ورقة2.Cells(5, 5).Value = "" ورقة2.Cells(5, 6).Value = "" ' إدراج القيم الجديدة ورقة2.Cells(5, 5).Value = TextBox25.Value ورقة2.Cells(5, 6).Value = TextBox26.Value TextBox26 = TextBox25.Text ورقة1.Cells(1, 13).Value = TextBox26.Value TextBox25.Value = "" End Sub واذا كنت تقصد الضرط على تكست رصيد اول المدة بيكون هكذا Private Sub CommandButton3_Click() If TextBox25.Value = "" Then MsgBox "سبق ترحيل الرصيد", vbExclamation, "خلايا ممتلئه": Exit Sub 'مسح القيم القديمة ورقة2.Cells(5, 5).Value = "" ورقة2.Cells(5, 6).Value = "" ' إدراج القيم الجديدة ورقة2.Cells(5, 5).Value = TextBox25.Value ورقة2.Cells(5, 6).Value = TextBox26.Value TextBox26 = TextBox25.Text ورقة1.Cells(1, 13).Value = TextBox26.Value TextBox25.Value = "" End Sub واضنه هذا طلبك والسلام عليكم
skyblue قام بنشر نوفمبر 30, 2011 الكاتب قام بنشر نوفمبر 30, 2011 اشكرك استاذي على ردك لي وهذا من فضل الله .حقيقة انت استاذ متمكن من تفنيدك للامور وتوقعك لها , على الرغم انني اخطأت في المطلوب فقد كنت اريد ان لايتم الترحيل من النموذج الى ورقة2 اذا كانت الخلايا في ورقة 2 فاضية . وكان الكود الثاني هو المطلوب كما توقعته انت وحل المشكلة التي لدي 100% . وهذه لك مني وادعوا الله لك بالتوفيق
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.