Döngü ile kayıt

[seddur]

Merhaba.Aşağıda yazılı kodlar ile textbox10'daki değerleri ilgili hücrelere kaydetiyor ancak toplam 20 sayı için 20 satır kod yazmak gerekiyor.Çok daha kısa bir şekilde döngü ile yazma olanağı varmıdır?


Private Sub CommandButton68_Click()
Dim s2 As Worksheet
Set s2 = Sheets("Anasayfa")
If TextBox10.Text = "1" Then s2.[a1] = TextBox10
If TextBox10.Text = "2" Then s2.[a2] = TextBox10
If TextBox10.Text = "3" Then s2.[a3] = TextBox10
If TextBox10.Text = "4" Then s2.[a4] = TextBox10
If TextBox10.Text = "5" Then s2.[a5] = TextBox10
If TextBox10.Text = "6" Then s2.[a6] = TextBox10

 

[dEdE]

Bu mudur?

For i = 1 To 20
    If TextBox10.Text = i Then s2.Cells(i,1) = TextBox10
Next

 

[seddur]

Tamamdır.Teşekkür ederim.

 

[dEdE]

Örnek dosyayı inceler misiniz?
İlk mesajınızdaki koddan şunu anladım.
TextBox10'da 1 yazıyorsa A1'e 1 yaz
TextBox10'da 2 yazıyorsa A2'ye 2 yaz
... bu şekilde 20'ye kadar gidecek.

 

[seddur]

Tamamdır sorun yok orjinal dosyaya uyarlama yapmak için bir kaç değişiklik yapmam gerekiyordu.Hallettim.