السلام عليكم
لقد قمت بادراج كود لزر الحذف من أجل ترتيب الأرقام الموجودة في العمود A بعد حذف بيانات أي سطر قصد المحافظة على التسلسل في الأرقام.
لكن بعد القيام بعملية الحذف يظهر وجود خطأ في الكود.
أرجو من الاخوة المساعدة في اصلاح الخلل في هذا الكود
لكم مني جزيل الشكر
Range("A4").Select
ActiveCell.FormulaR1C1 = "1"
Range("A5").Select
ActiveCell.FormulaR1C1 = "2"
Range("A4:A5").Select
Selection.AutoFill Destination:=Range("A"), Type:=xlFillDefault
نموذج.xlsm