Listview'de checkbox isaretlensin

[lapot]

Merehaba arkadaslar

Elimdeki UserForm'daki Listview'de olan Checkbox'larin Outsatanding stunundaki (sutun 8) degerin sifirdan buyuk olmasi durumunda komand dugmesine basildiginda otomatik olarak secilmesini istiyorum, asagidaki kodu denedim ama calismiyor. Resim olarak da ekledim. Yardimlariniz icin simdiden tesekur ederim.



Private Sub CheckSelect_Click()
If CheckBox1.Value = vbChecked Then 'select all
With ListView1
For i = 1 To .ListItems.Count
If ListView1.ListItems(x).ListSubItems(8).Text > "0" Then

.ListItems(i).Checked = True
.ListItems(i).Selected = True
Next i
End With
End If





End Sub

 

[Orion1]

Örnek dosya eklerseniz daha çabuk yanıt alabilirsiniz.

 

[lapot]

dosyayi ekte gonderdim, cok tesekkurler

 

[Orion1]

Dosyanız ektedir.

 

[lapot]

Cozuldu tesekkurler

 

[lapot]

£0,00 formatinda problem vardi, ounu £0.00 formatina cevirdimproblem duzeldi. dosyayi tekrar ekledim. Yardimlariniz icin tesekkurler.
Bu sirayi
If ListView1.ListItems(i).SubItems(7) <> "£0,00" Then
bu sira ile degistirdim
If ListView1.ListItems(i).SubItems(7) <> "£0.00" Then , sorunsuz calisti. Saygilar sunuyorum Orion1