Кнопка - Ввод данных -Импорт введенных данных на другой лист

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Кнопка - Ввод данных -Импорт введенных данных на другой лист (Макросы/Sub)

max-energe

Дата: Пятница, 11.07.2014, 08:53 | Сообщение № 1

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

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

Сообщений: 24

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

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

Excel 2013

Здравствуйте! Необходимо, чтобы при нажатии на кнопку Ок на листе Труба (например) данные из таблицы вставлялись в таблицу на листе Вывод (что у меня получилось сделать), но с условием, что значения будут вставляться в определенную строку, что у меня не получается (см. пример), а если в этой строке уже есть какие-то значения, то выскакивало предупреждение о замене. Прошу помочь, только начинаю изучать VBA, а требуют уже сейчас.

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

Ответить

Wasilich

Дата: Пятница, 11.07.2014, 09:57 | Сообщение № 2

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

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

Сообщений: 1232

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

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

2003

Цитата max-energe, 11.07.2014 в 08:53, в сообщении № 1

с условием, что значения будут вставляться в определенную строку, что у меня не получается

Цитата max-energe, 11.07.2014 в 08:53, в сообщении № 1

только начинаю изучать VBA

Так получится. Пример для понимания решения задачи.
[vba]

Код

Sub КнопкаOK()
     Dim s&
     s = Range("C8") + 3 'строка для ввода
     If Sheets("Вывод").Range("B" & s) <> "" Then MsgBox "Замена!"
     Sheets("Вывод").Range("B" & s) = Range("B2")
     Sheets("Вывод").Range("C" & s) = Range("B3")
     Sheets("Вывод").Range("D" & s) = Range("B4")
End Sub

[/vba]