Checkbox'a tıklandığında hücreye istediğim değeri yazdırma

[mufsata]

Merhaba, başlık açıklayıcı oldu mu emin değilim. Kısaca özetleyeyim, Userform içine checkbox koydum 3 adet, eğer seçiliyse "Var", seçili değilse "Yok" yazdırmak istiyorum. Bunun için nasıl bir kod kullanmam gerekli?

Private Sub CommandButton1_Click()
Dim RowCount As Long
RowCount = Worksheets("Sayfa1").Range("B1").CurrentRegion.Rows.Count
With Worksheets("Sayfa1").Range("B1")
    
    .Offset(RowCount, 0) = ProjeAdı
    .Offset(RowCount, 1) = Tarih
    .Offset(RowCount, 2) = SiparişNo
    .Offset(RowCount, 3) = Standart
    .Offset(RowCount, 4) = Malzeme
    .Offset(RowCount, 5) = KalemNo1
    .Offset(RowCount, 6) = Çap1
    .Offset(RowCount, 7) = Et1
    .Offset(RowCount, 8) = Miktar1
    .Offset(RowCount, 9) = Boy1
    .Offset(RowCount, 10) = HT1
    .Offset(RowCount, 11) = Torna1
    .Offset(RowCount, 12) = FL1
    .Offset(RowCount, 13) = İç1
    .Offset(RowCount, 14) = Dış1
    .Offset(RowCount, 15) = Notlar1
    
End With

HT1 FL1 Torna1 Checkbox ların adı.

 

[Muzaffer Ali]

Aşağıdaki kodları inceleyin.

If CheckBox1 = True Then
Range("A1") = "seçili"
Else
Range("A1") = "seçili değil"
End If

 

[mufsata]

Evet bu şekilde A1 hücresine yazdırabiliyorum, ancak benim uyarlamak istediğim yukarıda HT1 diye adlandırdığım yere yazabilmek. Proje girdisi oluştururken kullanacağım, her defasında kaydet dediğimde "Var" ya da "Yok" olarak hücreye işlemem gerekli. VBA konusunda deneyimim az ancak mantıken düşündüğümde şu şekilde bir şey yapmam gerektiğini farzediyorum;

If CheckBox1 = True Then
HT1.Value = "seçili"
Else
HT1.Value = "seçili değil"
End If

HT1.Value dediğim yere gelmesi gereken kodu bilmiyorum işte sıkıntı orda :/

 

[Muzaffer Ali]

Şu şekilde olacak.

Private Sub CommandButton1_Click()
    Dim RowCount As Long
    RowCount = Worksheets("Sayfa1").Range("B1").CurrentRegion.Rows.Count
    With Worksheets("Sayfa1").Range("B1")
        .Offset(RowCount, 0) = ProjeAdı
        .Offset(RowCount, 1) = Tarih
        .Offset(RowCount, 2) = SiparişNo
        .Offset(RowCount, 3) = Standart
        .Offset(RowCount, 4) = Malzeme
        .Offset(RowCount, 5) = KalemNo1
        .Offset(RowCount, 6) = Çap1
        .Offset(RowCount, 7) = Et1
        .Offset(RowCount, 8) = Miktar1
        .Offset(RowCount, 9) = Boy1
        If HT1.Value = True Then
            .Offset(RowCount, 10) = "VAR"
        Else
            .Offset(RowCount, 10) = "YOK"
        End If
        If Torna1.Value = True Then
            .Offset(RowCount, 11) = "VAR"
        Else
            .Offset(RowCount, 11) = "YOK"
        End If
        If FL1.Value = True Then
            .Offset(RowCount, 12) = "VAR"
        Else
            .Offset(RowCount, 12) = "YOK"
        End If
        .Offset(RowCount, 13) = İç1
        .Offset(RowCount, 14) = Dış1
        .Offset(RowCount, 15) = Notlar1
        
    End With
End Sub

 

[mufsata]

Çok teşekkür ederim, bilmeyince en temel şeyde bile zorlanıyor insan

 

[Muzaffer Ali]

Rica ederim iyi çalışmalar.