checkbox ile birçok hücreye veri girme

[tienshan]

merhaba
checkbox seçildiğinde bir sütunun bazı satırlarına istediğimiz verinin girilmesini nasıl sağlarız ? Belki çok kolay bir soru fakat bana zor... forumda aradım istediğimi net olarak bulamadım.. yardımlarınız için teşekkür ederim. örnek ektedir.

 

[N.Ziya Hiçdurmaz]

yanıt

Örneği inceleyiniz.

Private Sub CheckBox1_Click()
If CheckBox1 = False Then
[b8:b38].Clear
Else
For sut = 1 To 30
Range("b" & sut + 7) = "Aktif"
Next
End If
End Sub

 

[veyselemre]

Örneği inceleyin.