option button hakkında?

[kardelen045]

arkadaşlar bi excel sayfasına option button ekledim eğer ben bunu işaretler isem istediğim satır ve sütun aralıklarındaki verilerin içindeki rakamları %18 eksiltip yazacak örnekte açıklama var

 

[kardelen045]

Yok Mu Yardimci Olabİlecke Bİr ArkadaŞ

 

[hamitcan]

Sayfanın kod kısmına aşağıdaki kodu yerleştirin. Ayrıca OptionButton nesnesini silip, yerine CheckBox nesnesi ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Intersect(Target, [e6:i20]) Is Nothing Then Exit Sub
    If CheckBox1 Then Target = Format(Target / 1.18, "000.00")
Application.EnableEvents = True
End Sub