abobasil55

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

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

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

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

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

صباح الخير

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