CheckBox Kayıt Sorunu

[Mustafa MUTLU]

Kod arşivinde bulduğum

Private Sub CheckBox1_Click()
[A1] = CheckBox1 * 1 + 2
End Sub

Ancak sadece a1 hücresine yazıyor.
Bense kayıt yaptığım satıra yazsın istiyorum.
[A1] Bunu [A] Olarak yazdım olmadı. Hata veriyor.

Satır = Range("A65536").End(3).Row + 1
Cells(Satır, "A") = Satır - 1
Cells(Satır, "B") = ComboBox1.Text
Cells(Satır, "c") = CheckBox1.Value

Bu kod doğru çalışıyor ancak
CheckBox1 DOĞRU Yazıyor DOĞRU yerine 1 YANLIŞ Yerine 0 yazsın istiyorum.

Bu kodu nasıl değiştirmeliyim.

Teşekkür ederim.....

 

[Mustafa MUTLU]

Konuyu CheckBox Format olarak açmam lazımdı herhalde.
Kusuruma bakmayın..

İlgilenen arkadaşlara Teşekkür ediyorum

 

[hamitcan]

Kod arşivinde bulduğum

Private Sub CheckBox1_Click()
[A1] = CheckBox1 * 1 + 2
End Sub
Ancak sadece a1 hücresine yazıyor.
Bense kayıt yaptığım satıra yazsın istiyorum.

   CELLS(Activecell.row,1) = CheckBox1 * 1 + 2

CheckBox1 DOĞRU Yazıyor DOĞRU yerine 1 YANLIŞ Yerine 0 yazsın istiyorum.

 if CheckBox1 then Cells(Satır, "c") =1 else Cells(Satır, "c") =0

 

[Mustafa MUTLU]

if CheckBox1 then Cells(Satır, "c") =1 else Cells(Satır, "c") =0
Bu kod işime yaradı..
Teşekkür Ederim..