ترحيل ونسخ بيانات اكسل

[asd2000]

يعطيكم العافيه مرفق لكم ملف اكسل احتاج فيه ترحيل البيانات بحيث لاتختفي حتي لو تم خذف البيانات الاساسية عجزت بكل الطرق حيث عند حذف بيانات  الاساسية تنخذف البيانات المنسوخه في الحقول الآخر

لأنني وضعت علامة يساوي فقط للنسخ

مرفق لكم الشرح

شاكر ومقدر لكم

555.xlsx

[أ / محمد صالح]

هذا المطلوب لا يتم بالمعادلات

لابد من تدخل جراحي (vba)

يمكنك استعمال هذا الكود في حدث عند التغيير 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 And Target.Column >= 1 And Target.Column <= 3 And Evaluate("=counta(a3:d3)") = 4 Then
lr1 = Cells(Rows.Count, 1).End(3).Row + 1
lr1 = IIf(lr1 < 4, 4, lr1)
lr2 = Cells(Rows.Count, 12).End(3).Row + 1
Range("a" & lr1 & ":d" & lr1).Value = Range("a3:d3").Value
Range("l" & lr2 & ":o" & lr2).Value = Range("a3:d3").Value
Range("a3:c3").ClearContents
End If
End Sub

وهذا ملفك بعد إضافة الكود وتغيير الامتداد

555.xlsb

[asd2000]

يعطيك العافيه واعنذر لازعاجك

 

[أ / محمد صالح]

جميعا بإذن الله تعالى