Люди сразу хочу сказать что я в этом деле чайник. Незнаю даже прально ли я назвал тему.
Кароче мне нужно понять вот что: Строка 1 допустим забита № Заказа|И.Ф.О. Заказчика кароч и тд. и тп.
Мне надо штоб он из формы брал данные и забивал их в строку если допустим 3 строка забито то он сохранял в 4ю если четвертая забита то в 5ю!! С цыфрами это я сделать могу а вот с буквами не как.
За ранее спасибо!!!!!

Код

Private Sub CommandButton1_Click() Dim Rw As Integer  For Rw = 2 To 100  If Range("A" & Rw).Value = "" Then  Range("A" & Rw).Value = TextBox1.Text  Exit For  End If  Next End Sub

Если ты в этом деле чайник, то предлагаю:
1) Зарегистрироваться (вопросов у тебя еще будет куча, регистрированному удобнее).
2) Если ты хочешь сделать именно так как описАл - то объясни, почему выбираешь именно Excel? Вообще-то это - работа для Аксесса... или есть какие-то дополнительные, неозвученные, обстоятельства?

Цитата

Вообще-то это - работа для Аксесса

в xl можно сделать любой расчет и результат сохранить.

Цитата(Staruha @ 14.10.2005, 18:47)

Код Private Sub CommandButton1_Click() Dim Rw As Integer  For Rw = 2 To 100  If Range("A" & Rw).Value = "" Then  Range("A" & Rw).Value = TextBox1.Text  Exit For  End If  Next End Sub

Спасибо те огромное все работает!!! Правда я изменил тип данных на Variant и строк дабавил до 65 000!
Добавлено @ 17:31

Цитата(Akina @ 14.10.2005, 19:02)

2) Если ты хочешь сделать именно так как описАл - то объясни, почему выбираешь именно Excel? Вообще-то это - работа для Аксесса... или есть какие-то дополнительные, неозвученные, обстоятельства?

1) Я уже зарегился
2) На мой взгляд в акссе я не смогу создать таблицу и форму чтоб при заполнении формы данные вводились и в таблицу и сохранялись в базе данных!

Цитата(Vavan @ 15.10.2005, 18:26)

и строк дабавил до 65 000!

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

Код

Dim EmptyCell As Range With Worksheets(1).Range("a1:a65536")     Set EmptyCell = .Find(vbNullString, LookIn:=xlValues)     If Not EmptyCell Is Nothing Then         Range(EmptyCell.Address).Value = TextBox1.Text     Else         MsgBox "Пустые ячейки не обнаружены"     End If End With

а типом Variant лишний раз лучше не злоупотреблять, в случае необходимости меняй Integer на Long

Это сообщение отредактировал(а) likhobory - 15.10.2005, 18:27

Цитата(likhobory @ 15.10.2005, 18:05)

а типом Variant лишний раз лучше не злоупотреблять, в случае необходимости меняй Integer на Long

Паиб поробую поэксперементировать с этим!!!

likhobory Ура!Мне давно не хватало такого кода.

Цитата(Staruha @ 14.10.2005, 22:33)

в xl можно сделать любой расчет и результат сохранить.

ну давай только религиозных войн не устраивать согласись что есть задачи для табличного процессора (Excel), есть задачи для СУБД (Access) - и использовать один инструмент для того чтобы делать им то для чего предназначен другой - несерьезно... к тому же смотри что там чел далее пишет:

Цитата(Vavan @ 15.10.2005, 18:26)

строк дабавил до 65 000

а кабы ему 66 тыс. надо было?

Цитата(Vavan @ 15.10.2005, 18:26)

На мой взгляд в акссе я не смогу создать таблицу и форму чтоб при заполнении формы данные вводились и в таблицу и сохранялись в базе данных!

здрассьте, милая моя! а для чего же ж Аксесс придуман, по-твоему?

Цитата(Staruha @ 16.10.2005, 01:18)

Ура!Мне давно не хватало такого кода.

Кода поиска пустых ячеек в СЕРЕДИНЕ диапазона? потому как ИСХОДНАЯ задача (найти последнюю заполненную) решается без всяких циклов - через SpecialCells. Или уж (если нужно различать пустую строку и Empty) можно использовать do/while или по крайней мере exit for - чего молотить, если уже найдено?

Цитата(Akina @ 16.10.2005, 23:05)

потому как ИСХОДНАЯ задача (найти последнюю заполненную)

Akina, в целом ты прав, но вышеприведенный код был дан как альтернатива циклу и в данном случае вполне может заменить SpecialCells

Akina