в следующую ячейку

[Rik3D]

Как сделать так,что бы если ячейка заполнена данными, то содержимое TextBox1, заполнялось в следующую ячейку, которая ниже.
На форме есть TextBox1, при на жатии на кнопку содержимое TextBox1 выводится в ячейку 2 первого столбца,затем в TextBox1 я печатаю другое, как cделать так, чтобы выводилось в следующую ячейку.
Private Sub CommandButton1_Click()
Cells(2, 1).Value = TextBox1.Text
End Sub
Заранее большое спасибо!

[Igor_123]

Выделяешь диапазон, идешь в "Данные"->"Форма"
Наслаждаеся...

Тапки, у твоего чувачка прикольные ...
и кружка, так и вспоминаеться анекдот:

англичанин, утром в постели. Его будит дворецкий:
- Ваш кофе, сер.
- Кофе на х***!
- Как прикажете. Сер.

[Rik3D]

Спасибо!
хороший анегдот

[Igor_123]

Код: Выделить всё

Private Sub CommandButton1_Click()
Static lRow as Long
lRow = lRow + 1
Cells(lRow, 1).Value = TextBox1.Text
End Sub

Пока будет форма ввод будет в следующую ячейку
При запуске формы ввод будет начинаться с первой ячейки
А дальше поиск!

[Rik3D]

Извените, не подскажите как переделать код выше, чтобы ввод начинался не в первую ячейку, а со второй?

[Димитрий]

Cells(lRow+1, 1).Value = TextBox1.Text

[Rik3D]

сПАСИБО.