checkbox

[igultekin2000]

iyi günler,40' a yakın checkbox formsuz olarak var. aralarında seçim yaparak işlem yapıyorum, işlemim bittikten sonra checkbox' ları topluca tıkını kaldırmanın kolayı var mı? acab. Teşekkürler

 

[Merhum İdris SERDAR]

.

Aşağıdaki gibi bir kod olabilir.

Sub sil()
Range("B2:B100").ClearContents
End Sub

.

 

[turist]

Alternatif olarak aşağıdaki kodları deneyiniz.

Sub CheckBoxTemizle1() ' FormControls ise
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
            chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub
Sub CheckBoxTemizle2() 'ActiveX Controls ise
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "CheckBox") > 0 Then
            c.Object.Value = False
        End If
    Next
End Sub