من فضلكم كيف امنع تكرار الترحيل

[djeddi70]

من فضلكم اريد المساعدة في كود الترحيل برقم مثلا ترحيل 1 ، ترجيل 2 ، ......  حتى لا يعيد الترحيل مرة أخرى

و لكم مني فائق الاحترام و التقدير.

z1 = Sheets("Dataentry").Range("e5").Value
For i = 3 To 34
If z1 = Sheets("Timeline").Cells(1, i) Then
Sheets("Timeline").Cells(3, i) = Sheets("Dataentry").Range("e7").Value
Sheets("Timeline").Cells(4, i) = Sheets("Dataentry").Range("e8").Value
Sheets("Timeline").Cells(8, i) = Sheets("Dataentry").Range("e10").Value
Sheets("Timeline").Cells(9, i) = Sheets("Dataentry").Range("e11").Value
End If
Next i
Sheets("Dataentry").Range("e7:f11").ClearContents

job costing.rar

job costing.rar