TextBox verilerini hücrelere aktarma

[sscluber]

10 tane TextBox'ı x1 x2 x3 x4 x5 ve y1 y2 y3 y4 y5 olarak yeniden adlandırdım
Sonra bu textbox'a girdiğim değerleri excel hücresine aktarmak istedim ancak şu yazdığım kod olmadı

Private Sub CommandButton5_Click()

For i = 1 To 5
Cells(i + 2, 5) = x & i
Cells(i + 2, 6) = y & i
Next

End Sub

 

[PLİNT]

Merhaba
"Textbox" lar "Userform" üzerinde ise;
Aşağıdaki gibi düzenleyiniz

Cells(i + 2, 5) = [COLOR="Red"]Controls("x" & i)[/COLOR]
Cells(i + 2, 5) = [COLOR="Red"]Controls("y" & i)[/COLOR]

 

[sscluber]

Merhaba
"Textbox" lar "Userform" üzerinde ise;
Aşağıdaki gibi düzenleyiniz

Cells(i + 2, 5) = [COLOR="Red"]Controls("x" & i)[/COLOR]
Cells(i + 2, 5) = [COLOR="Red"]Controls("y" & i)[/COLOR]

Çok teşekkür ederim oldu