Onay Kutusuna tıklayınca bugünün tarihini atma

[TheSmoke]

Merhaba arkadaşlar
Başlıktan da anlaşılacağı gibi, Onay kutusuna tıkladığımda bugünün tarihini atan bir makro yazabilir miyiz? Çok fazla onay kutusu var. Ve tarihi onay kutusunun olduğu hücreye atması gerekiyor. Bilemedim. Yardımlarınızı bekliyorum.

 

[cems]

Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value = True Then
        Me.Range("A1").Value = Date ' A1 hücresine tarihi yaz
    Else
        Me.Range("A1").ClearContents ' Onay kutusu kapatıldığında hücreyi temizle
    End If
End Sub

Private Sub CheckBox2_Click()
    If Me.CheckBox2.Value = True Then
        Me.Range("A2").Value = Date ' A2 hücresine tarihi yaz
    Else
        Me.Range("A2").ClearContents
    End If
End Sub

Diğer onay kutuları için aynı şekilde devam edin...

 

[TheSmoke]

Bu kod bir sıkıntı mı var acaba? Ben çalıştıramadım.

 

[cems]

her checkboxa tek koyman gerek ikisi birden degil ve nolara cok dikkat et

 

[TheSmoke]

Böyle bir hata veriyor

 

[cems]

"me" arayuz unsuru demek.
Kullanılan userform un adı serform1 ise

Private Sub CheckBox1_Click()
If UserForm1.CheckBox1.Value = True
Then UserForm1.Range("A1").Value = Date ' A1 hücresine tarihi yaz
Else UserForm1.Range("A1").ClearContents ' Onay kutusu kapatıldığında hücreyi temizle
End If
End Sub

olarak deneyin ve her checkboxta da sayı farkına dikkat edin

 

[TheSmoke]

Teşekkürler