checkbox for next

[quesh]

bir sorum daha şu ki
userform2 nin üzerinde 34 tane checkbox mevcut. aşağıdaki kodu tüm checkboxlar için ayrı ayrı girmektense tek bir kod yazıp da tüm checkboxlara uygulamak mümkün müdür for next ile?

yani for i=1 to 34
for j=4 to 39
checkbox(i)
Sheets("İÇİNDEKİLER").cells(j,12)

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Sheets("İÇİNDEKİLER").Range("L4")= True
Else
Sheets("İÇİNDEKİLER").Range("L4") = False
End If
End Sub

 

[Huseyinkis]

Ekteki Gibi Yapabilirsiniz.

Private Sub CheckBox1_Click()
For i= 1 To 34
If Controls("CheckBox"&i) = True Then
Sheets("İÇİNDEKİLER").Range("L"&i+3)= True
Else
Sheets("İÇİNDEKİLER").Range("L"&i+3) = False
End If
Next
End Sub

 

[quesh]

Teşekkür ederim. peki kodu nereye eklicem userformun initialize kısmına mı ?

 

[Huseyinkis]

Teşekkür ederim. peki kodu nereye eklicem userformun initialize kısmına mı ?

Kodu userformda Checkbox1 değişsinde çalışsın olarak ayarlamıştınız. eğer userform açıldığında çalışmasını istiyorsanız

Private Sub CheckBox1_Click()

kısmını silip userfotm intialize kısmına koyun yok butona basınca çalışsın diyorsanız commanbutonclik kısmına koymanız gerekir.

 

[Orion1]

Teşekkür ederim. peki kodu nereye eklicem userformun initialize kısmına mı ?

:kafa::kafa::kafa::!::!::!::bad: