Seçime göre hesaplama

[ormann]

Sayın arkadaşlar,Ekteki örnek dosyamda 5 adet onay kutusu bulunmaktadır.Benim istediğim bu onay kutularınının seçili olanlarının f6,f8,f10,f12,f14 hücrelerine hasaplamasını istiyorum.Eğer onay kutusunu seçmediğimde ise seçili hücrede hasaplama yapmaması gerekiyo.Yardımcı olurmusunuz.Saygılar

 

[Emir Hüseyin Çoban]

Merhaba, Hesaplama sayfasının kod bölümüne aşağıdaki kodları yapıştırarak deneyiniz.

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Range("F6").FormulaR1C1 = "=R[-4]C[1]*RC[-1]"
Else
Range("f6") = ""
End If
End Sub

Private Sub CheckBox2_Click()
If CheckBox2 = True Then
Range("F8").FormulaR1C1 = "=R[-6]C[1]*RC[-1]"
Else
Range("f8") = ""
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox3 = True Then
Range("F10").FormulaR1C1 = "=R[-8]C[1]*RC[-1]"
Else
Range("f10") = ""
End If
End Sub

Private Sub CheckBox4_Click()
If CheckBox4 = True Then
Range("F12").FormulaR1C1 = "=R[-10]C[1]*RC[-1]"
Else
Range("f12") = ""
End If

End Sub

Private Sub CheckBox5_Click()
If CheckBox5 = True Then
Range("F14").FormulaR1C1 = "=(R[-12]C[1]+R[-8]C+R[-6]C+R[-4]C+R[-2]C)*RC[-1]"
Else
Range("f14") = ""
End If
End Sub

 

[ormann]

Çok teşekkür ederim sayın Hüseyin