طلب مساعدة بكود في إخفاء و إظهار أعمدة بشرط

[BACHA22]

السلام عليكم

ممكن كود لإخفاء أعمدة و إظهارها إذا تحقق الشرط

 

الشرح في المرفقات

 

 

إخفاء أعمدة بشرط.rar

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

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

 

أخي الكريم يمكنك وضع الكود التالي في كود حدث الورقة Feuil1 وأرجو أن يلبي طلبك...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [C10] = 1 Or [C10] = 2 Then Range("E:E,J:J").EntireColumn.Hidden = False
    If [C10] = 3 Then Range("E:E,J:J").EntireColumn.Hidden = True
End Sub

أو مختصرا :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [C10] = 3 Then Range("E:E,J:J").EntireColumn.Hidden = True _
	Else: Range("E:E,J:J").EntireColumn.Hidden = False
End Sub

أخوك بن علية

 

[المصباحي]

عمل جميل اخي بن علية وزادك الله من علمه  وبعد اذنك سارفك المرفق بالكود معدل لتعم الفائدة

 

واخي

BACHA22  انت محدد الخلية c10 وليس c11 وتم تعديل على ملفك  بعد اذن اخى بن علية وفقكم الله
 
 

إخفاء أعمدة بشرط.rar

[BACHA22]

بارك الله فيكم تقبل الله منا و منكم

[إبراهيم ابوليله]

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

اخى واستاذنا بن عليه

بارك الله فيك

كود جميل ورائع

والاهم انه يتسم بالبساطه

نسأ الله ان يبارك لنا فى علمك

تقبل تحياتى