Sub Reportig_Wages()
For i = 13 To 21
For s = 3 To 11
If Cells(i, "J") = "" Then
Cells(i, "j") = Cells(i - 1, "J")
End If
If Cells(i, "K") = Cells(s, "C") And Cells(i, "J") = Cells(s, "B") Then
Cells(i, "L") = Cells(s, "D")
End If
Next
Next
End Sub
السلام عليكم ورحمة الله
افتح موديول جديد واكتب هذا الكود