Checkbox durmuna göre hücreye değer atamak

[aarslan_1971]

Merhaba,
checkbox ın seçili olma veya olmama durmuna göre belirlediğim hücrede 0 veya 1 yazmasını istiyorum. aşağıdaki komut dizisini yazdım ama kırmızı yazdığım satırda 424 object required hatası veriyor. nerede yanlış yapıyorum?

Sub OnayKutusu115_Tıklat()
If OnayKutusu115.Checked = True Then
Range("k1").Value = 1
Else
Range("k1").Value = 0
End If

End Sub

cevabınız için şimdiden teşekkürler
Alp Arslan

 

[mancubus]

form kontrolünden bahsediyoruz değil mi?

If ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = 1 Then

Check Box 1 yerine şeklin adı yazılacak.

 

[Merhum İdris SERDAR]

.

Private Sub CheckBox15_Click()

If CheckBox15.Value = True Then Range("K1").Value = 1
If CheckBox15.Value = False Then Range("K1").Value = 0

End Sub

şeklinde deneyin.

.

 

[mancubus]

activex control ise...

If ActiveSheet.OLEObjects("CheckBox1").Object.Value = True Then

 

[ÖmerBey]

OnayKutusu115 = True

Olarak deneyiniz.

 

[aarslan_1971]

.

Private Sub CheckBox15_Click()

If CheckBox15.Value = True Then Range("K1").Value = 1
If CheckBox15.Value = False Then Range("K1").Value = 0

End Sub

şeklinde deneyin.

.

Yurttaş Hocam verdiğiniz komut işime yaradı. Çok teşekkür ederim.
Cevap veren diğer arkadaşlar sizin komutlarınızı henüz denemedi ama cevaplar için çok teşekkürler...

 

[kemalist]

.

Private Sub CheckBox15_Click()

If CheckBox15.Value = True Then Range("K1").Value = 1
If CheckBox15.Value = False Then Range("K1").Value = 0

End Sub

şeklinde deneyin.

.

İdris bey seçili alanda formül var.CheckBox'a basıldığında 1 oluyor normal olarak.Benim istediğim ChekBox'a ikinci basıldığında formülün yerinde olması yani eski halini alması.Yarımlarınız için şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

İdris bey seçili alanda formül var.CheckBox'a basıldığında 1 oluyor normal olarak.Benim istediğim ChekBox'a ikinci basıldığında formülün yerinde olması yani eski halini alması.Yarımlarınız için şimdiden teşekkür ederim.

. . .

Makro kaydet ile hücredeki formülün kodlarını alın.
False seçeneğine yerleştirin.

. . .

 

[kemalist]

Private Sub MASRAFSIZ_Click()
If MASRAFSIZ.Value = True Then Range("K23").Value = 0
If MASRAFSIZ.Value = False Then Range("K23").Value = Range("K23").Select
ActiveCell.FormulaR1C1 = "=RC[1]+RC[2]"
Range("K24").Select

End Sub

Tek hücrede yukarıdaki gibi sonuç aldım.Ancak A4:B123 Hücreleri arasındaki formülleri koda nasıl ekleyeceğim?

 

[Emir Hüseyin Çoban]

. . .

Şu şekilde bir örnek vereyim.
Hücre aralığını girip, formülü yazabilirsiniz.

Range("A4:A10") = "=RC[1]+RC[2]"

. . .

 

[kemalist]

Check box yardım

ÖRNEK DOSYA EKTEDİR.

Yardımlarınız için şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Private Sub CheckBox1_Click()
    
    If CheckBox1 = True Then Range("K2:K10,M2:M10") = 0
    
    If CheckBox1 = False Then
        Range("K2:K10") = "=RC[4]*15%"
        Range("M2:M10") = "=RC[2]*5%"
    End If
    
End Sub

. . .

 

[kemalist]

. . .

Private Sub CheckBox1_Click()
    
    If CheckBox1 = True Then Range("K2:K10,M2:M10") = 0
    
    If CheckBox1 = False Then
        Range("K2:K10") = "=RC[4]*15%"
        Range("M2:M10") = "=RC[2]*5%"
    End If
    
End Sub

. . .

Sayın Çoban işlem tamam teşekkürler