اجرای ماکرو با تغییر منوی کشویی

[mfr]

با سلام و احترام ... میخوام با رویداد event اگه ستون a1 تا a7 خالی بود سلول های روبروشم بدون کار خاصی هر بار که فایلو باز میکنم حذف بشن لطفا بفرمایید چطور ؟؟ ممنون از راهنمایی ..

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

[amir_ts]

با سلام
سوال شما باید به بخش مربوطه منتقل بشه چون باید از کد نویسی استفاده کنید.در سلول c2 لیست ماکرو قرا داره.
این کد رو در شیت مورد نظر بدید.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("c2")) Is Nothing Then

            Select Case Range("c2")

            Case "Macro1": Macro1

            Case "Macro2": Macro2
            
            Case "Macro3": Macro3
            
            Case "Macro4": Macro4
            
            Case "Macro5": Macro5
            

        End Select

    End If

    End Sub

و بعد ماکرو ها رو مینویسید.

[Amir Ghasemiyan]

سوال شما به تالار vba منتقل شد
لطفا در انتخاب تالار مناسب دقت بیشتری بفرمایید
با تشکر

[mfr]

سوال شما به تالار vba منتقل شد
لطفا در انتخاب تالار مناسب دقت بیشتری بفرمایید
با تشکر

چشم استاد .. ممنونم

[iranweld]

با سلام

چنانچه بایستی در هر بار باز شدن فایل و با خالی بودن رنج A1 الی A7 این اتفاق بیفتد از کد ذیل استفاده کنید

Private Sub Workbook_Open()

If Sheet1.Range("A1,A2,A3,A4,A5,A6,A7").Value = "" Then

Sheet1.Range("C1:E7").Value = ""

End If

End Sub