エクセルVBA私はテキストボックスに情報を入力し、入力して押すと、私はしたいよ何、タイトルの下に正しい場所に情報を配置します私のフォームを持っている行/列に私のイメージで

Question

http://imgur.com/zEm7hT7

を増やしますそれは1つの行と1つの行を上に行くと私はそれが自動的にクリックすると1つの行を下にジャンプしたいと思いますか、私は 'データベース'に情報を入力することができます戻るボタンを下に行く次のボタンがありますか'入る'。私は見て、私は何かを見つけることができないと私は非常に頼んでいると応答は素晴らしいです、ありがとう。

これは私がこれまで行ってきたことです。

Private Sub CommandButton1_Click()
Dim x As Integer
x = Cells(1, 1).End(xlDown).Row + 1
Cells(x, 1) = TextBox1.Value
Cells(x, 2) = TextBox2.Value
Cells(x, 3) = TextBox3.Value
Cells(x, 4) = TextBox4.Value

End Sub

Answer 1

x=2を次の空の行を見つけることに置き換えてください。

If Cells(2,1) = "" Then 
    x = 2 
Else 
    x = Cells(1,1).End(xlDown).Row + 1 
End If