كود حذف البيانات المفلتره دون المعادلات

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

الاخوه الافاضل تحيه طيبه وبعد

ارجو المساعدهBook1.rar

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

ارجو المساعده

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

السلام عليكم

جرب هذا الكود

Sub Abu_Ahmed()

Dim cl As Range

For Each cl In Sheets("Sheet1").AutoFilter.Range

If Not cl.HasFormula = True Then cl = ""

Next

End Sub

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

الاخ عبد الله تحيه طيبه وبعد

مشكورا على مجهودك الرائع

وكن يوجد مشكله هى البطئ الشديد جدا عند المسح واننى اعرف ان اعمل الاكواد يكون اسرع بكثير

فهل هناك حل لمشله البطىء هذه

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

هل مدى الفلترة كبير

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

نعم منA 1 الى U 2410

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

الاخ عبد الله

ارجو المساعده

حيث عند التطبيق يتم حزف جميع البيانات

سواء كانت مفلتره ام لا

حزف البيانات.rar

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

ارجو المساعده

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

ارجو المساعده

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

بالفعل اخي ابراهيم

يتم حذف جميع البيانات

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

[الخالدي]

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

جزيت خيرا اخي عبدالله

اخي ابراهيم حسب فهمي للمطلوب جرب الكود التالي

Sub AL_KHALEDI()

Dim Rng As Range

Set Rng = Sheets("Sheet1").AutoFilter.Range

Set Rng = Range(Rng.Rows(2), Rng.Rows(Rng.Rows.Count))

Set Rng = Rng.SpecialCells(xlCellTypeVisible)

Set Rng = Rng.SpecialCells(xlCellTypeConstants, 23)

Rng.ClearContents

End Sub

في أمان الله

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل الخالدي حفظك الله وجعلك من المصطفين الابرار وأظلك بعرش الرحمن.

أبو أنس

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

الاخ الكريم الخالدى

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

وهذا فعلا ما اريده

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

ولكن هل يمكن شرح محتويات الكود لو سمحت

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

بارك الله فيك

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

اخى الكريم عبدالله

انا فعلا شاكر لك كل افضالك واهتماماتك وردودك

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

ولكن هل يمكن النقل الى شيت جديد بناء على اسم معين فى خليه معينه

كما ارفقت اليك

حزف البيانات.rar

[الخالدي]

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

أستاذي وسيدي الفاضل الخالدي حفظك الله وجعلك من المصطفين الابرار وأظلك بعرش الرحمن.

أبو أنس

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

جزاك الله كل خير اخي الفاضل أبو أنس

ولك مثل دعائك لي

زادك الله من فضله واعادك الينا سالما

[الخالدي]

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

جزاك الله خيرا اخي الفاضل ابراهيم

ارجوا ان يكون الحل المرفق مقبول او ربما يتفضل احد الاخوة بحل افضل

في أمان الله

حذف البيانات2.rar