Çözüldü Listboxdan Seçili Satırda güncelleme

Selamun Aleykum

Arkadaşlar eklediği Programx çalışma kitabında yer alan ; Cariss ( vba ) da resimde işaretlediğim İŞLEMİ GÜNCELLE butonu ile Listbox3 den seçilen veriyi textbox13-14-15-16-17-18-19 lara yazılan veri ile güncellemesi gerekmekte...

ben kendi çapımda yapmaya çalıştım ama başaramadım..

Yardımlarınızı bekliyorum...

Birde ;

Private Sub ListBox1_Click()


On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
TextBox4 = Empty: TextBox6 = Empty: TextBox16 = Empty: TextBox19 = Empty:
ComboBox1 = Empty: ComboBox2 = Empty: ComboBox3 = Empty: ComboBox4 = Empty

yol = Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) - 0) & "\Cariler"
dsy = ListBox1.List(ListBox1.ListIndex)

If Not Workbook.Open(yol & "\" & dsy) Then Workbooks.Open yol & "\" & dsy
dsy = ActiveWorkbook.Name
Set SYF = Workbooks(dsy).Sheets("asn")

ss = SYF.Cells(Rows.Count, 10).End(xlUp).Row
If ss < 1 Then ss = 1
If ss > 110 Then ss = 110
ReDim bnadi(ss - 1)
X = 0
For i = 10 To ss
If SYF.Cells(i, 3) <> Empty Then bnadi(X) = SYF.Cells(i, 3)
X = X + 1
Next i
ListBox2.List = bnadi

Sheets("extra").Select
ss = Cells(Rows.Count, 1).End(xlUp).Row
If ss < 16 Then ss = 16
sat = ss - 16
ReDim dizi(sat, ss)
For i = 16 To ss
For k = 1 To 9
If k = 1 Or k = 2 Or k = 3 Or k = 4 Or k = 5 Or k = 6 Or k = 7 Or k = 8 Or k = 9 Or k = 10 Or k = 11 Or k = 12 Then
dizi(i - 16, k - 1) = Cells(i, k)



kırmızı ile yazdığım kısımda bir hatam varmı ?

Listbox2 den boş olan veriyi seçebiliyorum.. seçememem gerek aynı hata Listbox1 de de mevcut..

teşekkür ederim...