(تمت الاجابة) اخفاء اعمدة بشروط

[oyousef]

الاساتذة الافاضل

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

ارجو المساعدة

الملف المرفق به بيانات يالاعمدة من b الى p والمطلوب : كودينفذ الاتى:- فى حالة ان تكون الخليةالموجودة بالصف رقم19من كل عمود فى النطاق المذكور تحتوى على قيمة = صفر فيتم اخفاء العمود بالكامل اما اذا كانت تحتوى على قيمة اكبر من الصفر فيظهر العمود

وشكرا

انتاج.rar

[عبدالله المجرب]

السلام عليكم

جرب هذا الكود لاخفاء الاعمداة ذات القيم الصفرية

Sub Abu_Ahmed_Hide()

For i = 2 To 16

If Cells(19, i).Value = 0 Then Cells(19, i).EntireColumn.Hidden = True

Next

End Sub

وهذا لاظهار الاعمدة المخفية

Sub Abu_Ahmed_ShwAll()

[B1:Q1].EntireColumn.Hidden = False

End Sub

[الـعيدروس]

السلام عليكم

الاستاذ الحبيب عبدالله المجرب

كود مختصر جميل

تسلم ووفقك الله

تقبل مروري

[oyousef]

الاخ الفاضل/ ابو أحمد

خالص شكرى وامتنانى لشخصكم الكريم

دائما مبدع كما عودتنا

وكنت احب ان اطمئن على اصابتك

ارجو من الله العلى القدير ان يكون من عليكم بالشفاء

عافاك الله واعز بك المسلمين

[saad abed]

استاذ عبدالله

سلمت يمينك

وفقك الله

سعد عابد

[abouelhassan]

الله يبارك لك استاذنا

احترامى

[عبدالله المجرب]

السلام عليكم

الاخوة الكرام شكراً لكم

تمت الاجابة