listbox'a checkbox eklemek

[marimar]

merhaba arkadaşlar ekteki dosyada listbox'un 5. sutununa checkbox eklemek istiyorum.
bir de listbox'ta sadece son satır listeleniyor çalışma sayfasındaki tüm verileri listelemek istiyorum ama beceremedim. listbox column işlemleri ile ilgili geniş bir bilgi bulabileceğim bir yer var mı ?
teşekkürler

 

[Orion1]

soldan ilk başa ekleyebilirsiniz.
Ekli dosyayı inceleyiniz.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.ListStyle = fmListStyleOption
ListBox1.RowSource = "Sayfa1!A1:D" & Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
End Sub

 

[marimar]

teşekkürler sn. evren gizlen checkboxlar la işlemleri nası yapabiliriz . checkbox aktif ise E sutunuma x yazdırmak istiyorum nasıl yapabilirim.teşekkürler.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub ListBox1_Change()
Dim i As Long
'On Error Resume Next
Application.ScreenUpdating = False
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Sheets("Sayfa1").Cells(i + 1, "E").Value = "x"
        Else
        Sheets("Sayfa1").Cells(i + 1, "E").Value = Empty
    End If
Next
Application.ScreenUpdating = True
End Sub