CheckBox ları kaydetme

[sahika51]

İyi akşamlar. Arkadaşlar küçük bir kayıt programı yapacağım. userformda bulunan checkbox lar aktif olduğu zaman günler "1" değilse "0" yazması gerekiyor.
siteye biraz baktım ama bulamadım yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    Dim Son As Long, X As Byte

    Son = Sayfa1.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    Sayfa1.Cells(Son, 1) = TextBox1.Text
    Sayfa1.Cells(Son, 2) = TextBox2.Text
    
    For X = 1 To 7
        If Me.Controls("CheckBox" & X) = True Then
            Sayfa1.Cells(Son, X + 2) = 1
        Else
            Sayfa1.Cells(Son, X + 2) = 0
        End If
        Me.Controls("CheckBox" & X) = False
    Next

    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox1.SetFocus
End Sub

 

[sahika51]

Private Sub CommandButton1_Click() Dim Son As Long, X As Byte Son = Sayfa1.Cells(Rows.Count, 1).End(xlUp).Row + 1 Sayfa1.Cells(Son, 1) = TextBox1.Text Sayfa1.Cells(Son, 2) = TextBox2.Text For X = 1 To 7 If Me.Controls("CheckBox" & X) = True Then Sayfa1.Cells(Son, X + 2) = 1 Else Sayfa1.Cells(Son, X + 2) = 0 End If Me.Controls("CheckBox" & X) = False Next TextBox1.Text = "" TextBox2.Text = "" TextBox1.SetFocus End Sub

Teşekkür ederim