السلام عليكم ورحمة الله
تم التعديل على الجزئية التالية بالكود:
With Sheet2
X = .Range("A" & .Rows.Count).End(xlUp).Row
For R = 10 To X
If .Range("G" & R).Value = "مستجد" Then
M = M + 1
Cells(M + N, 2) = M
For C = 1 To 14
CC = Choose(C, 2, 3, 8, 9, 10, 11, 12, 13, 14, 16, 22)
Cells(M + N, C + 2) = .Cells(R, CC)
Next C
If M Mod 30 = 0 Then N = N + 8
End If
Next R
End With
حسب ما يلي :
With Sheet2
X = .Range("B" & .Rows.Count).End(xlUp).Row
For R = 8 To X
If .Range("G" & R).Value = "مستجد" Then
M = M + 1
Cells(M + N, 2) = M
For C = 1 To 11
CC = Choose(C, 2, 3, 8, 9, 10, 11, 12, 13, 14, 16, 22)
Cells(M + N, C + 2) = .Cells(R, CC)
Next C
If M Mod 30 = 0 Then N = N + 8
End If
Next R
End With
(التعديل كان في الأسطر 2 - 3 - 7 من هذه الجزئية)
بن علية
41 مستحدين.rar