اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

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

اهلاً اخي العزيز . 

انا بعمل ترتيب برنامج بعد الاكمال سوف يتم وضعه في الموقع للاستفادة منه . 

المطلوب فقط توجيه كود التعديل على شيت معين فقط لا غير . 

حيث لا يتم تاُير فتح الشيتات على مكان حفظ الفورم .

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information