Kod ile onay kutusunu işaretlemek ve işareti kaldırmak

[tamer42]

Arkadaşlar mutlu yıllar,

Ekli dosyada yer alan onay kutularını makro ile tiklemek (onaylama) ve tiki kaldırmak (onaysız) nasıl yapabiliriz.

teşekkürler,
iyi seneler...

 

[EmrExcel16]

Mutlu yıllar , inceleyiniz benzer bir konuyu işlemiştik.

toplu checkbox işaretleme

merhaba arkadaşlar 20 adet textbox kutusu var commandbutton içinde küçük bir döngü ile toplu seçebilirmiyiz

www.excel.web.tr

Alternatif olarak kodda ekliyorum.

Sub Onaylı()
For Each chki In ActiveSheet.CheckBoxes
    With chki
        If chki.Value = xlOff Then
            .Value = True
        End If
    End With
Next
End Sub
Sub OnaySız()
For Each chki In ActiveSheet.CheckBoxes
    With chki
        If chki.Value <> xlOff Then
            .Value = False
        End If
    End With
Next
End Sub

 

[tamer42]

Mutlu yıllar , inceleyiniz benzer bir konuyu işlemiştik.

toplu checkbox işaretleme

merhaba arkadaşlar 20 adet textbox kutusu var commandbutton içinde küçük bir döngü ile toplu seçebilirmiyiz

www.excel.web.tr

Alternatif olarak kodda ekliyorum.

Sub Onaylı()
For Each chki In ActiveSheet.CheckBoxes
    With chki
        If chki.Value = xlOff Then
            .Value = True
        End If
    End With
Next
End Sub
Sub OnaySız()
For Each chki In ActiveSheet.CheckBoxes
    With chki
        If chki.Value <> xlOff Then
            .Value = False
        End If
    End With
Next
End Sub

Sn Emre çok teşekkürler,

 

[EmrExcel16]

Sn Emre çok teşekkürler,

Rica ederim , iyi çalışmalar.