3 _ كود ادخال ترحيل بيانات بطريقة رأسية مع ترتيب الصفوف تصاعدى و بشرط عدم مسح خلية بها معادلة تكويد
Sub AddText()
With sheet1
.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 12).Value = .Range("B2").Resize(1, 12).Value
.Range("B2,D2:M2").ClearContents
With .Range("B3:M100")
.Sort .Columns(2), xlAscending
End With
End With
End Sub
ورقة تنفيذ الكود sheet1
نطاق سطر الادخال للبيانات (A2:M2) يمكن تعديله بناء على البيانات المطلوب ادخالها
بعد الضغط على زرار الترحيل سيتم ترحيل سطر الادخال بطريقة رأسية مع مسح البيانات و ابقاء صيغة المعادلة_التكويد بالخلية C2 يتم ازاحة و ترتيب الصفوف تصاعديا طبقا لمعلومية الرقم بالعمودC
مرفق التطبيق العملى
تحياتى و لا تنسونى من صالح الدعاء
كود ادخال ترحيل بيانات بطريقة رأسية مع ترتيب الصفوف تصاعدى و بشرط عدم مسح خلية بها معادلة تكويد_مينى كود_adham.rar