تعديل كود

[ابو حمادة]

السلام عليكم ورحمة الله تعالى وبركاتته

مرفق ملف به يوزر فورم لاضافه وتعديل وحذفالبيانات به خطا في  الجزء الخاص باضافه البيانات

ارجو من الاخوة الافاضضل  اساتذتي الاجلاء مراجعته  ومساعدتي في وجود الحل له   مرفق ملف 

تعديل.rar

انظر الصورة  لتوضيح المشكله عند الاضافه

 

 

 

[ياسر خليل أبو البراء]

وعلكيم السلام

جرب التعديل التالي

' ====================================================
              On Error Resume Next
    'With MyRange.Cells(1, 0).Offset(ComboBox1.ListIndex)
    For R = 1 To 28
        Sh.Cells(Lr, R).Value = Me.Controls("TextBox" & R).Value
    Next
'End With
    If MsgBox(" لقد تمت تعديل مرتب السيد/ " & (Me.TextBox1.Value), vbMsgBoxRight, "تاكيد التعديل ") = vbNo Then Exit Sub
    
Else
'================== خاص بتعديل البيانات  ==================

 

[ابو حمادة]

1 ساعه مضت, ياسر خليل أبو البراء said:

وعلكيم السلام

جرب التعديل التالي

' ====================================================
              On Error Resume Next
    'With MyRange.Cells(1, 0).Offset(ComboBox1.ListIndex)
    For R = 1 To 28
        Sh.Cells(Lr, R).Value = Me.Controls("TextBox" & R).Value
    Next
'End With
    If MsgBox(" لقد تمت تعديل مرتب السيد/ " & (Me.TextBox1.Value), vbMsgBoxRight, "تاكيد التعديل ") = vbNo Then Exit Sub
    
Else
'================== خاص بتعديل البيانات  ==================

 

شكرا لاهتمامك استاذي الغالي

بعد التجربه بيكون             اضافة  البيانات بدايه من العمود A واريد يكون بداية      الاضافه العمود B لان  العمود A الاول خاص بالتسلسل

 

 

[ياسر خليل أبو البراء]

غير الرقم 1 إلى 2 في هذا السطر

For R = 1 To 28

 

[ابو حمادة]

للاسف استاذي  الفاضل  مازالت المشكله قائمة ايضا

علما ان هذا السطر  يشير لاضافه التكستات من 1 الى اخر تكست 28 ومع تغيير الرقم 1 الى 2 يبدا الاضافه من تكست 2 الى 28 ويترك التكست رقم 1

2 ساعات مضت, ياسر خليل أبو البراء said:

غير الرقم 1 إلى 2 في هذا السطر

For R = 1 To 28

 

للاسف استاذي  الفاضل  مازالت المشكله قائمة ايضا

علما ان هذا السطر  يشير لاضافه التكستات من 1 الى اخر تكست 28 ومع تغيير الرقم 1 الى 2 يبدا الاضافه من تكست 2 الى 28 ويترك التكست رقم 1

 

[ياسر خليل أبو البراء]

إذاً قم بتغيير السطر التالي

Sh.Cells(Lr, R).Value = Me.Controls("TextBox" & R).Value

ليصبح بهذا الشكل

Sh.Cells(Lr, R+1).Value = Me.Controls("TextBox" & R).Value

 

[ابو حمادة]

4 دقائق مضت, ياسر خليل أبو البراء said:

إذاً قم بتغيير السطر التالي

Sh.Cells(Lr, R).Value = Me.Controls("TextBox" & R).Value

ليصبح بهذا الشكل

Sh.Cells(Lr, R+1).Value = Me.Controls("TextBox" & R).Value

 

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

لي طلب اخير وضع سطر يوضع اخر الكود للتسلسل لو امكن بعد اذنك في العمود A

 

[ياسر خليل أبو البراء]

يمكن إضافة سطر في داخل نفس الحلقة التكرارية بهذا الشكل

Sh.Cells(Lr, R).Value = Sh.Cells(Lr, R).Value -6

اضبط -6 لكي تتوافق مع ملفك ..أنا وضعت مجرد مثال

هذا والله أعلم

[ابو حمادة]

35 دقائق مضت, ياسر خليل أبو البراء said:

يمكن إضافة سطر في داخل نفس الحلقة التكرارية بهذا الشكل

Sh.Cells(Lr, R).Value = Sh.Cells(Lr, R).Value -6

اضبط -6 لكي تتوافق مع ملفك ..أنا وضعت مجرد مثال

هذا والله أعلم

هذا السطر بيتم كتابة -6  في المسلسل 

[ياسر خليل أبو البراء]

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