اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


abobasil55
إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

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

صباح الخير

اريد تعديل على هذا الكود بحيث يدخل البيانات في 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

بالتوفيق 

رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

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