اضافة او ازالة اسم بالاعتماد على CHECK BOX

[ابو العلاء]

السلام عليكم 

ممكن مساعدة بالملف المرفق وهو لملف بداخله شيتين

في الشيت الاول قائمة لكودات واسماء وبجانب كل اسم صندوق CHECK BOX

المطلوب :

في حال كان مربع CHECK BOX غير فعال يختفي السطر الخاص بهذا الاسم كاملا من شيت REPORT

مع جزيل الشكر

TEST.xlsx

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

جرب هذا الكود (حدد البوكس ثم انتقل الى اي خلية او اضغط Enter)

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
tesl
End Sub

'+++++++++++++++++++++++++++++
Sub tesl()
Dim cb As CheckBox, n

For Each cb In Me.CheckBoxes
  cb.TopLeftCell.Offset(1, -1).NumberFormat = _
  IIf(cb.Value <> 1, ";;;", "General")
Next cb

End Sub

الملف مرفق( شيت Key)

 

TEST_xxx (3).xlsm

[omar elhosseini]

بعد أذن اخونا سليم حاصبيا

اخ ابو العلاء

ما هو الحد الأقصي لعدد الأكواد

[ابو العلاء]

كل الشكر استاذ سليم... 

بارك الله فيك 

اخ عمر ما حصرت للان عدد الاكواد 

[omar elhosseini]

اخ ابو العلاء

لك مني ملف تشك بوكس هدية

ضع به كود اخونا سليم حاصبيا 

 

 

هدية.rar

[ابو العلاء]

سلمت اخي عمر .. كل الشكر والتقدير