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

طلب ربط الكود بشين معين


KI50NG

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

السلام عليكم . 

انا عملت فروم فية ادخال بيانات دون العودة للاكسال ولكن عندما ادوس على كلمت تعديل لا يتم التعديل 

لانه الكود غير موجه لصفحة الشيت المختصة كيف اربط الكود بشيت معين 

Private Sub CommandButton1_Click()
For i = 2 To 10000
If Cells(i, 1) = TextBox8.Text Then
Cells(i, 1).Select
Exit For
End If
Next i
ActiveCell.Offset(a, 0) = TextBox1.Text
ActiveCell.Offset(a, 1) = TextBox2.Text
ActiveCell.Offset(a, 2) = TextBox3.Text
ActiveCell.Offset(a, 3) = TextBox4.Text
ActiveCell.Offset(a, 4) = TextBox5.Text
ActiveCell.Offset(a, 5) = TextBox6.Text
ActiveCell.Offset(a, 6) = OptionButton1.Value

End Sub

 

رابط هذا التعليق
شارك

34 دقائق مضت, KI50NG said:

السلام عليكم . 

انا عملت فروم فية ادخال بيانات دون العودة للاكسال ولكن عندما ادوس على كلمت تعديل لا يتم التعديل 

لانه الكود غير موجه لصفحة الشيت المختصة كيف اربط الكود بشيت معين 


Private Sub CommandButton1_Click()
Dim my_Sh As Worksheet
 Set my_Sh = ActiveSheet
 With my_Sh
 For i = 2 To 10000
 .Cells(i, 1).Activate
 If .Cells(i, 1) = TextBox8.Text Then Exit For
 Next i
For k = 0 To 5
  ActiveCell.Offset(a, k) = TextBox & k + 1
  Next
  ActiveCell.Offset(a, 6) = OptionButton1.Value
End With
End Sub

 

جرب هذا الكود

 

رابط هذا التعليق
شارك

أخى الكريم

وبعد اذن الأستاذ الكبير // سليم

جرب التالى

أضف التالي بعد أول سطر بالكود

Application.ScreenUpdating = False
'rest
On Error Resume Next
Sheet7.Activate

ثم قبل آخر سطر أضف السطر التالى

Application.ScreenUpdating = True

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information