إخفاء واضهار قيم الخلايا استناداً الى قيمة الخلية الثابتة

[عامر ياسر]

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

الشرح مرفق داخل الملف

aamir.xlsm

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

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

Option Explicit
Sub hid_cells()
Range("g6:g33").NumberFormat = ";;;"
Cells(Application.Match(Range("g5"), Range("g6:g33"), 0) + 5, 7).NumberFormat = "General"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False

 If Not Intersect(Target, Range("g5")) Is Nothing Then
   hid_cells
   Else
   Range("g6:g33").NumberFormat = "General"
 End If
   Application.EnableEvents = True
   
End Sub

الملف مرفق

aamir_HID_LETERS.xlsm

[عامر ياسر]

لك التقدير والاحترام استاذ / سليم حاصبيا 

لاجابتك الرائعة .... زادك الله علما ورفع من قدرك ومقامك .