[حل شده] ادغام سه کد مجزا در یک کد (در یک button)

[a.dal65]

دوستان من سه تا کد vba دارم (که زحمت نوشتنشو بچه های انجمن کشیدن) که هر کدوم از کدها یه کار مجزا رو انجام میدن .
یعنی من هر بار مجبورم به ترتیب سه تا دکمه رو بزنم تا فرم مد نظرم درست بشه .
حالا میشه این سه تا دکمه و سه تا کد رو در قالب 1 دکمه آورد ؟
یعنی من 1 دکمه رو برنم سه تا کد رو به ترتیب انجام بده.
اول مرحله 1 بعد مرحله 2 و مرحله 3

[generalsamad]

با سلام
میتونید یک ماکرو ایجاد کنید که به ترتیب مورد نظر ماکروها اجرا بشند
بفرض اسامی ماکروهاتون بدین صورت است
macro1
macro2
macro3

حالا یک ماکرو جدید ایجاد میکنید بدین صورت

Sub macro4()
macro1
macro2
macro3
End Sub 

بدین صورت کار ماکرو چهارم اجرای 3 ماکرو به ترتیب مورد نظر میباشد.
و برای ماکرو چهارم یک دکمه از نوع form ایجاد کرده یا یک shape ایجاد کرده و ماکرو چهارم رو assign میکنیم

[iranweld]

با سلام

زمان اجرای ماکرو دوم خود را با اصلاح کد ذیل افزایش دهید. با غیر فعال کردن نمایش تغییرات در هنگام اجرای ماکرو سرعت اجرا بالاتر میرود

Sub HideBlankRows()

Application.ScreenUpdating = False

Dim A As Range
    With ActiveSheet.Range("B1:B204")
        Do
            Set A = .Find("", LookIn:=xlValues, LookAt:=xlWhole, _
                    MatchCase:=False)
            If A Is Nothing Then Exit Do
            A.EntireRow.Hidden = True
        Loop
    End With
    
    Application.ScreenUpdating = True

End Sub 

[a.dal65]

ممنون واقعا در سرعت تاثیر بسیار محسوسی داشت
ایول .