اكواد تعديل واضافة وبحث

[KI50NG]

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

اخوتي الاعزاء . 

بدي كود التعديل يكون فقط على يوزر فورم 1 . 

عندما اكون فاتح صفحة USER1 وانا في شيت 2 يعدل على شيت اثنين وليس 1 بدي التعديل يكون على فورم مخصص 

يعني : عمل كود التعديل على فورم مخصص فقط لا غير موجهة لشيت واحد او اثنين او ثلاثة ولا يتعدى مكانه . 

والملف مرفق للاستفادة منه من اخوتي .

واتمنى النظر ايضاً في عمل LIST BOOKS  عند البحث يظهر من الشمال لليمن . والمطلوب من اليمين للشمال وترتيبه اذ امكن ولكم جزيل الشكر والتقدير . 

 

Set sh = Worksheets("1")
For i = 3 To 10000
If Cells(i, 3) = TextBox23.Text Or Cells(i, 2) = TextBox24.Text Then
Cells(i, 1).Select
Exit For
End If
Next i
ActiveCell.Offset(0, 1) = TextBox1.Text
ActiveCell.Offset(0, 2) = TextBox2.Text
ActiveCell.Offset(0, 3) = ComboBox1.Value
ActiveCell.Offset(0, 4) = TextBox3.Text
ActiveCell.Offset(0, 5) = TextBox4.Text
ActiveCell.Offset(0, 6) = TextBox5.Text
ActiveCell.Offset(0, 7) = TextBox6.Text
ActiveCell.Offset(0, 8) = TextBox7.Text
ActiveCell.Offset(0, 9) = TextBox8.Text
ActiveCell.Offset(0, 10) = TextBox9.Text
ActiveCell.Offset(0, 11) = TextBox10.Text
ActiveCell.Offset(0, 12) = ComboBox2.Value
ActiveCell.Offset(0, 13) = TextBox11.Text
ActiveCell.Offset(0, 14) = TextBox12.Text
ActiveCell.Offset(0, 15) = TextBox12.Text
MsgBox "Êã ÇáÊÚÏíá"
TextBox23.SetFocus

 

Book1.xlsx

[حسين مامون]

ربما يكون المرفق ما تريد يا اخي

قمت بتصميم فورم ومن خلاله يمكنك القيام بعدة عمليات منها البحث واشياء اخرى

الفورم يبحث حسب الصفحة النشطة 

ادخل رقم الصفحة ثم رقم القطعة

ان كان هذا ما تريد فخيرا ونكمل الباقي لاحقا ان شاء الله

Book1 (2).xlsm

[KI50NG]

حبيبي حسين . 

مشكور على المساعدة الجديدة . 

ولكن بدي النموذج نفسه لانه التصميم غير قابل للتعديل حاليا ً. 

واليست بوكس غير معدل البيانات غير مرتبة من اليمين الى الشمال حسب المطلوب . 

وكود التعديل لم اجدة وانا شاكر لحد لعملك المبدع وسوف نحاول نعمل شيء ينفع الجميع ان شاء الله 

[حسين مامون]

اخي الكريم 

معدرة : عملت هذا التصميم لاني لم اجد ما تكلمت عنه في الملف الذي رفعته في مشاركتك الاولى  ، ما فيه اي فورم ولا صفحة user كما ذكرتها ولا اي LIST BOX حاول رفع الملف الذي فيه التصميم كما ذكرت في مشاركتك

تحياتي

 

[KI50NG]

اخي حسين مامون الغالي .

الملف بخصوص  الاضافة H1 وملف التعديل HS1 وكذلك H2 و HS2 في داخلة تجد بوتون التعديل الكود الي في داخلة 

الكود تبع التعديل غير مخصص لشيت مخصص بحد ذاته . 

والبحث في TEXTBOOKS 23   متربط بال LIST BOOKS  . وهذا الكود اضن فيه خطاء واتمنى يكون من اليمين للشمال العرض تبعه . واي اضافات جيدة انا اكون شاكر لك  

[حسين مامون]

السلام عليكم 

استاذ KI50NG هذا الذي تتكلم عنه غير موجود في الملف الذي رفعته في مشاركتك الاولى