abobasil55
-
Posts
3 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو 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
