Soru checkbox ile "x" yazma

[sirkülasyon]

Private Sub CheckBox1_Click()
TextBox1.Value = IIf(CheckBox1.Value = True, "x", "")
End Sub
Her textbox için yukarıda yer alan kod gibi bir checkbox eklemeden tek checkbox ile 1-17 arasında ki tüm textboxlara "x" işareti aktabilmek için yardımcı olabilmeniz mümkün mü?

 

[muratboz06]

Deneyiniz.

Private Sub CheckBox1_Click()
    Dim ctrl As Control
    If CheckBox1.Value = TRUE Then
        For i = 1 To 17
            
            For Each ctrl In Me.Controls
                If ctrl.Name = "TextBox" & i Then
                    ctrl.Text = "X"
                End If
            Next ctrl
            
        Next i
    Else
        For i = 1 To 17
            
            For Each ctrl In Me.Controls
                If ctrl.Name = "TextBox" & i Then
                    ctrl.Text = ""
                End If
            Next ctrl
            
        Next i
    End If
End Sub

 

[sirkülasyon]

Allah razı olsun. Sağ olasın

 

[Mdemir63]

Sayın: @muratboz06
TextBox lar Sayfa üzerinde ise kodlarda nasıl bir değişiklik yapmak gerekir

 

[Mdemir63]

Tekrar merhabalar
aşağıdaki kod ile çözdüm
Teşekkürler

Private Sub CommandButton3_Click()

    If CheckBox1.Value = True Then
    
    For Each obj In ActiveSheet.OLEObjects
        With obj
            If TypeName(.Object) = "TextBox" Then
                
                .Width = 100
                .Height = 15
                .Object.Text = "X"
            End If
        End With
      Next obj
      End If

End Sub