Rica ederim.

Mükerrer kontrolü için önceki kodlar çalışır ve denemem lakin yapılır kesin.

Aktar sayfasını aslında ileride çeltikleri ayarlamak için eklemiştim yani arama ve mükerrer için sayfaya gerek yok.

Bugün hem sayfalı hemde sayfasız olarak denerim akşam.

Aslında aktar adındaki sayfa ile kaydetme kodlarının alakası yok.
Hız ve sıralama için basit olmuştu ve dediğim gibi çeltik içinde.

Önceki gün uğraşırken veriler hafızaya aldıramamıştım global yada public gibi uğraşırken.İşi çeltik olayı karıştırıyor yoksa diperleri zor değil.
Her neyse üstad bugün yeterince zamanım olur akşama dönüş yaparım o zamana kadar çözüm gelmezse.

Çok teşekkür ederim Hocam

Verdiğim kodu denedim çalışıyor resimdeki boyalı yerler gibi olacak.
Ayrıca alttaki gibi ; kullanılmalı , yerine.Siz  virgül kullanmışsınız.
Kodu ilk eklediğiniz dosyada denedim.

ListBox1.ColumnWidths = "20;50;100;100,100"

ListBox2.ColumnWidths = "20;50;100;100;100"

Birşeyler yaptım kolaylık olsun diyede tklama adında sayfa ekledim.
Deneyin işlemler doğruysa o sayfayıda silerim.

Sanırım bu şekilde sayfasızda oldu.
Listbox2 için kodları eklemiştim.Şimdi diğer eklediğim kodları yazayım.
Kodların en üstüne

Dim dict As Object

ekledim.
Sonra Private Sub TxtAra_Change() kodunada  alttaki kodu ekledim.

        For i = 0 To ListBox1.ListCount - 1

            If dict.exists(ListBox1.List(i)) Then

                ListBox1.Selected(i) = True

            End If

        Next

Ve diğer kodlarda altta.

Private Sub ListBox1_Change()

    Dim son As Long, aranan As Long, indexNo As Long

    

    indexNo = ListBox1.ListIndex

    If indexNo > 0 Then

        aranan = ListBox1.List(indexNo)

        If dict.exists(aranan) = False Then

            If ListBox1.Selected(indexNo) = True Then

                dict.Add aranan, 0

            End If

        Else

            If ListBox1.Selected(indexNo) = False Then dict.Remove (aranan)

        End If

    End If

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    Set dict = Nothing

End Sub