Добавление(редактирование) данный с формы на Excel-лист

[manula]

Добрый день коллеги, не могли бы вы мне помочь вот с каким вопросом, я создал форму на ней едиты, мне нужно осуществить следующую процедуру, на листе "Данные" найти первую пустую строку встать на нее и записать реквизиты с едитов на лист, я просто с этим первый раз столкнулся, не могли бы вы мне подсказать как реализовать данную процедуру.
А редактирование открываю лист "Данные" встаю на любую строку нажимаю кнопку и на форму в едиты загружаются данные с выбранной строки. Можно на элементарном примере с двумя-тремя едитами, подсобите коллеги, может у кого готовая такая процедура есть?

[EducatedFool]

Можно на элементарном примере с двумя-тремя едитами, подсобите коллеги

Т.е. нам создавать пример, чтобы вам показать?
А почему бы вам не выложить пример файла, и не показать на его примере, что конкретно надо сделать?

может у кого готовая такая процедура есть?

таких примеров на форуме множество
например: http://www.programmersforum.ru/showp...33&postcount=2

[manula]

Ну вот к примеру как происходит добавление на лист у меня

PHP код:

strk = 4
Sheets("Данные").Cells(strk, 1) = TbFio.Text
Sheets("Данные").Cells(strk, 2) = TbVozrast.Text
Sheets("Данные").Cells(strk, 3) = TbPol.Text 


А как найти в столбце A первую пустую ячейку и туда записать данные, то есть мой фрагмент вставить в приведенный вами цикл по поиску первой пустой ячейки?

[IgorGO]

strk = Sheets("Данные").Cells(rows.count,1).end(xlup).row+1

[manula]

Спасибо коллега, то что нужно, а вот теперь вопрос с редактированием, я на листе выбираю любую строку нажимаю Батон и открывается форма с полями в которых содержатся данные из выбранной строки, как это реализовать коллеги?

[IgorGO]

как это реализовать коллеги?

вижу два варианта:
1. подождать пока кто-то напишет макрос
2. заказать написание макроса(ов)

[manula]

Мне просто нужно каким то образом запомнить позицию текущей ячейки, а потом уже вот что бы я написал:

PHP код:

If Sheets(2).Cells(ActStrk, 1) = "1" Then
UserForm2.TbFio = Sheets(2).Cells(ActStrk, 1)
UserForm2.TbPol = Sheets(2).Cells(ActStrk, 2)
End If 


ActStrk - это как раз активная строка, ее значение, как можно запомнить значение текущей строки.

[IgorGO]

с учетом:

я на листе выбираю любую строку нажимаю Батон

ActStrk = activecell.row

[manula]

Да вроде де все работает коллега, только мне надо немного переделать, значение выбранной строки передается, только мне надо еще сравнить по одному столбцу по его значению, то есть я выбираю строку запомнил ее значение, потом этим условием смотрю если статус равен 1 то загружаю форму редактирования с данными, надеюсь я понятно выразился, таким образом открывает форму только при выборе ячейки со статусом:

PHP код:

ActStrk = ActiveCell.Row
 
If Sheets(2).Cells(ActStrk, 4) = "1" Then
UserForm2.Show
UserForm2.TbFio = Sheets(2).Cells(ActStrk, 1)
UserForm2.TbPol = Sheets(2).Cells(ActStrk, 2)
End If 


[IgorGO]

UserForm2.TbFio = Sheets(2).Cells(ActStrk, 1) 
UserForm2.TbPol = Sheets(2).Cells(ActStrk, 2) 
UserForm2.Show