ايقاف عمل كود بعد استدعائه

[محمود غباشى]

بفرض اننى كتبت الكود التالى

() Sub B_Click
Dim r1 As Range

("For Each r1 In Sheets("Sheet1").Range("A5:q5
If r1.Value = "" Then r1.Columns.Hidden = True

Next r1
End Sub

وقمت بأستدعائه كما يلى

 

If Sheets("Sheet1").Range("A1").Value = "hide" Then B_Click

 

المطلوب انه يقوم بتنفيذ الاجراء B_Click مرة واحدة ثم يتم ايقاف عمل B_Click تلقائياً وتعود قيمة الخليةA1 فارغه لحين اختيار القيمة hide فى الخلية A1

كما لو اننى استخدمت button لتنفيذ هذه الاجراء 

ولكم كل الشكر والتقدير

 

 

[ياسر خليل أبو البراء]

أخي الكريم

يرجى إرفاق ملفك لتتضح الصورة .. ويتضح المطلوب بشكل أكثر

تقبل تحياتي

[محمود غباشى]

2016.rar

[ياسر خليل أبو البراء]

أخي الكريم

رغم أنني لم أفهم المطلوب بشكل جيد لعدم التوضيح الجيد .. ولكن قم بهذه المحاولة وحرب السطر التالي لاستدعاء الكود المطلوب

With Sheets("Sheet1").Range("A1")
    If .Value = "hide" Then B_Click: .Value = ""
End With

 

 

[محمود غباشى]

بارك الله فيك , المشكلة انى لم اشرح المطلوب بدقة كافية 

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

بمعنى كيف يتم  ايقاف عمل كود اخفاء الاعمدة ذات الرأس الممتلئ ببيانات

وذلك بشرط الا اغير قيمة الخلية الشرطية بمعنى اننى اختار اضافة اذون المشتريات فيقوم البرنامج من تلقاء نفسه بأخفاء الاذون المسجلة وعرض اول عمود فارغ لاسجل به اذن جديد وفى نفس الوقت تعود قيمة الخلية الشرطية A1 الى الحالة الفارغة