من فضلكم اريد المساعدة في كود الترحيل برقم مثلا ترحيل 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