textbox'tan textbox'a veri girişi..

[ziabbs]

Merhabalar herkese öncelikle..
4 adet textbox ve 1 adet commandbutton mevcut.
textboxa sayı girilecek ve ekleye bastıkça ilk sayıyı 1.textboxa 2.sayıyı 2.textboxa 3.sayıyı 3.textboxa olacak şekilde girecek.ve textboxa girilecek sayı 1-100 arası olacak.aksi takdirde uyarı verecek bu degerler arasında girin diye.en son aşamada ise textbox1 e girilen veriyi a1 hücresine,textbox2ye girilen veriyi b1 textbox3 e girilen veriiyi c1 hücresine yazdıracak.nasıl bir kod yazmam gerekli?
teşekkürler şimdiden.

 

[Zeki Gürsoy]

Private Sub CommandButton1_Click()
If TextBox4 > 100 Then MsgBox "100 den büyük değer yazılamaz": Exit Sub
If TextBox1 = "" Then TextBox1 = TextBox4: Exit Sub
If TextBox2 = "" Then TextBox2 = TextBox4: Exit Sub
If TextBox3 = "" Then TextBox3 = TextBox4: Exit Sub
End Sub

 

[ozgretmen]

en son aşamada ise textbox1 e girilen veriyi a1 hücresine,textbox2ye girilen veriyi b1 textbox3 e girilen veriiyi c1 hücresine yazdıracak.nasıl bir kod yazmam gerekli?

Zeki Gürsoy Beyin kodlarında aşağıdaki şekilde bir değişiklikle istediğiniz hale getirilebilir.İyi çalışmalar...

Private Sub CommandButton1_Click()
If TextBox4 > 100 Then MsgBox "100 den büyük değer yazılamaz": Exit Sub
If TextBox1 = "" Then TextBox1 = TextBox4: Range("A1") = TextBox1: Exit Sub
If TextBox2 = "" Then TextBox2 = TextBox4: Range("B1") = TextBox2: Exit Sub
If TextBox3 = "" Then TextBox3 = TextBox4: Range("C1") = TextBox3: Exit Sub
End Sub

 

[ziabbs]

teşekkürler..