Копирование в конец списка из TextBox'ов

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Копирование в конец списка из TextBox'ов - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Копирование в конец списка из TextBox'ов

wild_pig

Дата: Понедельник, 24.12.2012, 14:11 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 518

Репутация: 97 ±

Замечаний: 0% ±

2003, 2013

Прошу помощи.
Есть форма и текстбоксы. Данные из текстбоксов при нажатии копируются на нужный лист.
Вопрос: как сделать так, чтобы новые записи добавлялись в конец списка.

К сообщению приложен файл: _1.xls (36.0 Kb)

Ответить

Serge_007

Дата: Понедельник, 24.12.2012, 15:15 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

[vba]

Код

Private Sub CommandButton1_Click()
Dim MyArray
MyArray = Array(Me.TextBox1, Me.TextBox2, Me.TextBox3)
Sheets("Лист3").Range("A" & Rows.Count - 1).End(xlUp).Offset(1).Resize(, 3).Value =MyArray
Me.Hide
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

wild_pig

Дата: Понедельник, 24.12.2012, 16:39 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 518

Репутация: 97 ±

Замечаний: 0% ±

2003, 2013

Благодарствую

Ответить

Копирование в конец списка из TextBox'ов

Страница 1 из 1
1