KI50NG قام بنشر فبراير 20, 2017 مشاركة قام بنشر فبراير 20, 2017 السلام عليكم . انا عملت فروم فية ادخال بيانات دون العودة للاكسال ولكن عندما ادوس على كلمت تعديل لا يتم التعديل لانه الكود غير موجه لصفحة الشيت المختصة كيف اربط الكود بشيت معين 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 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 20, 2017 مشاركة قام بنشر فبراير 20, 2017 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 جرب هذا الكود رابط هذا التعليق شارك More sharing options...
KI50NG قام بنشر فبراير 20, 2017 الكاتب مشاركة قام بنشر فبراير 20, 2017 ما اشتغل حبي .... انا عندي الشين أسمو sader ----- او ----- sheet7 رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر فبراير 21, 2017 مشاركة قام بنشر فبراير 21, 2017 أخى الكريم وبعد اذن الأستاذ الكبير // سليم جرب التالى أضف التالي بعد أول سطر بالكود Application.ScreenUpdating = False 'rest On Error Resume Next Sheet7.Activate ثم قبل آخر سطر أضف السطر التالى Application.ScreenUpdating = True رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.