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

[thaqeb]

با سلام واحترام
چندتا شیت دارم که می خواهم به ترتیب شماره کاردکس که درون آنها می باشد مرتب نمایم لطفا راهنمایی فرمایید در ضمن یک نمونه فایل به پیوست می باشد متشکرم

[iranweld]

با سلام

با ماکرو ذیل میتوانید نام شیت ها را به نام کاردکس تغییر دهید

Sub test()

On Error Resume Next

Dim list1 As New Collection

For Each Sheet In Worksheets

Dim xx As String

list1.Add Sheet.Name
           
          
Next Sheet


For I = 1 To list1.Count

xx = list1.Item(I)

Sheets(xx).Select

ActiveSheet.Name = Range("a7").Value

Next


End Sub 

[amir_ts]

با سلام
این کد رو امتحان کنید.

[LEFT]

Sub SortByCell()
Dim i, j As Integer
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
Set WorkRng = Application.Selection
Set WorkRng = Range("a7")
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(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
            Application.Worksheets(j).Move Before:=Application.Worksheets(i)
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub[/LEFT]

[thaqeb]

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

[thaqeb]

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