(تمت الاجابة) ربط الترحيل بشرط خلو الخانة من البيانات

[skyblue]

الاساتذة المشرفين والاعضاء الافاضل بعد النحية

امل التكرم بالمساعدة في في الملف المرفق

تحياتي

نموذج.rar

[الـعيدروس]

السلام عليكم

الاخ الفاضل 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]

اشكرك استاذي على ردك لي وهذا من فضل الله .حقيقة انت استاذ متمكن من تفنيدك للامور وتوقعك لها , على الرغم انني اخطأت في المطلوب فقد كنت اريد ان لايتم الترحيل من النموذج الى ورقة2 اذا كانت الخلايا في ورقة 2 فاضية .

وكان الكود الثاني هو المطلوب كما توقعته انت وحل المشكلة التي لدي 100% .

وهذه لك مني

وادعوا الله لك بالتوفيق