ارجو المساعده للتعديل على كود تسلسل تلقائي

[الـعيدروس]

السلام عليكم ورحمة الله وبركاته

اساتذه الموقع العريق وعبارة اوفسينا عندي كود لتسلسل تلقائي

اريد التعديل عليه وهو عندما اقوم بحذف بينات من خليه يحذف التسلسل

اليكم الكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Column > 1 Then

Application.EnableEvents = True

With Cells(Target.Row, 1)

If .Value = "" Then

.Value = Format(Application.WorksheetFunction.Max(Columns(1)) + 1)

End If

End With

End If

Application.EnableEvents = True

End Sub

[طارق محمود]

السلام عليكم

تفضل أخي

الكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

Application.EnableEvents = False

	If Target.Value = "" Then

    	x = [A10000].End(xlUp).Row

    	For Each ce In Range("A1:A" & x)

        	ce.Value = ce.Value - 1

        	If ce.Value = 0 Then ce.Value = ""

    	Next ce


	End If



	If Target.Column > 1 Then

    	With Cells(Target.Row, 1)

        	If .Value = "" Then

        	.Value = Format(Application.WorksheetFunction.Max(Columns(1)) + 1)

        	End If

    	End With

	End If

Application.EnableEvents = True

End Sub

[احمد فضيله]

السلام عليكم ورحمة الله و بركاته

الاخ العزيز المهندس / طارق

جزاك الله كل خير على هذا العمل

لكن في ملاحظة أن لما بنحذف رقم مثلاً خاية من أمام الترقيم تظهر بعض المشكلات بالنسبة للتسلسل حيث يظهر المسلسل بالسالب ف بعض الخلايا

كما أنه في حالة حذف صف لا يتم التسلسل تلقائي

و الله الموفق والمستعان

و السلام عليكم ورحمة الله و بركاته

[الـعيدروس]

السلام عليكم ورحمة الله وبركاته

استاذنا الفاضل طارق محمود اشكر من كل قلبي

على التعديل ولاكن الكود يعتمد على كبست ديليت وليس على حذف بيان خليه

يعني اذا عملت حذف على الخليه وكررت وقتها اكثر من مره يعتمدها على الصفوف الاعلى منها

ياريت لو تعدل بالكود الله لايهينك وملاحظات الاخ الحبيب هانكوك في محلها صادفتني برضه

واعذرني على تأخري بالرد

والله المستعان

والسلام عليكم ورحمة الله وبركاته