Textbox Sayfaya aktarma

[sirkülasyon]

ustam
Textbox1 B3 hücresine, Textbox2 B4 hücresine kayıt edecek,
ikinci sefer kayıt esnasında Textbox1 C3 hücresine, Textbox2 C4 hücresine
Ücüncü sefer kayıt esnasında Textbox1 D3 hücresine, Textbox2 D4 hücresine
gibi dolu olan hücrenin yanındaki sütuna kayıt edecek ama 9 sütuna kadar kayıt yapabilecek. 10. sütuna kayıt yapmayacak
Rica etsem yardımcı olabilir misiniz?
Örnek dosya eklidir.

 

[YUSUF44]

Deneyiniz:

Private Sub CommandButton1_Click()
bos = Cells(3, Columns.Count).End(xlToLeft).Column + 1

If bos > 11 Then
    MsgBox "10 firma kaydedilmiştir!", vbExclamation
    Exit Sub
Else
    Cells(3, bos) = TextBox1.Text
    Cells(4, bos) = TextBox2.Text
End If
End Sub