ماكروا يعمل مع التحقق من صحة البيانات

[ماجدجلال]

لدي برنامج لبيانات النزلاء والمقيمون , عملت عمود باسماء النزلاء وعمود ثاني ووضعت فيةخيارين بواسطة التحقق من صحة البيانات هما " مقيم " و " مغادر " ,

المطلوب : هو تصميم ماكرو يعمل علي مسح بيانات النزيل في حالة كونة مغادر ,,,

للتوضيح : لنفرض انني سجلت نزيل في الصف رقم 13 وجعلت الخيار في الخلية رقم B13 هو " مقيم " ( ضمن الخيارين السابقين _ بواسطة التحقق من صحة البيانات ضمن القائمة )

ولنفرض ان النزيل عادر اريد بمجرد ان اذهب الي الخلية B13 واختار من القائمة المنسدلة الخيار " مغادر " يقوم الماكروا تلقائيا بمسح البيانات الموجودة في النطاق ( A13 حتي G13) , فقط علي اساس ان هذا النزيل قد غادر , اي ان العملية هي رابط بين القائمة المنسدلة من الاداة التحقق من شرط البيان وبين عمل الماكروا ,

ولكم كل الشكر والامتنان ,

[محمد حجازي]

السلام عليكم ...

ضع الكود التالي في الورقة المطلوبة :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 Then
    If Target.Value = "مغادر" Then
      Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).ClearContents
    End If
  End If
End Sub

بالتوفيق

[ماجدجلال]

شكرا الف شكرا استاذ محمد

نجح ونجح الف شكر