Добавление группы ячеек на другой лист в таблицу

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление группы ячеек на другой лист в таблицу (Макросы/Sub)

Monstreek

Дата: Понедельник, 20.10.2014, 16:30 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2010

Господа, добрый день!

Прошу вас помочь с написанием макроса, который при нажатии на кнопку "Добавить" скопирует ячейки B19:N19 с листа "Новый" на лист "Список" в таблицу (в столбцы с A по M) в первую свободную строку.

Так же желательно, чтобы макрос перед копированием проверил наличие значений в ячейках C2 и C4, и, если они пустые, только показал сообщение о том, что данные не заполнены.

Заранее спасибо.

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

Ответить

Rioran

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

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

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

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

Excel 2013

Monstreek, здравствуйте.

На кнопку во вложении поставлен код ниже. Проверяет значение в ячейках листа, на котором кнопка лежит, после чего добавляет (или нет с выводом сообщения) данные на лист "Список". При этом формулу из строки выше протягивает автоматически - т.е. формулу достаточно ввести только в последнюю заполненную строку в начале эксплуатации файла.

[vba]

Код

Sub Rio_Adds_Data()

Dim X As Long 'Where data ends

Application.ScreenUpdating = False

With ThisWorkbook.Worksheets("Список")
     If [c2].Value = "" Or [c4].Value = "" Then
         MsgBox "Данные неполные, ввод отменён."
         Exit Sub
     End If
     X = .Cells(.Rows.Count, 1).End(xlUp).Row
     .Range("A1:M1").Offset(X, 0).Value = ThisWorkbook.Worksheets("Новый").Range("B19:N19").Value
     .Range("N" & X).Copy
     .Range("N" & X + 1).PasteSpecial
     Application.CutCopyMode = False
End With

Application.ScreenUpdating = True

End Sub

[/vba]

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

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Ответить

Monstreek

Дата: Понедельник, 20.10.2014, 23:36 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2010

Спасибо большое! Работает идеально.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление группы ячеек на другой лист в таблицу (Макросы/Sub)

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