Заполнение строки имеющимися данными по нажатию клавиши

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

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

Заполнение строки имеющимися данными по нажатию клавиши (Макросы/Sub)

Rediska

Дата: Вторник, 23.06.2020, 09:58 | Сообщение № 1

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

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

Сообщений: 3

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

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

Excel 2019

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

Есть книга формата .xlsx 2019 версии
Содержит три листа.
Задача:
По нажатию клавиши "Add to the main file", находящейся на третьем листе, в таблице "Main_File" необходимо добавить новую строку со значениями из закрашенных оранжевым полей со страницы "Labor sheet for Employees".
В подкрашенных полях пометил, каким столбцам таблицы main_file соответствуют значения.
Таблице на странице "Main File" присвоил имя "Main_File".
Страница "Labor sheet for Employees" заполняется многократно в течении дня.

К сообщению приложен файл: GJL.xlsx (55.7 Kb)

Сообщение отредактировал Rediska - Вторник, 23.06.2020, 10:00

Ответить

Nic70y

Дата: Вторник, 23.06.2020, 11:01 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 9005

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

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

Excel 2010

[vba]

Код

Sub u_511()
    u = Sheets("Main File").Cells(Rows.Count, "a").End(xlUp).Row + 1
    Sheets("Main File").Range("h" & u) = Sheets("Labor sheet for Employees").Range("d2").Value
    Sheets("Main File").Range("d" & u) = Sheets("Labor sheet for Employees").Range("b6").Value
    Sheets("Main File").Range("g" & u) = Sheets("Labor sheet for Employees").Range("b12").Value
    v = Application.Match("Total:", Sheets("Labor sheet for Employees").Range("d:d"), 0)
    Sheets("Main File").Range("i" & u) = Sheets("Labor sheet for Employees").Range("e" & v).Value
    w = Application.Match("Reson for no installation", Sheets("Labor sheet for Employees").Range("a:a"), 0)
    Sheets("Main File").Range("p" & u) = Sheets("Labor sheet for Employees").Range("b" & w).Value
End Sub

[/vba]