- Katılım
- 6 Eylül 2004
- Mesajlar
- 239
- Excel Vers. ve Dili
- Excel 2013 Türkçe
- Altın Üyelik Bitiş Tarihi
- 20-05-2022
selam arkadaşlar
UserForm daki LixBox a yazdığım değeri excel dosyamda farklı sayfalardaki hücrelere yazdırmak istiyorum.
ben kendi başıma aşağıdaki kodları yazdım ama olmuyor
Private Sub CommandButton1_Click()
Sheets("giris").Select Range("f12").Value = TextBox1
Sheets("giris").Select Range("f13").Value = TextBox2
Sheets("giris").Select Range("f14").Value = TextBox3
Sheets("K-ST").Select Range("B12").Value = TextBox4
Sheets("K-ST").Select Range("A12").Value = TextBox5
Sheets("K-ST").Select Range("B13").Value = TextBox6
Sheets("K-ST").Select Range("A13").Value = TextBox7
Sheets("K-ST").Select Range("B14").Value = TextBox8
Sheets("K-ST").Select Range("A14").Value = TextBox9
Sheets("K-ST").Select Range("B15").Value = TextBox10
Sheets("K-ST").Select Range("A15").Value = TextBox11
Sheets("K-ST").Select Range("B16").Value = TextBox12
Sheets("K-ST").Select Range("A16").Value = TextBox13
Unload Me
Application.Visible = True
Sheets("giris").Select
End Sub
yardım ederseniz sevinirim.
imdat saral
izmir
UserForm daki LixBox a yazdığım değeri excel dosyamda farklı sayfalardaki hücrelere yazdırmak istiyorum.
ben kendi başıma aşağıdaki kodları yazdım ama olmuyor
Private Sub CommandButton1_Click()
Sheets("giris").Select Range("f12").Value = TextBox1
Sheets("giris").Select Range("f13").Value = TextBox2
Sheets("giris").Select Range("f14").Value = TextBox3
Sheets("K-ST").Select Range("B12").Value = TextBox4
Sheets("K-ST").Select Range("A12").Value = TextBox5
Sheets("K-ST").Select Range("B13").Value = TextBox6
Sheets("K-ST").Select Range("A13").Value = TextBox7
Sheets("K-ST").Select Range("B14").Value = TextBox8
Sheets("K-ST").Select Range("A14").Value = TextBox9
Sheets("K-ST").Select Range("B15").Value = TextBox10
Sheets("K-ST").Select Range("A15").Value = TextBox11
Sheets("K-ST").Select Range("B16").Value = TextBox12
Sheets("K-ST").Select Range("A16").Value = TextBox13
Unload Me
Application.Visible = True
Sheets("giris").Select
End Sub
yardım ederseniz sevinirim.
imdat saral
izmir