السلام عليكم
هذا جزء من كود
اريد التعبير عن المتغير بحيث الاسطر تزيد او تنقص
هو يقوم بالجمع الفرعى لاسم معين
اشكركم
sub saad1111111111111111()
On Error Resume Next
For i = 6 To 48 'Step 2
If IsEmpty(Cells(i, 2)) Then
Cells(i, 2).Resize(1, 22).Interior.Color = RGB(192, 192, 192)
Cells(i, 2).Resize(1, 22).Formula = "=SUM(R[-" & ii & "]C:R[-1]C)"
End If
Next i
End Sub
1.rar