check boxın işaretli olup olmamasına göre hücreye tarih yazdırmak

[microaim]

değerli arkadaşlar;

ekteki dosyada butona tıkladığımda userform ekrana gelecek. checkbox işaretlenip tamam dediğimde a1 hücresine tarihi yazmasını istiyorum.şimdiden teşekkür ederim...

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

Private Sub CheckBox1_Click()
If Me.CheckBox1 Then
[a1] = Date
Else
[a1] = vbNullString
End If
End Sub

 

[mehmett]

Kodlarınızda küçük bir değişiklik yapmanız yeterli olur sanırım.

If CheckBox1.Value = 1 Then

Yukarıdaki satırı aşağıdaki gibi değiştirin.

If CheckBox1.Value = True Then

 

[microaim]

cevaplar için çok teşekkür ederim.