Kod:
HdfSyf = IIf(Sayfa4.OptionButton1 = True, Sayfa4.OptionButton1.Caption, Sayfa4.OptionButton2.Caption)
Hdf = IIf(Sayfa4.OptionButton1 = True, True, False)
Set HdfSht = ThisWorkbook.Sheets(HdfSyf)
HdfSht.Cells.ClearHdfSyf = IIf(Sayfa4.OptionButton1 = True, Sayfa4.OptionButton1.Caption, Sayfa4.OptionButton2.Caption)
Hdf = IIf(Sayfa4.OptionButton1 = True, True, False)
Set HdfSht = ThisWorkbook.Sheets(HdfSyf)
HdfSht.Cells.Clear![[Resim: img-cray.gif]](https://www.accesstr.net/images/smilies/img-cray.gif)