Girilen aralıktaki checkbox 'ları seçmek

[mtl]

Bu işlemi checkbox isimlerine değişken atayarak, for next döngüsü ile nasıl yapabilirim? Controls(.....) şeklinde yapılıyordu ama başarılı olamadım.

 

[ECYavuz]

For i = 1 To 4
Cells(a, i ).Value = Controls("CheckBox" & i)
Next i

Şeklinde deneyin

 

[mtl]

Sayın ECYavuz teşekkür ederim.

 

[ECYavuz]

Şu şekildede kullanabilirsiniz;

Private Sub CommandButton2_Click()
For Each denetim In Controls
If Left(denetim.Name, 5) = "Check" Then
[A1].Value = denetim.Name & " " & denetim.Caption & " " & _ denetim.Value
End If
Next
End Sub

 

[mtl]

Sayın ECYavuz, son örneğiniz uygulamamı daha da kolaylaştırdı. Çok teşekkür ederim.