Checkboxlar için döngü olabilir mi sizce??

[bistroman]

For i = 1 To 15
If CheckBox(i).Value = True Then
ActiveCell.Offset(0, 5).Value = ActiveCell.Offset(0, 5).Value & CheckBox(i).Caption
End If
Next





15 tane checkbox var...ve işaretli olanları (true olanları) bir hücreye yazdırabilir miyiz captionlarını???

yukarıda yazdım hata veriyor??

 

[Korhan Ayhan]

Merhaba,

Formdaki nesneleri "Controls" komutu ile sorgulayabilirsiniz. Forumda arama yapınız. Örnekler var.

 

[bistroman]

nasıl yani?

 

[Emir Hüseyin Çoban]

. . .

Userform üzerinde CheckBox kullancaksanız bu şekilde;

For i = 1 To 3
Controls("CheckBox" & i).Caption = i
Next i

Çalışma sayfası üzerinde CheckBox kullancaksanız,
Denetim biçimlendirden - hücreler ile bağlantıya geçirmelisiniz.

. . .