مساعدة فى تصحيح الأكواد

[sayed_973]

السلام عليكم اخوانى الاعزاء

  واطلب تلوين نطاق  A انا مبتدىء جدا وقمت بعمل كود يقوم بالبحث عن كلمة فى العامود 

 ويظهر لى الخطا المرفق

Coloring.xlsm

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

جرب هذا الكود

Option Explicit

Sub colorize()
Dim lr%, i%
Const n = 35
Const Mot = "Saturday"
With Sheets("My_sheet")
    lr = .Cells(Rows.Count, 1).End(3).Row
    .Range("A1:A" & lr).Interior.ColorIndex = xlNone
      For i = 1 To lr
       If .Cells(i, 1) = Mot Then
       .Cells(i, 1).Interior.ColorIndex = n
       End If
      Next
End With
End Sub

الملف مرفق

Sayaed.xlsm

[sayed_973]

أشكرك استاذ سليم شكرا جزيلا