Checkbox Kullanımı Hakkında

[Yesilyurtlu]

Es Selamün Aleyküm
Checkbox 'u birinci kez clickleyince A38 hücresine ……./ ";METNEÇEVİR(BUGÜN();"aa / yyyy"));" Şef :A.YILMAZ yazmasını ikinci kez clickleyince de A38 hücresinin boş olmasını nasıl sağlayabilirim

Teşekkür Ederim

 

[Yesilyurtlu]

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sayfa2.Range("B38").Value = "..../" & Format(Date, "mm.yyyy") & " Şef : A.YILMAZ"
End If
If CheckBox2.Value = True Then
Sayfa2.Range("B39").Value = "..../" & Format(Date, "mm.yyyy") & " Şb Müd : B.YILMAZ"
End If
If CheckBox3.Value = True Then
Sayfa2.Range("B40").Value = "..../" & Format(Date, "mm.yyyy") & " Müd : C.YILMAZ"
Else
Exit Sub
End If
End Sub
* Kodlar Alıntıdır
yukarıda ki kod ile istenilen hücreye alıyorum ancak çentiki kaldırınca parafın silinmesi lazımken silinmiyor.

 

[sailorforever]

anladığım kadarıyla sorun kodu checkbox ların altlarına yazmamanızdan kaynaklanıyor,checkbox ların değeri değiştiğinde ne yapmaları gerektiğini söylemek için her birinin sub rutinine ait kod yazmak gerekir,dolayısıyla aşağıdaki şekilde yaparsanız çalışacaktır,kolay gelsin

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sayfa2.Range("B38").Value = "..../" & Format(Date, "mm.yyyy") & " Şef : A.YILMAZ"
Else
Sayfa2.Range("B38").Value = ""
End If


End Sub

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Sayfa2.Range("B39").Value = "..../" & Format(Date, "mm.yyyy") & " Şb Müd : B.YILMAZ"
Else
Sayfa2.Range("B39").Value = ""
End If

End Sub

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Sayfa2.Range("B40").Value = "..../" & Format(Date, "mm.yyyy") & " Müd : C.YILMAZ"
Else
Sayfa2.Range("B40").Value = ""
End If
End Sub

 

[Yesilyurtlu]

Teşekkür Ederim