• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

CheckBoxlardan excele veri ekleme

Katılım
23 Ocak 2011
Mesajlar
293
Excel Vers. ve Dili
2007 excel
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 .
 

Ekli dosyalar

Merhaba,

Aşağıdaki kodu denermisiniz.

Kod:
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
 
Geri
Üst