اذهب الي المحتوي
أوفيسنا

ارجو المساعدة فى الكود


الردود الموصى بها

تفضل الكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("i3:j3")) Is Nothing Then

    If Range("j3") = Range("i3") Then

    Range("e3:h3").ClearContents

    End If

End If  

End Sub

كود-kemas.rar

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information