seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
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
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