CheckBoxlardan excele veri ekleme

[mahmutozdemir]

Slm,
Userformdan excele veri eklemek için bir form oluşturdum.Texbook ve listbook tan evcele veri ekilemeyi başardım ama CheckBoxlardan nasıl excele veri ekleyeceğim .

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Dim Satır As Long
 
    Satır = Cells(Rows.Count, 1).End(3).Row + 1
 
    Cells(Satır, 1).Value = WorksheetFunction.Max(Range("A:A")) + 1
    Cells(Satır, 2).Value = T1.Text 'KAYIT EDER
    Cells(Satır, 3).Value = T2.Text
    Cells(Satır, 4).Value = T3.Text
    Cells(Satır, 5).Value = T4.Text
    Cells(Satır, 6).Value = T5.Text
 
    If T6 = True Then Cells(Satır, 7) = "PAZARTESİ"
    If T7 = True Then Cells(Satır, 8) = "SALI"
    If T8 = True Then Cells(Satır, 9) = "ÇARŞAMBA"
 
    T1.Text = ""  'KAYIT İŞLEMİNDEN SONRA FORM BOŞALIR
    T2.Text = ""
    T3.Text = ""
    T4.Text = ""
    T5.Text = ""
    T6 = False
    T7 = False
    T8 = False
 
    MsgBox "Kayıt işlemi tamamlanmıştır."
End Sub