ممكن تصحيح هذا الكود مع الشكر

[omhamzh]

هل بالامكان تصحيح كود مسح نطاق والغاء التحديد والالوان انا حاولت ولم ينجح

Sub ClearData()
Dim ws As Worksheet, Lr As Long
Set ws = Sheets("Sheet1")
ws.Range("g2:l0000").ClearContents
Range("G2:L10000").Select
Selection.Borders = .LineStyle = xlNone
 .Pattern = xlNone
.PatternTintAndShade = 0

End Sub

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

وحاولت اعدل فيه ليناسب طلبى

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

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

The correct Code

Select Not Needed

Sub ClearData()
 With Sheets("Sheet1").Range("G2:L10000")
  .Borders.LineStyle = xlNone
  .ClearContents
 End With
End Sub

 

[omhamzh]

زادك الله من فضله وبارك الله فيك استاذ سليم حاصبيا

اشكرك

[omhamzh]

استاذ سليم حاصبيا

انا حاولت فى الكود لاضافة ازالة الالوان ممكن حضرتك تشوف كده صح ولا غلط مشكور جدا

Sub ClearData()
 With Sheets("Sheet1").Range("G2:L10000")
  .Borders.LineStyle = xlNone
  .ClearContents
 End With
     Range("g2:L10000").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

بارك الله فيك

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

أولاً- للمرة الثانية أقول لك لا حاجة الى    Select و  Selection التي ترهق البرنامج دون فائدة خاصة ان الييانات كثيرة 40000 الف خلية (من  G2 الى J10000 )

ثانياُ - اذا كنت تريدين مسح كل شيء يكفي كود من سطر واحد

Sub ClearData()
  Sheets("Sheet1").Range("G2:L10000").Clear
End Sub

 

[omhamzh]

رائع فعلا البرنامج كان بيغيب جدااا 

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

بارك الله فيك استاذ سليم