CheckBox ile veri silme

[musaagac]

If CheckBox23 Then
If MsgBox(TextBox23 & " SİLİNECEKTİR EMİN MİSİNİZ?", vbYesNo, "ONAY") = vbYes Then
TextBox23 = ""
[B4] = ""


ile verileri siliyorum. Benim istediğim ise Checkboxları seçip seçili olan checkbotaki verileri silmek nasıl yapabilirim

 

[Orion1]

Kendi dosyanıza göre uyarlayınız.

Dim i As Byte
For i = 1 To 5
    If Controls("CheckBox" & i).Value = True Then
        Controls("TextBox" & i).Text = ""
    End If
Next i