[حل شده] مرتب سازی شیت ها

[sanjesh_88]

سلام بر همه دوستان و اساتید
من یک فایل اکسل دارم که دارای تعدادی شیت هست حالا می خواهم این شیت ها به صورت خودکار بر اساس مقدایر موجوى ىر ستون ِA مربوط به SheetA مرتبط شوند . مثلا در SheetA عدد b بالاترین مقدار است حالا می خواهم شيت b نیز اولین شیت باشد .
یا اینکه چون همه ی شیت ها یک اندازه هستند می توان مقدار B2 از هر شیت را دریافت کرد و سپس شیت ها را براساس این سلول از بزرگ یا کوچک مرتب سازی کرد
با تشکر

[sanjesh_88]

خودم حلش کردم با استفاده از کد زیر
Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
For j = i To Application.Worksheets.Count
If VBA.UCase(Application.Worksheets(j).Range(WorkAddr ess)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddr ess)) Then
Application.Worksheets(j).Move Before:=Application.Worksheets(i)
End If
Next
Next
Application.ScreenUpdating = True
End Sub
در input باید آدرس سلولی را بدهید که بر اساس آن می خواهید سورت کنید . مثلا 4$d$