بعد اذن أخى الفاضل / الخالدى
هذا كود آخر لإثراء الموضوع
Sub ragab()
Set mysh = Sheets("sheet1")
[a2:f100].ClearContents
For i = 2 To 100
If mysh.Cells(i, 3) = [i2] And mysh.Cells(i, 4) = [j2] And mysh.Cells(i, 10) = [k2] Then
Cells([a1000].End(xlUp).Row + 1, 1) = mysh.Cells(i, 2): Cells([b1000].End(xlUp).Row + 1, 2) = mysh.Cells(i, 4)
Cells([c1000].End(xlUp).Row + 1, 3) = mysh.Cells(i, 7): Cells([d1000].End(xlUp).Row + 1, 4) = mysh.Cells(i, 8)
Cells([e1000].End(xlUp).Row + 1, 5) = mysh.Cells(i, 9): Cells([f1000].End(xlUp).Row + 1, 6) = mysh.Cells(i, 10)
End If
Next i
End Sub
الترحيل بناء على ثلاث شروط.rar