مساعدة طلب بسيط مطلوب تعريف فورم التعديل بالورقة 2

[أبو أيمن٤٩]

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

لكم كل الشكر والتقدير على كل ما تبذلوه من جهد لمساعدة الأخرين

عندي طلب بسيط لو سمحتوا 

عملت فورم وبه زر للتعديل ولكن المشكلة أن التعديل يتم في أي ورقة مفتوحة

أريد منكم كود تعريف زر التعديل بأن يكون التعديل بالورقة 2

Private Sub CommandButton6_Click()
For a = 1 To 10000
If Cells(a, 1) = TextBox1.Text Then
Cells(a, 1).Select
Exit For
End If
Next a
ActiveCell.Offset(0, 1) = TextBox2.Text
ActiveCell.Offset(0, 2) = TextBox3.Text
ActiveCell.Offset(0, 3) = TextBox4.Text
ActiveCell.Offset(0, 4) = TextBox5.Text
ActiveCell.Offset(0, 5) = TextBox6.Text
ActiveCell.Offset(0, 6) = TextBox7.Text
ActiveCell.Offset(0, 7) = TextBox8.Text
ActiveCell.Offset(0, 8) = TextBox9.Text
ActiveCell.Offset(0, 9) = TextBox10.Text
ActiveCell.Offset(0, 10) = TextBox11.Text

End Sub

الأكواد الحمدلله شغالة وأذا كانت الورقة مفتوحة يتم التعديل عليها بدون مشاكل

ولكن أذا كانت الورقة غير مفتوحة يتم التعديل على الورقة المفتوحة

طلبي أريد فقط كيفية تعريفه بالورقة2 فقط عشان أي تعديل يكون بها .

تم تعديل مايو 1, 2016 بواسطه مرجان11

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

أخي الكريم مرجان

موضوعك بسيط جداً

قبل كلمة ActiveCell والتي تتعامل مع الخلية النشطة أو المحددة تكتب أو تشير لاسم ورقة العمل وهناك أكثر من طريقة لعمل ذلك

إما أن تكتب كلمة Sheets يليها قوس مفتوح ثم قوس تنصيص ثم اسم ورقة العمل (حسب الاسم الذي كتبته لورقة العمل Data مثلا) ثم تغلق أقواس التنصيص ثم قوس مقفول يتبعها نقطة ثم كلمة ActiveCell

أو يمكنك استخدام الاسم البرمجي بشكل مباشر .. اذهب لمحرر الأكواد وانظر في نافذة المشروع على الاسم البرمجي

كما بالصورة التالية الاسم البرمجي Sheet1

أي يمكنك التعديل بنفسك ليكون بهذا الشكل أو هذا الشكل (وأنا أفضل التعامل مع الاسم البرمجي)

Sheets("Data").ActiveCell

'OR

Sheet1.ActiveCell

تقبل تحياتي

[أبو أيمن٤٩]

شكراً  لك أخي العزيز ياسر على مساعدتك 

وأسف على السؤال لأني جديد في عالم الأكسل 

أنا عملت الطريقه أدناه ولكن لم تعمل 

ممكن لو تسمح تفهمي أكثر :

 

 

Private Sub CommandButton6_Click()

For a = 1 To 10000

If Cells(a, 1) = TextBox1.Text Then

Cells(a, 1).Select

Exit For

End If

Next a

Sheets("ورقة2").ActiveCell.Offset(0, 1) = TextBox2.Text

Sheets("ورقة2").ActiveCell.Offset(0, 2) = TextBox3.Text

Sheets("ورقة2").ActiveCell.Offset(0, 3) = TextBox4.Text

Sheets("ورقة2").ActiveCell.Offset(0, 4) = TextBox5.Text

Sheets("ورقة2").ActiveCell.Offset(0, 5) = TextBox6.Text

Sheets("ورقة2").ActiveCell.Offset(0, 6) = TextBox7.Text

Sheets("ورقة2").ActiveCell.Offset(0, 7) = TextBox8.Text

Sheets("ورقة2").ActiveCell.Offset(0, 8) = TextBox9.Text

Sheets("ورقة2").ActiveCell.Offset(0, 9) = TextBox10.Text

Sheets("ورقة2").ActiveCell.Offset(0, 10) = TextBox11.Text

End Sub

 

[عبدالسلام ابوالعوافي]

