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