اذهب الي المحتوي
أوفيسنا

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

قام بنشر

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

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

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

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

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

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

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

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

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

Data Entry Form.1.rar

قام بنشر

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

حتي يتم الحدث في ورقة غير الورقة النشطه اكتب في بداية كود زر الأمر هذه الجمله 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

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