onaysız checkboxlar kaydetmesin

[limanC34]

Selam Arkadaşlar
10 adet checkbox tan sadece onayladıklarım sarı hücrelerin başından itibaren yanyana verileri nasıl kaydedebilir?Birde kayıt nosu yazıp kişi çağırmadanda boş satıra kayıt yapılması önlenebilirmi?
Teşekkürler.

 

[limanC34]

Sayın excel ustaları
Benim sorumun yanıtı yokmu acaba?Sadece işaretlediklerim yanyana kayıt yapacak.

 

[limanC34]

Sayın Orion2
İnanın iki gündür çözümünüzü bekliyorum.
Saygılarımla.

 

[Orion1]

Sayın excel ustaları
Benim sorumun yanıtı yokmu acaba?Sadece işaretlediklerim yanyana kayıt yapacak.
Sayın Orion2
İnanın iki gündür çözümünüzü bekliyorum.
Saygılarımla.

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim k As Byte, sut As Byte
If TextBox2.Value = Empty Then
    MsgBox "Kişi ismi boş olamaz..!!" & vbLf & "Kayıt Yapılmadı..!!", vbCritical, "DİKKAT"
    TextBox2.SetFocus
    Exit Sub
End If
sut = 6
Set j = Range("C:C").Find(TextBox1.Value, , xlValues, xlWhole)
If Not j Is Nothing Then
    Range(Cells(j.Row, "F"), Cells(j.Row, "O")).Value = Empty
    Range(Cells(j.Row, "F"), Cells(j.Row, "O")).Select
    For k = 1 To 10
        
        If Controls("CheckBox" & k).Value = True Then
            Cells(j.Row, sut).Value = Controls("Label" & k).Caption
            sut = sut + 1
        End If
    Next
End If
End Sub

 

[limanC34]

Sayın Orion2
Nekadar teşekkür etsem azdır.İnanınki sizi sitede görmek bile benim gibi bir acemiye kuvvet veriyor.
Saygılarımla.

 

[Orion1]

Sayın Orion2
Nekadar teşekkür etsem azdır.İnanınki sizi sitede görmek bile benim gibi bir acemiye kuvvet veriyor.
Saygılarımla.

Rica ederim.
Dün yoktum.
Bir işim vardı.Keşan'a gittim.
İyi çalışmalar.