Çözüldü UserFormda Listviewden veri alma güncelleme

Merhaba Arkadaşlar kolay gelsin
Resimde görüldüğü gibi listview den veri tıkladığımda texboxlara veriler geliyor fakat ne yaptımsa StokId yi getiremedim sanırım güncellemeyi de bu yüzden yapamıyorum.


tıklama ile verileri bu kod ile yapıyorum
Private Sub StokBilgiList_ItemClick(ByVal Item As MSComctlLib.ListItem)

On Error Resume Next
'Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Stoklar").Select
Application.DisplayAlerts = True

If Me.StokBilgiList.SelectedItem.ListSubItems(1).Text = "" Then
MsgBox "Seçtiğiniz Bölümde herhangi bir veri bulunmamaktadır..."
Exit Sub
End If

Dim satir As Long
For satir = 1 To 6
Me.StokBilgiList.SelectedItem.ListSubItems(satir).ForeColor = vbRed
Me.StokBilgiList.SelectedItem.ListSubItems(satir).Bold = True
Next
StokBilgiList.HotTracking = True


StokBarcode = Me.StokBilgiList.SelectedItem.ListSubItems(1).Text
Stokad = Me.StokBilgiList.SelectedItem.ListSubItems(2).Text
MarkaModel = Me.StokBilgiList.SelectedItem.ListSubItems(3).Text
Cinsi = Me.StokBilgiList.SelectedItem.ListSubItems(4).Text
CBBirimi = Me.StokBilgiList.SelectedItem.ListSubItems(5).Text
StokID = Me.StokBilgiList.SelectedItem.ListSubItems(6).Text


End Sub


Güncelleme Kodu ise ; Aşağıdaki kod ile yapıyorum Güncelle ye tıklıyorum resimdeki gibi ileti geliyor Tamam desemde Güncellemiyor. Yardımlarınızı Bekliyorum Saygılarımla.

Private Sub stkGuncelle_Click()
On Error Resume Next

Dim x As Long
Dim Sor As Byte
Sor = MsgBox("Güncelleme Yapmak İstiyor musunuz?", vbYesNo + vbDefaultButton1 + vbQuestion, "Güncelle")
If Sor = vbNo Then Exit Sub

For x = 2 To 1000000
If Sheets("Stoklar").Range("A" & x).Value = "" Then Exit For
If Trim(Sheets("Stoklar").Range("A" & x).Value) = Trim(StokID.Value) Then

Sheets("Stoklar").Range("B" & x).Value = StokBarcode.Value
Sheets("Stoklar").Range("C" & x).Value = UCase(Stokad.Value)
Sheets("Stoklar").Range("D" & x).Value = UCase(MarkaModel.Value)
Sheets("Stoklar").Range("E" & x).Value = UCase(Cinsi.Value)
Sheets("Stoklar").Range("F" & x).Value = UCase(CBBirimi.Value)


Exit For

End If
Next

UserForm_Initialize

End Sub