CheckBox lara çek işareti koyma ve kaldırma

[Mdemir63]

Selamlar,

Arkadaşlar, ekteki dosyamda anlatmaya çalıştım.
Butonla CheckBoxlara çek işareti koyma ve kaldırma işlemini yaptırmak istiyorum.

Saygılar

 

[İhsan Tank]

Selamlar,

Arkadaşlar, ekteki dosyamda anlatmaya çalıştım.
Butonla CheckBoxlara çek işareti koyma ve kaldırma işlemini yaptırmak istiyorum.

Saygılar

merhaba
sayfanızın kod bölümüne

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
CheckBox1.Value = True
CheckBox2.Value = True
CheckBox3.Value = True
CheckBox4.Value = True
ToggleButton1.Caption = "Checkboxlar İşaretli"
MsgBox "İşaretlemeler Yapıldı", , "İhsan Tank"
Else
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
ToggleButton1.Caption = "Checkboxlar İşaretleri Kaldır"
MsgBox "İşaretlemeler Kaldırıldı ", , "İhsan Tank"
End If
End Sub

bu kod'u yazarmısınız

 

[Mdemir63]

Selamlar,
İhsan hocam çok teşekkürler.
Saygılar

 

[İhsan Tank]

Selamlar,
İhsan hocam çok teşekkürler.
Saygılar

rica ederim
iyi çalışmalar :yazici:

 

[Necdet]

Sayfadaki ChekBoxları On/Off yapmak

Merhaba,

Alternatif Olsun

Private Sub ToggleButton1_Click()
    Dim X As OLEObject
    If ToggleButton1.Value = False Then
        ToggleButton1.Caption = "ÇEK AT"
    Else
        ToggleButton1.Caption = "ÇEKİ KALDIR"
    End If
    For Each X In Sheet1.OLEObjects
        If X.progID = "Forms.CheckBox.1" Then
           X.Object.Value = ToggleButton1.Value
       End If
    Next
End Sub

 

[Mdemir63]

Necdet abi Teşekkür ederim

Saygılar

 

[Necdet]

Necdet abi Teşekkür ederim

Saygılar

Saygı bizden, güle güle kullanınız.