Перенос данных из строки в таблицу

Вход

Регистрация

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

= Мир MS Excel/Перенос данных из строки в таблицу - Мир MS Excel

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

Перенос данных из строки в таблицу (Макросы/Sub)

Перенос данных из строки в таблицу

4lasa

Дата: Пятница, 26.01.2018, 16:21 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

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

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

Excel 2010

Доброго времени суток, уважаемые форумчане!

Нужна помощь в написании макроса.

Суть идеи такова:
1. Имеется таблица на листе 1.
2. На листе 2 при нажатии на "Кнопку 1" высвечивается форма.
3. При вводе в которую необходимый номер строки (у примеру № 1) данные из 1 строки листа 1 переносятся на лист 2 (для примера выделено красным цветом).

Спасибо!

К сообщению приложен файл: 7677245.xlsm (19.9 Kb)

Ответить

krosav4ig

Дата: Пятница, 26.01.2018, 17:03 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

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

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

Excel 2007,2010,2013

Здравствуйте.
Можно как-то так
[vba]

Код

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) Or Val(TextBox1) <= 0 Then Exit Sub
Лист2.[C6:C8] = Application.Transpose(Лист1.[B4:D4].Offset(TextBox1))
End Sub

[/vba]

К сообщению приложен файл: 8948424.xlsm (19.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

4lasa

Дата: Суббота, 27.01.2018, 09:39 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

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

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

Excel 2010

krosav4ig, огромное спасибо!

Ответить

Перенос данных из строки в таблицу (Макросы/Sub)

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