Listboxtan Listboxa veri aktarma

[harziyan]

Merhaba sorumu yukarıda ve dosyanın vba bölümünde izah etmeye çalıştım.
Örnek dosyam ektedir. Soruyu daha önce daha kapsamlı sormuştum, revize edip kapsamı daralttım.
Teşekkürler...

 

[Emir Hüseyin Çoban]

. . .

Personel sayfasında B2:B20 aralığındaki isim sıralaması

Liste sayfasında G1:Y1 aralığında aynı olsa işlem daha kolay olur.

. . .

 

[harziyan]

Hocam ilginiz için teşekkürler. Ben sıralamayı alfabetik hale getiririm, siz alfabetik sıralama olduğu varsayımından yola çıkabilirsiniz.

 

[Emir Hüseyin Çoban]

. . .

Private Sub ListBox8_Click()
    UserForm_Initialize
    
    satır = ListBox8.ListIndex + 2
    
    For i = 0 To ListBox1.ListCount - 1
        liste = ListBox1.List(i, 0)
        
        For s = 7 To 25
            isim = Cells(1, s)
            If UCase(Replace(Replace(liste, "ı", "I"), "i", "İ")) = _
                UCase(Replace(Replace(isim, "ı", "I"), "i", "İ")) Then
                If UCase(Cells(satır, s)) = "X" Then
                    ListBox1.Selected(i) = True
                End If
            End If
        Next s
    
    Next i
End Sub

Private Sub UserForm_Initialize()
    ListBox1.RowSource = "Personel!b2:b20"
    ListBox8.RowSource = "Liste!a2:z65000"
    ListBox8.ColumnCount = 26
    ListBox8.ColumnWidths = "75;100;250;100;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;15"
End Sub

. . .

 

[harziyan]

Sayın Hüseyin ÇOBAN gece gece emek verdiniz, Allah razı olsun, çok teşekkür ederim.