طلب تعديل على كود

[abobasil55]

صباح الخير

اريد تعديل على هذا الكود بحيث يدخل البيانات في B8 بدلا من المكان الفارغ في العمود

Private Sub cmdAdd_Click()
Dim M As Integer
M = Sheet3.Range("B500").End(xlUp).Row + 1
Sheet3.Cells(M, "B").Value = Sheet1.Range("G6").Value

اذا عدلتها بهذا الشكل واضفت B8 بدلا من B يظهر خطا

Sheet3.Cells(M, "B9").Value = Sheet1.Range("G6").Value

عفوا اقصد B9

[أ / محمد صالح]

هذا الكود يقوم بوضع قيمة الخلية G6 من الشيت صاحب الاسم البرمجي sheet1

في أول خلية فارغة بعد آخر خلية مكتوب فيها في العمود B في الشيت صاحب الاسم البرمجي sheet3

المطلوب غير واضح لي بصورة كافية.

وإذا كنت تقصد وضع نفس القيمة في الخلية B9 فلا حاجة للمتغير M الذي يشير لأول خلية فارغة بعد المكتوب

ويمكن تعديل الكود لهذا

Private Sub cmdAdd_Click()
Sheet3.Cells(9, "B").Value = Sheet1.Range("G6").Value
End Sub

لاحظ تم تغيير m إلى رقم الصف المطلوب وهو 9

بالتوفيق 

[محي الدين ابو البشر]

Sheet3.Range("B9").Value = Sheet1.Range("G6").Value

 

تم تعديل أكتوبر 21, 2021 بواسطه محي الدين ابو البشر

[abobasil55]

الف شكر لكم وجزاكم الله خيرا

[أ / محمد صالح]

جميعا بإذن الله تعالى 

[abobasil55]

استفسار اخر واعذروني

اذا ارت اضافة خلية اخر مع B9  مثلا B90

كيف يتم التعديل على الكود حتى يقبل

Sheet3.Range("B9").Value = Sheet1.Range("G6").Value

[أ / محمد صالح]

هذا المطلوب وغيره يعتمد على مدارسة أساسيات التعامل مع الأكواد

لذا يرجى البحث في المنتدى عن دورة vba لتعلم هذه الأساسيات

ويمكن ذلك بتكرار السطر مع تغيير رقم 9