Private Sub CommandButton6_Click()
For a = 1 To 10000
If Sheets("ورقة2").Cells(a, 1) = TextBox1.Text Then
Sheets("ورقة2").Cells(a, 1).Select
Exit For
End If
Next a
Sheets("ورقة2").ActiveCell.Offset(0, 1) = TextBox2.Text
Sheets("ورقة2").ActiveCell.Offset(0, 2) = TextBox3.Text
Sheets("ورقة2").ActiveCell.Offset(0, 3) = TextBox4.Text
Sheets("ورقة2").ActiveCell.Offset(0, 4) = TextBox5.Text
Sheets("ورقة2").ActiveCell.Offset(0, 5) = TextBox6.Text
Sheets("ورقة2").ActiveCell.Offset(0, 6) = TextBox7.Text
Sheets("ورقة2").ActiveCell.Offset(0, 7) = TextBox8.Text
Sheets("ورقة2").ActiveCell.Offset(0, 8) = TextBox9.Text
Sheets("ورقة2").ActiveCell.Offset(0, 9) = TextBox10.Text
Sheets("ورقة2").ActiveCell.Offset(0, 10) = TextBox11.Text
End Sub

جرب

[أبو أيمن٤٩]

شكرا أخي عبدالسلام على ردك

ولكن يعطيني خطأ في الكود 

وخط أصفر على السطر

Sheets("ورقة2").Cells(a, 1).Select

 

Private Sub CommandButton6_Click()

For a = 1 To 10000

If Sheets("ورقة2").Cells(a, 1) = TextBox1.Text Then

Sheets("ورقة2").Cells(a, 1).Select

Exit For

End If

Next a

Sheets("ورقة2").ActiveCell.Offset(0, 1) = TextBox2.Text

Sheets("ورقة2").ActiveCell.Offset(0, 2) = TextBox3.Text

Sheets("ورقة2").ActiveCell.Offset(0, 3) = TextBox4.Text

Sheets("ورقة2").ActiveCell.Offset(0, 4) = TextBox5.Text

Sheets("ورقة2").ActiveCell.Offset(0, 5) = TextBox6.Text

Sheets("ورقة2").ActiveCell.Offset(0, 6) = TextBox7.Text

Sheets("ورقة2").ActiveCell.Offset(0, 7) = TextBox8.Text

Sheets("ورقة2").ActiveCell.Offset(0, 8) = TextBox9.Text

Sheets("ورقة2").ActiveCell.Offset(0, 9) = TextBox10.Text

Sheets("ورقة2").ActiveCell.Offset(0, 10) = TextBox11.Text

 

End Sub

يظهر خط أصفر تحت السطر يلي مكتوب باللون الأحمر

 

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

أضف سطر قبل السطر الذي يظهر فيه الخطأ حيث يجب تنشيط ورقة العمل في هذه الحالة في البداية

Sheets("ورقة2").Select

وسؤالي لما تستخدم التحديد أو التنشيط ..يمكن الإشارة إلى الخلايا بدون تحديدها أو تنشيطها على الإطلاق .. الأمر يحتاج لمراجعة دقيقة للملف نفسه

أفضل إرفاق ملف وسأقوم لك بالتعديل بحيث يكون مرن بدون تنشيط أو تحديد الخلايا ..

[عبدالسلام ابوالعوافي]

او يمكن تجاوز التحديد 

Private Sub CommandButton6_Click()
For a = 1 To 10000
If Sheets("ورقة2").Cells(a, 1) = TextBox1.Text Then
Exit For
End If
Next a
Sheets("ورقة2").Cells(a, 1).Offset(0, 1) = TextBox2.Text
Sheets("ورقة2").Cells(a, 1).Offset(0, 2) = TextBox3.Text
Sheets("ورقة2").Cells(a, 1).Offset(0, 3) = TextBox4.Text
Sheets("ورقة2").Cells(a, 1).Offset(0, 4) = TextBox5.Text
Sheets("ورقة2").Cells(a, 1).Offset(0, 5) = TextBox6.Text
Sheets("ورقة2").Cells(a, 1).Offset(0, 6) = TextBox7.Text
Sheets("ورقة2").Cells(a, 1).Offset(0, 7) = TextBox8.Text
Sheets("ورقة2").Cells(a, 1).Offset(0, 8) = TextBox9.Text
Sheets("ورقة2").Cells(a, 1).Offset(0, 9) = TextBox10.Text
Sheets("ورقة2").Cells(a, 1).Offset(0, 10) = TextBox11.Text
End Sub

 

[أبو أيمن٤٩]

مشكورين على جهودكم الطيبة 

وهذا الملف في المرفقات 

اجازة.rar

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

أخي الكريم هل جربت الكود الأخير في مشاركة الأخ العزيز عبد السلام؟

أرى أنه قد أدى المطلوب بدون ملف مرفق (بسم الله ما شاء الله عليه) ربنا يجازيه خير

جرب وأخبرنا بالنتيجة .. وهل ما زالت نفس المشكلة قائمة أم لا

[أبو أيمن٤٩]

الحمدلله بعد التعديل الأخير للأخ العزيز عبدالسلام

الأمور طيبة 

ولكم ألف شكر وتقدير على جهودكم الجبارة

 

وإن شاء الله في ميزان حسناتكم