مساعدة من الاصدقاء

[aar005]

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

مساء الخير

أخواني، لدي هذا الكود ليعطي رسالة حينما تكون الخلية فارغة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If IsEmpty(Range("G1")) Then

MsgBox ("Empty Cell – Please ensure there is a value in all grey cells. Thanks")

Range("G1").Value = " "

Range("G1").Select

End If

المطلوب / كيف أطبق هذا الكود على كل خلية في هذا العمود حتى خلية G40 مثلاً.

و شكراً مقدماً

[بن علية حاجي]

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

أخي الكريم، جرب الكود التالي:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Cel As Range

Set myrange = Range("G1:G40")

   For Each Cel In myrange

     If Target.Column = 7 And Target.Row = Cel.Row And IsEmpty(Cel) Then

        MsgBox ("Empty Cell – Please ensure there is a value in all grey cells. Thanks")

        Cel.Value = " "

     End If

   Next

End Sub

أتمنى أن يكون المطلوب...

أخوك بن علية

[احمد فضيله]

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

أخي الكريم، جرب الكود التالي:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Cel As Range

Set myrange = Range("G1:G40")

   For Each Cel In myrange

     If Target.Column = 7 And Target.Row = Cel.Row And IsEmpty(Cel) Then

        MsgBox ("Empty Cell – Please ensure there is a value in all grey cells. Thanks")

        Cel.Value = " "

     End If

   Next

End Sub

أتمنى أن يكون المطلوب...

أخوك بن علية

اخي العزيز / بن عليه

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

بسم الله ما شاء الله ... دائماً متميز

[دغيدى]

اخي العزيز / بن عليه

لا تغب عنا . دمت حاضرا

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

أخوكم

جمال دغيدى

[aar005]

آسف على التأخير

الاخ / بن علية

شكرا لك وجزاك الله كل خير، لقد أفادتني مشاركتك

والشكر للبقية على المرور