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

[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 سطر کد نویسی اضافه خواهم کرد )

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