Soru Textboxa Aktarma

[sirkülasyon]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            UserForm9.TextBox8 = ListBox1.Column(0, i)
            UserForm9.TextBox9 = ListBox1.Column(1, i)
            UserForm9.TextBox10 = ListBox1.Column(2, i)
            UserForm9.ComboBox9 = ListBox1.Column(3, i)
     
        End If
    Next i
End Sub

Ustam yukarıda ki kod ile Listboxtaki Başlık hariç 2. satırda ki veriyi sıkıntısız textbox ve comboboxa aktarıyor. 1. satırda ki veriyi aktarırken;
UserForm9.ComboBox9 = ListBox1.Column(3, i)
kısmı hata veriyor. Rica etsem yardımcı olabilir misiniz? Bu hata neden kaynaklanıyor?

Hata kodu : Runtime error 380





UserForm_Initialize:
ListBox1.ColumnCount = 4
ListBox1.ColumnHeads = True
SON = Sheets("Sayfa1").Range("v" & Rows.Count).End(3).Row
ListBox1.RowSource = "Sayfa1!v3:y" & Sheets("Sayfa1").Range("v65536").End(xlUp).Row & SON
ListBox1.ColumnWidths = "100,100,50,30"

 

[PLİNT]

SON = Sheets("Sayfa1").Range("v" & Rows.Count).End(3).Row
ListBox1.RowSource = "Sayfa1!v3:y" & Sheets("Sayfa1").Range("v65536").End(xlUp).Row & SON

Merhaba

"UserForm_Initialize " altındaki
şu satırı
ListBox1.RowSource = "Sayfa1!v3:y" & Sheets("Sayfa1").Range("v65536").End(xlUp).Row & SON
şöyle deneyelim
(Yukarıdaki şekle göre mesela 1500 satır varsa ListBox1.RowSource = "Sayfa1!v3:y15001500" gibi olur, işlem yapmadan , daha form açılırken "380" hatasını vermesi gerek ama yinede değişin)
ListBox1.RowSource = "Sayfa1!v3:y" & SON
veya
ListBox1.RowSource = "Sayfa1!v3:y" & Sheets("Sayfa1").Range("v65536").End(xlUp).Row

 

[sirkülasyon]

Sayın PLİNT
Yardımınız için teşekkür ederim.