اجرای ماکرو با شرط وجود داده در سلول های مدنطر !

[Skynet]

با سلام و احترام
برای اجرای ماکرو در شرایط خاص نیاز به راهنمایی دارم خیلی ممنونم .

1- اگر در سلول a1 از شیت a و در سلول a1 در شیت b داده ای وجود داشت ماکرو اجرا شود در غیر این صورت اجرا نشود !
2- بعد از یکبار اجرای ماکرو، ماکروی مربوطه دیگر قابلیت اجرا نداشته باشد! ( یکبار مصرف باشد ! ) و پیغام عدم امکان اجرای مجدد ظاهر شود .
خیلی ممنونم.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Skynet]

😞

Sent from my D5803 using Tapatalk

[rasools13]

با سلام
از کد ذیل استفاده کنید:
.

Public Con As Integer
Sub RunOneTime()
    If Con = 1 Then
        MsgBox ("امکان اجرای ماکرو وجود ندارد")
        Exit Sub
    End If
  
    If Worksheets("a").Range("a1") <> "" And Worksheets("b").Range("a1") <> "" Then
        MsgBox ("ماکرو اجرا شد")
        Con = 1
    Else
        MsgBox ("یک و یا هردو سلول ها بدون مقدار است.... ماکرو اجرا نشد")
    End If
End Sub 

[Skynet]

با سلام جناب rasools13 عزیز
بی نهایت ممنونم کمک بسیار زیادی به من کردید.
در فایل نمونه زیر من در قسمت مشخص شده کد ماکروی نمونه رو جایگذاری کردم :
( در فایل اصلی به جای کد نمونه 300 سطر کد نویسی اضافه خواهم کرد )

Public Con As Integer
Sub RunOneTime()
    If Con = 1 Then
        MsgBox ("امکان اجرای ماکرو وجود ندارد")
        Exit Sub
    End If
  
    If Worksheets("a").Range("a1") <> "" And Worksheets("b").Range("a1") <> "" Then
        MsgBox ("ماکرو اجرا شد")
        Con = 1
   '-------------- //شروع دستور ماکروی نمونه\\
    Range("H3").Select
    ActiveCell.FormulaR1C1 = "Thank you Very Much … :)"
    Range("A1").Select
        
    '--------------//پایان دستور ماکروی نمونه\\
      
Else
        MsgBox ("یک و یا هردو سلول ها بدون مقدار است.... ماکرو اجرا نشد")
    End If
End Sub