TextBoxla iki ayrı sayfaya Kayıt

[ayagiz44]

Selamlar
http://s9.dosya.tc/server2/uti6a6/ICRA_CALISMA.rar.html

 

[ayagiz44]

istediğim

anasayfadaki
K1:n1 aralığını textbox sa alsın

anasayfada
B3:e3 aralığına sıralı kayıt yapsın
Örnek sayfasında
ilk dört textbox su
a2:e2 aralığına sabit
ve 5 ten 9 a kadar textboxlar örnek sayfasında
b5:f5 aralığına kayıt yapsın

 

[ayagiz44]

formül

Private Sub UserForm_Click()
0 Sheets("ANASAYFA").Select
TextBox1.Text = Range("K1").Value
Sheets("Örnek").Range("A2") = TextBox1.Value
TextBox2.Text = Range("N1").Value
Sheets("Örnek").Range("c2") = TextBox2.Value
TextBox3.Text = Range("M1").Value
Sheets("Örnek").Range("d2") = TextBox3.Value
TextBox4.Text = Range("L1").Value

Sheets("Örnek").Range("e2") = TextBox4.Value

' Buraya kadar hata yok!

alt textlere manuel giriş yapılıyor
Sheets("Örnek").Range("b5") = TextBox5.Value
Sheets("Örnek").Range("c5") = TextBox6.Value
Sheets("Örnek").Range("d5") = TextBox7.Value
Sheets("Örnek").Range("e5") = TextBox8.Value

End Sub

Hatayı nerede yapıyorum