Userform kod açıklaması

[soluksuz]

Merhaba
bu aşağıdaki kodların görevlerini satır satır bana kısaca açıklayabirmisiniz.
Hangi kod ne işe yarıyor.Açıkçası ben bu kod içinde sayfa1 içindeki a1 satırındakileri listboxda sıralıyorum.Fakat sayfa 2 a1 dekileri sıralatamıyorum.Hangi kodları değiştirirsem sayfa2 a1 dekileri sıralar bulmaya çalışıyorum.

Dim Dizin As String
    Dim DosyaDuzeni As Variant
    Dim TamAdres As Variant
    Dim CalismaKitabi As Variant
    Dim Dosyalar As Variant
    Dim i As Integer

    Dizin = "C:\RESİMLER\"
    
On Error Resume Next

    Set DosyaDuzeni = CreateObject("Scripting.FileSystemObject")
    Set TamAdres = DosyaDuzeni.getfolder(Dizin)
    Set Dosyalar = TamAdres.Files
    
    i = 1
    For Each CalismaKitabi In Dosyalar
        If LCase(DosyaDuzeni.GetExtensionName(CalismaKitabi.Name)) = "jpg" Then
            Cells(i, 1) = DosyaDuzeni.getBaseName(CalismaKitabi.Name)
            i = i + 1
        End If
    Next CalismaKitabi
    
    Set DosyaDuzeni = Nothing
    
    [B1].Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending
    
    j = 1
    For j = 1 To i
        ListBox2.AddItem Cells(j, 1).Value
    Next j

End Sub

 

[Zeki Gürsoy]

Sayfa2 için koyu kısımları ilave etmeniz grekiyor...

Dim Dizin As String
    Dim DosyaDuzeni As Variant
    Dim TamAdres As Variant
    Dim CalismaKitabi As Variant
    Dim Dosyalar As Variant
    Dim i As Integer
    
    [COLOR=DarkGreen]'Dizin değişkenine yol atanıyor.[/COLOR]
    Dizin = "C:\RESİMLER\"
    
On Error Resume Next
    
    [COLOR=DarkGreen]'Dosyaları bulmaya yarayacak nesne sınıfı çağırılıyor.[/COLOR]
    Set DosyaDuzeni = CreateObject("Scripting.FileSystemObject")
    
    [COLOR=DarkGreen]'Tanımlı dizin için içindeki dosyalar değişekene atanıyor[/COLOR]
    Set TamAdres = DosyaDuzeni.getfolder(Dizin)
    Set Dosyalar = TamAdres.Files
    
    [COLOR=DarkGreen]'Dosya uzantıları tek tek bakılıyor.[/COLOR]
    i = 1
    For Each CalismaKitabi In Dosyalar
        [COLOR=DarkGreen]'uzantı jpg ise sayfa2 ye 1.sütunun i değerindeki satırına yaz.[/COLOR]
        If LCase(DosyaDuzeni.GetExtensionName(CalismaKitabi.Name)) = "jpg" Then
            [B]Sheets("sayfa2").[/B]Cells(i, 1) = DosyaDuzeni.getBaseName(CalismaKitabi.Name)
            i = i + 1
        End If
    Next CalismaKitabi
    
    Set DosyaDuzeni = Nothing
    
    [COLOR=DarkGreen]'B1 i seç ve sırala...[/COLOR]
    [B]Sheets("sayfa2").[/B][B1].Select
    Selection.Sort Key1:=[B]Sheets("sayfa2").[/B]Range("B1"), Order1:=xlAscending
    
   [COLOR=DarkGreen] 'Sıralanmış bu listeyi listbox a yükle[/COLOR]
    j = 1
    For j = 1 To i
        ListBox2.AddItem [B]Sheets("sayfa2").[/B]Cells(j, 1).Value
    Next j

 

[soluksuz]

Sayın Zeki Gürsoy çok teşekkür ederim .Çok yardımcı oldun.