[حل شده] تغییر نوشته داخل کلید جهت نایید

[omid0912]

با سلام
برنامه ای لطف کردید قبلا برام نوشتید که با کلیک روی کلید کار می کنه
حالا می خوام نوشته روی اون تغییر کنه
یعنی یا یک بار کلیک "اعمال شد" نمایان بشه و برنامه قبل رو انجام بده
بار دوم با کلیک کردن برنامه رو اجرا نکنه ولی نوشیه روی کلید به "اعمال نشد" تغییر کنه
لطف کنید برتامه بدید.
ممنون

[rasools13]

سلام
یک لیبل روی فرم قرار بدید و مقدار caption آن را برابر صفر ۰ و مقدار visible را برابر false قرار دهید
سپس کدهای قبلی رو به صورت ذیل اصلاح کنید (با فرض اینکه نام دکمه اعمال شد btn میباشد)

 If lable1.caption = 0 then
کدهای قبلی در اینجا قرار داده شود
Lablel1.caption=1
Else
Btn.caption = "اعمال نشد"
End if 

[omid0912]

با سلام و تشکر از شما
متاسفانه نتونستم فایل آپلود کنم. هر کاری کردم نشد. پیغام میده فایل مشکل داره!
برنامه ای که دوستان لطغف کردند نوشتند این بود:

() Sub add_to_list
KG = Sheet1.Range("H6").Value
(For Each cel In Sheet2.Range("B4:B45"
If cel.Value = "" Then cel.Value = KG: Exit For
Next cel
End Sub

لطف بفرمایید روی یک فایل برام ارسال کنید.
ممنون
علاوه بر سوال بالا یک مورد دیگه هم در خواست دارم.
محبت کنید یک برنامه جدا از برنامه بالا بنویسید که
در "Sheet2' ستون "M" سلول های "M3","M5","M8","M12" با یک بار کلیک بر روی کلید پنهان و با کلیک بار دوم نمایان شود.
هر دو مورد رو محبت کنید روی یک فایل ارسال کنید.
ممنون از لطف و محببتون.

[omid0912]

متاسفانه جواب نگرفتم.
با ایت حال، روی حل شد هم کلیک می کنم.