أخى الحبيب / ابو البراء

أستاذى الكريم / إســـــــــــــــــلام



لكم منى كل الاحترام والتقدير

فكل ما أقدمه فى هذا المنتدى العريق إنما هو من ثمار بستان علمكم

أسأل الله العظيم أن يديم عليكم هذا البستان علما نافعا 

 
أخى الكريم

لظهور رسالة تحذيرية قبل عملية حذف الصفوف

استبدل كود الحذف الموجود فى المشاركة السابقة بالكود التالى

Sub M_D_DeleteRows()

Dim LR As Long, i As Long

Dim Ws As Worksheet

Set Ws = Sheets("Data")

LR = Ws.Range("D" & Rows.Count).End(xlUp).Row

'-----------------------------------------

Application.ScreenUpdating = False

Ws.Unprotect Password:="123"

M = MsgBox(" سيتم حذف الصفوف " & Chr(10) & "هل بالتأكيد تريد إتمام عملية الحذف ؟؟", vbYesNo, " أكاديمية الصقر للتدريب ")

If M = vbNo Then Exit Sub



If M = vbYes Then



For i = LR To 5 Step -1

If Ws.Cells(i, 13).Value = "خالص" Then

Ws.Cells(i, 13).EntireRow.Delete

End If

Next

End If

'-----------------------------------------

Ws.Protect Password:="123"

Application.ScreenUpdating = True

End Sub

 

 
الأستاذ /  takydeen

1ـ بالنسبة لرسالة الخطأ التى ظهرت ............> تم التعديل لتفاديها

2ـ الكود يعمل بأى عدد من الصفوف 5000 أو 10000 كما تشاء

3ـ إذا زاد عدد الأعمدة ...

يمكن التغيير فى نطاق الأعمدة بالمصفوفة فى الجزئية التالية :

Arr = Sh.Range("A6:N" & LR).Value


حيث (N) آخر عمود فى النطاق المراد الترحيل منه

وأيضا سيتم إضافة الأعمدة التى سيتم ترحيلها ضمن المصفوفة التالية :

Arr1 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14)


حيث أن هذه الأرقام تعبر عن أرقام الأعمدة فى المصفوفة ابتداء من العمود ( A) يعنى أن العمود ( A) = الرقم ( 1 ) وهكذا

--------------------------

أرجو أن يكون هو المطلوب 

وإليك الملف بعد التعديل لرسالة الخطأ

---------------------------------

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

--------------------------------- 

 
بارك الله فيك أخى / على

دائما رائع وحلول سريعة

--------------------------

وبعد إذنك اثراء للموضوع الذى سبقتنى بالحل كالعادة 

 حل آخر للترحيل بالمصفوفات إلى ملف مغلق

تم إنشاء مجلد باسم ( M_D) يحتوى على الصفحة الرئيسية المصدر ( Main) التى يتم الترحيل منها

وأيضا صفحة الهدف المراد الترحيل إليها وهى (Archive )

وسيتم الترحيل و وورقة الهدف مغلقة

ــ تم حماية ورقة العمل ـ كلمة المرور  123

ـ الترحيل للبيانات التى تحتوى على كلمة ( خالص ) فقط

ـ حذف الصفوف التى تحتوى على كلمة ( خالص ) فقط



-----------------------------------------

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

-----------------------------------------

تقبلوا تحياتى 

 

 
بارك الله فيك أخى الكريم

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

 
أشكرك أستاذى الجليل / حسام

على تشجعيك الدائم ومرورك العطر على الموضوع

-----------------------------

بارك الله فيك  استاذ هانى

وجزاكم خيرا ومشكور مروركم العطر على الموضوع

 
أساتذتى الكرام

المبدع / إسلام عبدالله ـ

العلامة / ياسر خليل ـ

المبدع / على محمد

مشكور مروركم العطر على الموضوع

وبارك الله فيكم جميعا وزادكم فضلا وعلما

 
قمة الابداع أستاذى الجليل / إسلام

تقبل وافر احترامى وتقديرى

 
أخى الحبيب / ابو البراء

كان الغرض من بدء التسلسل برقم غير 1  هو تطويع الكود لاستخدامه فى أرقام الجلوس لكل صف 

بحيث كل صف يبدأ بمسلسل معين وينتهى عند عدد طلاب هذا الصف وهكذا

 
بارك الله فيك أخى الحبيب / على

فعلا تم المطلوب

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

 
بارك الله فيك أخى الحبيب أبو البراء

و نحمد الله تعالى بوجود أستاذنا الكبير / سليم 

فعلا إضافة عظيمة للمنتدى

----------------------

نسأل الله العظيم أن يديم عليكم نعمة العلم النافع ويزيدكم علما

---------------------------------------



ملحوظة : لو حبيت أغير بداية كل سلسلة رقمية غير رقم 1  لاحظت أنه  يترك عدد أسطر فارغة تحتها بقيمة البداية التى اخترتها ثم يكمل

مثلا : عنتد اختيار بداية السلسلة برقم 10 فيتم الترقيم تمام بالسلسلة الأولى ،  وبعدها يترك 10 أسطر فارغة قبل البدء بالسلسلة الثانية وهكذا 

ـ فلماذا ؟؟؟؟ وهل يمكن تلافى ذلك ليكون التلسلسل  لباقى السلاسل الرقمية تحت بعضها مباشرة ؟؟؟؟

 
بارك الله فيك أخى الحبيب / أبو البراء

كده اشتغل الكود تمام

الله ينور عليك