السلام عليكم
اخي ابو نصار
جرب المرفق
المسألة تعتمد على الدوال كثيرااا
لتحديد مكان وضع الوقت في الجدول
Sub TRHL_AM()
Dim FS As Worksheet, TS As Worksheet
Set FS = Sheets("ÝÊÑÉ ÕÈÇÍíÉ")
Set TS = Sheets("ÇáÌÏæá")
TC = FS.Range("H1")
ER = FS.Range("H2")
For FR = 4 To ER
TR = Cells(FR, 7).Value
If TR = "" Then GoTo 9
TS.Cells(TR, TC) = FS.Cells(FR, 5)
9 Next
End Sub
ترحيل حضور يومية موظف2.rar