المساعدة في تعديل كود حذف

[فتحى ابوالفضل]

عند الرغبة في حذف موظف يتم التظليل عليه في شيت الاساسي و الضغط على حذف  يتم حذفه بالفعل

ولكن

من المفترض ان يتم حذفه من جميع الصفحات المتعلقة براتبه في صفحات البدلات و العلاوات و الجزاءات و كشف 1 155 و ما يحدث هو كالصورة التالية في جميع الصفحات ما عدا شيت الاساسي الذي بالفعل يتم الحذف به

مدرسة.rar

[ابراهيم الحداد]

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

استخدم هذا الكود

Sub DelRows()
Dim Sh As Worksheet, Msg As String
Dim Nam As String
Dim i As Long, LR As Long
Nam = ActiveCell.Value
Msg = MsgBox("من كافة الشيتات" & " " & Nam & " " & "هل تريد فعلا ازالة السيد / ", vbYesNo)
For Each Sh In Worksheets
For i = 1000 To 4 Step -1
If Nam = "" Then Exit Sub
If Sh.Cells(i, 1) = Nam Or Sh.Cells(i, 2) = Nam Then
If Msg = vbYes Then
Sh.Rows(i).Delete
Else: Exit Sub
End If
End If
Next
Next
End Sub

 

[هانى محمد]

لاحظ استاذنا الكريم ظهور هذه الرسالة عند تطبيق الكود

بارك الله فيك

 

[فتحى ابوالفضل]

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

جزاك الله كل خير أخي الفاضل الاستاذ / زيزو العجوز

و جعل كل ما تقدمه في ميزان حسناتك

كود ممتاز مشكور عليه و لكن واجهتني عقبتين عند التطبيق

الاولى : ما ذكره أخي الفاضل  هاني محمد

و الثانية أن الاسم المحذوف تم حذفه بالفعل من شيت الاساسي  و كذلك شيت البدلات و شيت العلاوات و شيت الجزاءات و لكن لم يتم حذفه من الشيت الأخير و هو شيت كشف 1 155 كما بالصورة

جزاك الله عنا خير الجزاء

[ابراهيم الحداد]

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

اجعل الكود هكذا

الرجاء فقط تحديد الخلية التى تحتوى اسم الموظف و ليس الصف كله 

قبل تنفيذ الكود

Sub DelRows()
Dim Sh As Worksheet, Msg As String
Dim Nam As String
Dim i As Long, LR As Long
Nam = ActiveCell.Value
Msg = MsgBox("من كافة الشيتات" & " " & Nam & " " & "هل تريد فعلا ازالة السيد / ", vbYesNo)
For Each Sh In Worksheets
For i = 1000 To 4 Step -1
If Nam = "" Then Exit Sub
If Sh.Cells(i, 1) = Nam Or Sh.Cells(i, 2) = Nam Then
If Msg = vbYes Then
On Error Resume Next
Sh.Rows(i).Delete
Else: Exit Sub
End If
End If
Next
Next
End Sub

 

[فتحى ابوالفضل]

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

أخى الفاضل / زيزو العجوز

الكود يعمل بكفاءة

جزاك الله كل خير و جعل جميع اعمالك في ميزان حسناتك

و ارجو من حضرتك شرح الكود حيث انه عند تطبيق الكود على كشف 2 155 حدث كالسابق مع العلم بأنه لدى اكثر من كشف 155

تم تعديل أبريل 21, 2018 بواسطه فتحى ابوالفضل

[فتحى ابوالفضل]

ارجو من حضرتك شرح الكود حيث انه عند تطبيق الكود على كشف 2 155 حدث كالسابق مع العلم بأنه لدى اكثر من كشف 155

و جزاك الله خير