تلوين عدة خلايا متجاورة للخلية المختارة

[عاطف عبد العليم محمد]

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

لدى هذا الكود

 Dim cell As Range
  Rows(709).Select
   For Each cell In Selection
 If cell.Value Like "*رصيد بداية*" Then cell.Interior.ColorIndex = 40
  
    Next cell

اريد تلوين ايضا خليتين على يسار الخلية التي تحتوي على ( رصيد بداية ) 

تم تعديل فبراير 16, 2017 بواسطه عاطف عبد العليم محمد

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

جرب هذا الماكرو

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row <> 709 Or Target.Count > 1 Then Exit Sub

 Rows(709).Interior.ColorIndex = xlNo
        If Target.Value Like "*رصيد بداية*" Then
                     If Target.Column = 1 Then
                            Target.Resize(1, 2).Interior.ColorIndex = 40
                             Else
                            Target.Offset(0, -1).Resize(1, 3).Interior.ColorIndex = 40
                     End If
        End If

End Sub

 

[عاطف عبد العليم محمد]

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

ادرجت الماكرو في موديول جديد  ولا اعرف كيف يتم تشغيله !   لم يظهر ضمن قائمة الماكروات

وفقك الله

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

منذ ساعه, عاطف عبد العليم محمد said:

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

ادرجت الماكرو في موديول جديد  ولا اعرف كيف يتم تشغيله !   لم يظهر ضمن قائمة الماكروات

وفقك الله

يجب تسجيل الماكرو في حدث الصفحة

1-افتح ملف الاكسل المطلوب

2-اضغط  Alt+F11

3-دوبل كليك على اسم الورقة المطلوب ادراج الماكرو فيها

4-انسخ الماكرو 

[عاطف عبد العليم محمد]

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

حل حضرتك يلون الخلايا عند المرور عليها فقط ، جزاك الله خيرا 

انا وجدت حل يلبي رغبتي

Sub رصيدبداية()
 Application.EnableEvents = False
Application.ScreenUpdating = False

 d = Range("f7", Range("f7").End(xlDown)).Count
    a = 17
        For I = 1 To d
       
       Cells(709, a).Select
        If ActiveCell.Value Like "*رصيد بداية*" Then
       ThisWorkbook.ActiveSheet.Range(Cells(709, a), Cells(709, a + 2)).Interior.ColorIndex = 40
        End If
        a = a + 9
          
    Next I
    Range("i7").Select
   Application.EnableEvents = True
Application.ScreenUpdating = True
  
End Sub

 واعلم ان المعطيات التي اوضحتها لم تكن كافية لتعطيني الحل عاليه 

جزاك الله خيرا  على تفضلك بالرد ، وفقكم الله