چگونه با فعال کردن 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]

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