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...