كود حذف خلايا معينة...مرفق البرنامج

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم 

بعد التحية

ارجوا من سيادتكم 

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

ولكم جيل الشكركود حذف خلايا معينة.rar

[سليم حاصبيا]

استاذ طارق

اليك هذا الكود

عسى ان ينال اعجابك

Sub del_without_function()
Dim wh As Worksheet
Dim myrange As Range
Set wh = ActiveSheet
Set myrange = wh.Range("b2:z100")
For Each cel In myrange
If cel.HasFormula = False Then
cel.ClearContents
End If
Next
End Sub

[سليم حاصبيا]

استاذ طارق

الحل مرفق

طارق.rar

[صلاح الصغير]

رائع يا ا\ سليم

يا سلام لو يحذف كمان التعليقات يبقى perfect

[سليم حاصبيا]

اخي صلاح

 ()Sub Remove_All_Comments_From_Worksheet        

Cells.ClearComments

End Sub

 

 

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

[صلاح الصغير]

اخى و استاذى \ سليم هل يمكن دمج الكودين

ام سيكونوا منفصلين

بمعنى ان يحذف الزر البيانات و التعليقات ( زر واحد فقط )

تم تعديل مايو 24, 2014 بواسطه صلاح الصغير

[محمد ابو البـراء]

استاذ سليم رائع

لا

بل في قمة الروعة

جزاك الله خيرا على هذا الكود الاكثر من رائع والذي سيوفر الكثير من الوقت والجهد

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

10 /10

لا

بل 10000000000000000 / 10

:fff: :fff: :fff:

[محمد ابو البـراء]

وباذن اذنك طبعا

لدمج الكود سيكون هكذا

Sub del_without_function()
Dim wh As Worksheet
Dim myrange As Range
 Application.ScreenUpdating = False
Set wh = ActiveSheet
Set myrange = wh.Range("a2:z100")
For Each cel In myrange
If cel.HasFormula = False Then
 cel.ClearContents
  End If
  Next
Application.ScreenUpdating = True
Cells.ClearComments
End Sub

[سليم حاصبيا]

استاذ محمد

في هذه الحالة سوف تحذف التعليقات من جميع الخلايا /بما فيها التي تحتوي على معادلات

[صلاح الصغير]

وهو المطلوب يا ا \ محمد

بارك الله فيك