Döngü işlemi hk

[chakistes]

merhaba arkadaşlar aşağıdaki işlemi döngü ile 30 adet yapmak istiyorum

userformda textbox 1 e sayı gelince g2 sütununa yazıyor a2 sütununa çarpı atıyor userformdaki textbox boş ise sütunu temizliyor
On Error Resume Next
Sheets("Anasayfa").Activate

[G2] = UserForm1.TextBox1.Text
If Len(TextBox1.Text) > 0 Then [a2] = "X"
If Len(TextBox1.Text) = 0 Then [a2] = ""

 

[askm]

Örnek dosyanızı ekleyebilir misiniz.

 

[chakistes]

örnek dosya ekledim

 

[askm]

Aşağıdaki kodu deneyin.

Private Sub CommandButton5_Click()

On Error Resume Next
Sheets("ANASAYFA").Activate

'[G2] = UserForm1.TextBox1.Text
'If Len(TextBox1.Text) > 0 Then [a2] = "X"
'If Len(TextBox1.Text) = 0 Then [a2] = ""
a = 1
Dim askm As Control
For Each askm In UserForm1.Controls
    If TypeName(askm) = "TextBox" Then
        a = a + 1
        Cells(a, "G") = askm.Text
        If Len(askm.Text) > 0 Then Cells(a, 1) = "X"
        If Len(askm.Text) = 0 Then Cells(a, 1) = ""
    End If
Next askm

End Sub

 

[chakistes]

teşekkür ederim

 

[askm]

Rica ederim. Kolay gelsin.