|
|
|
новичок
участник
Last Login: 11.06.2007 13:22
Сообщ.: 3,
Visits: 3
|
|
Доброго всем дня.
Прочитав пару учебных курсов и сайт firststeps по VBA таки не понял.
Задача:
Необходимо перекинуть данные с одного листа(что-то типа формы ввода) в базу данных на другом листе(дописать в самом низу таблицы) по нажатию кнопки.
Кнопку создать и назначить её макросу не проблема, проблема макросом перекинуть.
Как это сделать?
Спасибо.
|
|
|
|
|
новичок
участник
Last Login: 25.03.2008 12:02
Сообщ.: 5,
Visits: 413
|
|
А было бы неплохо узнать структуру таблиц на 1 и 2 листе.
|
|
|
|
|
новичок
участник
Last Login: 11.06.2007 13:22
Сообщ.: 3,
Visits: 3
|
|
| Структура проста до горя, мне просто нужно знать как перебросить данные в конец таблици, как по аналогии в БД добавить запись
|
|
|
|
|
Supreme Being
участник
Last Login: 14.12.2007 16:53
Сообщ.: 100,
Visits: 1 707
|
|
Может это чем-то поможет. На форме есть TextBox и Кнопка. Нажимаем на Кнопку и данные из TextBox заносятся вниз таблицы на активном листе. Последняя строка находится по столбцу АPrivate Sub CommandButton1_Click()
Dim iLastRow&
'для определения последней строки в столбце
iLastRow& = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
Cells(iLastRow + 1, 1) = Me.TextBox1.Text
End Sub
|
|
|
|
|
новичок
участник
Last Login: 11.06.2007 13:22
Сообщ.: 3,
Visits: 3
|
|
|
|
|