[محمد اسماعيل]

السلام عليكم

الكود دة حلقة تكرارية لتصدير كل بيانات الداتا جريد فيو لتصديرها للاكسيل

كود :

 rowsTotal = DATAG.RowCount - 1
           colsTotal = DATAG_.Columns.Count - 1

           With excelWorksheet
               .Cells.Select()
               .Cells.Delete()
               For iC = 0 To colsTotal - 1
                   .Cells(1, iC + 1).Value = DATAG_.Columns(iC).HeaderText
               Next

               For I = 0 To rowsTotal
                   For j = 0 To colsTotal - 1
                       .Cells(I + 2, j + 1).value = DATAG_.Rows(I).Cells(j).Value
                   Next j
               Next I

               .Cells.Columns.AutoFit()
               .Cells.Select()
               .Cells.EntireColumn.AutoFit()
               .Cells(1, 1).Select()
           End With

اريد تعديلة ليتم نقل الصف الذي يتم تحديدة فقط بالداتا جريد فيو الصف المحدد فقط

عدلت الجزء التالي ولم يقم بالمطلوب

كود :

rowsTotal = DATAG_CLIENONLIN.SelectedRows.Count