checkbox kontrolü

[marimar]

merhaba arkadaşlar çalışma sayfasına a1 ile a50 arasına checkboxlar yerleştirdim benim istediğim a1 hücresindeki checkbox aktif olunca tüm checkbox'lar aktif olsun a1 hücresindeki checkbox pasif olunca tüm checkbox'lar pasif olsun ve checkbox1'in üzerine gelince tümünü seç diye bir yazı belirsin istiyorum bunu nasıl yapabilirim
teşekkürler

 

[Recep İpek]

1.sorunuz için aşağıdaki kodları kullanabilirsiniz.

Private Sub CheckBox1_Click()
Dim cb As Object
Dim durum As Boolean
durum = CheckBox1.Value
For Each cb In Sheets("Sayfa1").OLEObjects
    If TypeName(cb.Object) = "CheckBox" Then
        cb.Object.Value = durum
    End If
Next cb
End Sub

 

[geren36]

ikinci sorunuzun yanıtı:

fareyi checkbox1 in üzerine getirmeniz yeterlidir.

güncel kitabınız ektedir...

 

[Seyit Tiken]

İstediğiniz onay durumunu farklı bir yöntem ile yaptık. Bir inceleyiniz. Dosya ekte.

 

[sfelek]

Merhaba Benzer bir sorun ile karşı karşıyayım
ilgili örneklerden yaptığım alıntılardan yola çıkarak yaptıklarım isteklerimi karşılamıyor.
Kullandığım kotlar şunlar.
----------------------------------------------------
Private Sub OptionButton1-Kg_Click()

Dim cb As Object
Dim durum As Boolean
durum = CheckBox1-Kg.Value
For Each cb In Sheets("Sayfa1").OLEObjects
If TypeName(cb.Object) = "CheckBox-Kg" Then
cb.Object.Value = durum
End If
Next cb
End Sub

-----------------------------------------------------------
Private Sub OptionButton2-g_Click()

Dim cb As Object
Dim durum As Boolean
durum = CheckBox1-g.Value
For Each cb In Sheets("Sayfa1").OLEObjects
If TypeName(cb.Object) = "CheckBox-g" Then
cb.Object.Value = durum
End If
Next cb
End Sub

----------------------------------------------------

Excel sayfasında yaptığım hesaplamada başlangıçta [Kg] ve [g] değerlerini belirlemek istiyorum bunu tekrar seçilmemesi için [OptionButton] kullanmayı düşündüm hesaplanan değerlerin [Kg] , [g] ları CheckBox larla kullanıcı kontrolünde değilde otomatik işaretlemek istedim. ve beceremedim
yardımcı olursanız sevinirim.

 

[Recep İpek]

If TypeName(cb.Object) = "CheckBox-Kg" Then

ve

If TypeName(cb.Object) = "CheckBox-g" Then

satırlarını

If TypeName(cb.Object) = "CheckBox" Then

olarak değiştirin.

 

[sfelek]

Teşekkür ederim
şu anda deneyemeyeceğim yarın sabah deneyeceğim
ilgi ve hızınız için teşekkür ederim mailinizde belirtiğiniz gibi doğru adresi bulduğuma inanıyorum