listbox dan secerek veri güncellemede sorun

[ikikan]

Private Sub CommandButton2_Click()

If ListBox1.ListIndex < 0 Then
MsgBox "NE DEĞİŞECEK LİSTEDEN SEÇKİ DEĞİŞTİREK..!!", vbCritical
Exit Sub
End If
bos = Sheets("hesap").ListBox1.ListIndex + 5

Dim Mesaj As String
Dim Stil As VbMsgBoxStyle
Dim Baslik As String
Dim Cevap As VbMsgBoxResult
Stil = vbYesNoCancel + vbInformation
Baslik = "PEGEM DANIŞMANLIK"
Mesaj = "ARACIMIZ ÜST YAPILIMI ÇIPLAK ŞASİLİMİ"
Mesaj = Mesaj & vbCr & "FORMUMUZ BU SEÇİME GÖRE DOLACAKTIR"
Mesaj = Mesaj & vbCr & vbCr & vbCr & "Evet : ÜST YAPILI "
Mesaj = Mesaj & vbCr & "Hayır : ÇIPLAK ŞASİLİ "
Mesaj = Mesaj & vbCr & "İptal : KARASIZ KALDIM " & vbCr & vbCr
Cevap = MsgBox(Mesaj, Stil, Baslik, yardim, 0)
Select Case Cevap
Case Is = vbYes
'evet seçilmesi durumunda çalışacak kodlar
Sheets("D2").Range("DV" & bos).Value = "X"
Sheets("D2").Range("DW" & bos).Value = ""
Sheets("veri").Range("CX" & bos).Value = "X"
Sheets("veri").Range("CY" & bos).Value = ""
Case Is = vbNo
'hayır seçilmesi durumunda çalışacak kodlar
Sheets("D2").Range("DV" & bos).Value = ""
Sheets("D2").Range("DW" & bos).Value = "X"
Sheets("veri").Range("CX" & bos).Value = ""
Sheets("veri").Range("CY" & bos).Value = "X"
Case Is = vbCancel: Exit Sub
'iptal seçilmesi durumunda , yada mesaj kutusu çarpıdan kapatıldğı durumda kodlar
End Select

neden hata veriyor acaba ?

 

[Mustafa MUTLU]

Debug diyerek hata veren satırı bul

Yada
Dim bos
ekle

dene bakalım