asd2000 قام بنشر سبتمبر 27, 2021 مشاركة قام بنشر سبتمبر 27, 2021 يعطيكم العافيه مرفق لكم ملف اكسل احتاج فيه ترحيل البيانات بحيث لاتختفي حتي لو تم خذف البيانات الاساسية عجزت بكل الطرق حيث عند حذف بيانات الاساسية تنخذف البيانات المنسوخه في الحقول الآخر لأنني وضعت علامة يساوي فقط للنسخ مرفق لكم الشرح شاكر ومقدر لكم 555.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر سبتمبر 28, 2021 أفضل إجابة مشاركة قام بنشر سبتمبر 28, 2021 هذا المطلوب لا يتم بالمعادلات لابد من تدخل جراحي (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 4 رابط هذا التعليق شارك More sharing options...
asd2000 قام بنشر أكتوبر 3, 2021 الكاتب مشاركة قام بنشر أكتوبر 3, 2021 يعطيك العافيه واعنذر لازعاجك رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أكتوبر 3, 2021 مشاركة قام بنشر أكتوبر 3, 2021 جميعا بإذن الله تعالى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.