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