CheckBox işlemi

[Yesilyurtlu]

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Range("d5:d10").FormulaR1C1 = "=R[-0]C[-2]*RC[-1]"
Else
Range("d5:d10") = ""
End If
End Sub
işleminde D510 sütununa formülü de getiriyor.
Formülü göstermeden sadece işlemin sonucunu getirebilmesi için ne yapabilirim yardımcı olabilir misiniz?

 

[hamitcan]

Range("d5:d10") = Range("d5:d10").VALUE

satırını ilave edip dener misiniz ?

 

[Yesilyurtlu]

üstadım olmadı
Checkbox tık kaldırılınca bu seferde değer kalıyor silinmiyor.
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Range("d5:d10").FormulaR1C1 = "=R[-0]C[-2]*RC[-1]"
Else
Range("d5:d10") = Range("d5:d10").Value

End If
End Sub

 

[hamitcan]

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Range("d5:d10").FormulaR1C1 = "=R[-0]C[-2]*RC[-1]"
Range("d5:d10") = Range("d5:d10").VALUE
Else
Range("d5:d10") = ""
End If
End Sub

 

[Yesilyurtlu]

Üstad Teşekkür Ederim.
Allah Yar ve Yardımcınız Olsun.
Kolay Gelsin