[حل شده] چگونه با فعال کردن sheet2 ماکرویی اجراشود که «در sheet1 عملیاتی مثلا sort انجام دهد ودر پایان sheet2‌ را نمایش دهد»

[MaryamSh53]

با سلام و خسته نباشید.
من سوال داشتم
دو شیت هست می خواهم با کلیلک بر روی sheet2 ماکرویی فعال شود که عمل sort را (مثلا بر حسب کارمزد) در sheet1 انجام دهدو دوباره صفحه sheet2 را نمایش دهد. (چون توی یک Loop می افته بی نهایت بار تکرار میشه) می خواستم ببینم راهی هست که داخل loop نیفته.
با تشکر فراوان از زحماتتون

[M_ExceL]

با سلام و خسته نباشید.
من سوال داشتم
دو شیت هست می خواهم با کلیلک بر روی sheet2 ماکرویی فعال شود که عمل sort را (مثلا بر حسب کارمزد) در sheet1 انجام دهدو دوباره صفحه sheet2 را نمایش دهد. (چون توی یک Loop می افته بی نهایت بار تکرار میشه) می خواستم ببینم راهی هست که داخل loop نیفته.
با تشکر فراوان از زحماتتون

سلام،
بفرمایید :

Private Sub Worksheet_Activate()
Worksheets("Sheet1").Activate
    lr = Worksheets("Sheet1").Cells(Rows.Count, 1).End(3).Row
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("D1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With ActiveWorkbook.Worksheets("Sheet1").Sort
                .SetRange Range("A1:H" & lr)
                .Header = xlYes
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
            
Application.EnableEvents = False
    Worksheets("Sheet2").Activate
Application.EnableEvents = True
End Sub

[MaryamSh53]

بسیار ممنون
خیلی عالی بود