تغيير إدخال البيانات في الفورم من الصفحة النشطة الى صفحة مختارة

[أنس دروبي]

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

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

أسف والله لا أذكر أسمه

وهو فورم إدخال بيانات موظفين ولكن في الصفحة النشطة وهي الأولى

أريد تعديل الكود وإدخال البيانات فيه الى الصفحة الثانية ومن الصف 5 في العمود (D) مثلاً.

وأرجوكم أريد شرح التعديل لأنني حاولت تعديل الكود ولكن يعطيني أنو يوجد جملة خطأ في كود الإضافة

والسلام عليكم

وجزاكم الله كل خير على كا ماتقدمه لنا

أخوكم أنس دروبي

Data Entry Form.1.rar

[أنس دروبي]

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

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

أسف على اﻷزعاج

والسلام عليكم

[deebsagheer]

الامر سهل يا أخ أنس و لولا ضيق الوقت كنت عملت كل التغيرات و أرفقتها لك لكن حاول ان تتبع هذا الأساس و جرب و سوف تستفيد من أخطائك:

حتي يتم الحدث في ورقة غير الورقة النشطه اكتب في بداية كود زر الأمر هذه الجمله sheets("اسم الورقه التي تريد الترحيل اليها").activate

بعد ذلك غير جملة التكرار For و اجعل المتغير i من رقم الصف الذي تريد و ليكن 5 الي 100 كما أردت أنت

و غير العمود من a إلي d مثلا كما أردت

Cells(i, 2) = TextBox2.Text هذه الجمله تفيد أن محتويات تكست بوكس رقم 2 سوف توضع في الخلية b5 حيث رقم 2 يدل علي رقم العمود و المتغير i يدل علي رقم الصف و الذي يتغير كل مره مع كل ادخال بحيث يكون أول ادخال 5 و التالي 6 و هكذا

أرجو أن تكون وضحت لك الفكره و عليك الباقي

جرب و اخطأ لتتعلم

تحياتي لك

[أنس دروبي]

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

الله يجزيك الخير أخي الكريم

على ردك وقمت بتجربة فكرتك وكان خطأي هو أن جملة sheets("اسم الورقه التي تريد الترحيل اليها").activate

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

والله يجزيك الخير أخي الكريم مرة ثانية

وأنتظر حلول أخرى علماً أن حلك أفاد بالمطلوب ولكن أثراء للموضوع

والسلام عليكم

أخوكم

أنس دروبي

[أنس دروبي]

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

أخواني قد قمت بعمل المطلوب ولكن يوجد خطأ في الملف المرفق

الخطأ مكتوب في قسم الأكواد ضمن CommandButton 4& Commandbutton3

فلو تفضلتم علي أيجاد الخطأ في الكود أو تنفيذ المطلوب على Sheet Anas

والله يجزيكم الخير على كل ما تقدموه لنا

والسلام عليكم

أخوكم

أنس دروبي

Data Entry Form..rar

[أنس دروبي]

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

أساتذتي في منتدى العمالقة

هل يوجد حل لطلبي أو أيجاد الخطأ في الملف المرفق

أرجو الرد أو عرض الأفكار حول الملف

والسلام عليكم

أنس دروبي

[عبدالله المجرب]

السلام عليكم

ضع ترويسة في الورقة Anas

وضع صف به بيانات

واليك التعديل على زري الخطاء

Private Sub CommandButton3_Click()

'زر حذف

Application.ScreenUpdating = False

For i = 1 To 100

If Val(TextBox1.Text) = Cells(i, 1) Then

rr = Cells(i, 1).Row

If rr = 1 Then Exit Sub

Cells(i, 1).EntireRow.Delete shift:=xlUp

TextBox1.Text = Cells(rr - 1, 1)

TextBox2.Text = Cells(rr - 1, 2)

TextBox3.Text = Cells(rr - 1, 3)

TextBox4.Text = Cells(rr - 1, 4)

TextBox5.Text = Cells(rr - 1, 5)

End If

Next i

Application.ScreenUpdating = True

TextBox1.SetFocus

End Sub

Private Sub CommandButton4_Click()

'زر اضافة

'هذا هو الخطأ bb = Range("a" & r).Offset(1, 0).Select

Sheets("Anas").Activate

For i = 2 To 1000

If Cells(i, 2) <> "" Then

Cells(i, 1) = i - 1

End If

Next

r = [a1000].End(xlUp).Row

bb = Range("a" & r).Offset(1, 0).Select

ActiveCell = Cells(r, 1).Value + 1

TextBox1.Text = Cells(ActiveCell.Row, 1)

Cells(ActiveCell.Row, 2) = TextBox2.Text

Cells(ActiveCell.Row, 3) = Val(TextBox3.Text)

Cells(ActiveCell.Row, 4) = TextBox4.Text

Cells(ActiveCell.Row, 5) = TextBox5.Text

TextBox1.SetFocus

End Sub