ارجو تعديل الخطا فى الكود

[إبراهيم ابوليله]

الاخوه الافاضل ارجو توضيح الخطا فى الكود

فى شيت STATMENTCopy of STAT-1.rar

[عبدالله المجرب]

السلام عليكم

جرب الاتي

غير هذا السطر

L = Range(B & 10000).End(xlUp).Row

بهذا

L = Range(A & 10000).End(xlUp).Row

[الخالدي]

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

بعد اذن الاستاذ عبدالله

لتصحيح الخطأ احذف احد السطرين

Range("A6:A10000") = Empty

Range(Cells(R, A), Cells(Range(A & 5000).End(xlUp).Row, A)).ClearContents

بالرغم من ذلك سوف يحدث مشكلة , فالكود سوف يستمر بالعمل دون توقف بسبب ان الكود في حدث الورقة عند التغير والكود يقوم بتغيرات في خلايا في الورقة ولحل مشكلة الكود في حدث الورقة جرب الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)

Static xxx

If Not Intersect(Target, [A6:B1000]) Is Nothing Then

If xxx = 1 Then Exit Sub

On Error GoTo 10

Application.ScreenUpdating = False

xxx = 1

L = Application.Max([A1000].End(xlUp).Row, [B1000].End(xlUp).Row)

If L < 6 Then GoTo 10

Range(Cells(6, "A"), Cells(L, "A")) = Empty

L = [B1000].End(xlUp).Row

If L < 6 Then GoTo 10

For I = 6 To L

If Cells(I, "A") = "" And Cells(I, "B") <> "" Then

	 N = N + 1

	 For ii = I To [B1000].End(xlUp).Row

		 If Cells(ii, "B") = Cells(I, "B") Then

		 Cells(ii, "A") = N

		 End If

	 Next ii

End If

Next I

10

xxx = 0

Application.ScreenUpdating = True

End If

End Sub

في أمان الله

Copy of STAT-2.rar

[إبراهيم ابوليله]

الاخوه الكرام

بارك الله فيكم

ومشكورين على الرد