ترتيب الأوراق فقط المحددة بالليست بوكس

[نايف - م]

كيف يمكن ترتيب الأوراق المحددة بالليست بوكس .. فقط المحددة بالليست بوكس

المصنف1.rar

[lionheart]

Option Explicit

Private Sub CommandButton1_Click()
    Dim ws As Worksheet, i As Long, k As Long
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then
            k = k + 1
            Set ws = Worksheets(Me.ListBox1.List(i, 0))
            ws.Move Before:=ThisWorkbook.Worksheets(k)
        End If
    Next i
End Sub

Private Sub UserForm_Activate()
    Dim ws As Worksheet
    With Me.ListBox1
        .Clear
        For Each ws In Worksheets
            .AddItem ws.Name
        Next ws
    End With
End Sub

 

[نايف - م]

الشكر الجزيل للأخ الكريم

هذا حل رائع كنت أعمل للوصول اليه و لم أنجح

لكن أنا أريد أن أختار أوراق ثم يتم ترتيبها حسب الحرف الأول و ليس حسب مكان التموضع

الأوراق حسب الكود عندك يرتبها متسلسلة كما هي

أنا أريدها حسب الحرف الأول

ملاحظة ثانية : التريب حبذا لو يكون بعد أول ورقة محددة و ليس أول ورقة في الملف

 

[lionheart]

You can do that by sorting the listbox itself

As for the second note, use the variable k to start equal to 1 then increment by one