Listview subitem editleme

[schahi]

Merhaba,
Aşağıdaki kodlarla listview'e satır alanına renk sütun başlıklarına ise bedenleri alıyorum.
istediğim ise renk/beden çapraz listviewde checkbox ya da "X" ibaresi girerek varyantları çoklamak..

Ekli resimde de görüntülenebilir.

Yardımınızı rica ediyorum.

Private Sub Lview()
Dim Data As Worksheet
Dim sRenk As Integer
Dim sBeden As Integer
Dim Liste As ListItem

Me.LW.LabelEdit = lvwManual

Set Data = Sheets("Data")
sRenk = Data.Range("A65536").End(3).Row
sBeden = Data.Range("B65536").End(3).Row

With UserForm1.LW
    .ColumnHeaders.Clear
    .View = lvwReport
    .ColumnHeaders.Add , , "Renk ", 150
            For i = 2 To sBeden
             .ColumnHeaders.Add , , Data.Cells(i, "B").Value, 30
            Next i
    .Gridlines = True
End With

With UserForm1.LW
    For i = 2 To sRenk
                Set Liste = LW.ListItems.Add(, , Data.Cells(i, "A").Value)
                    For j = 1 To sBeden - 1
                        Liste.SubItems(j) = ""
                    Next j
    Next i

End With

Set Liste = Nothing
LW.HoverSelection = True
LW.LabelEdit = lvAutomatic

End Sub

 

[schahi]

Yardımcı olabilir misiniz?