Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Заполнение строки имеющимися данными по нажатию клавиши - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение строки имеющимися данными по нажатию клавиши (Макросы/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
 
Ответить
СообщениеДоброго времени суток.
До сегодняшнего дня всегда обходился только формулами, но для данной задачи необходимо знание VBA, которым я не владею (возможно исправлю этот пробел), поэтому обращаюсь за помощью :)
Есть книга формата .xlsx 2019 версии
Содержит три листа.
Задача:
По нажатию клавиши "Add to the main file", находящейся на третьем листе, в таблице "Main_File" необходимо добавить новую строку со значениями из закрашенных оранжевым полей со страницы "Labor sheet for Employees".
В подкрашенных полях пометил, каким столбцам таблицы main_file соответствуют значения.
Таблице на странице "Main File" присвоил имя "Main_File".
Страница "Labor sheet for Employees" заполняется многократно в течении дня.

Автор - Rediska
Дата добавления - 23.06.2020 в 09:58
Nic70y Дата: Вторник, 23.06.2020, 11:01 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6590
Репутация: 1450 ±
Замечаний: 0% ±

ru13;10;03
[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]
К сообщению приложен файл: GJL.xlsm(33.6 Kb)


Яндекс Деньги 41001841029809
 
Ответить
Сообщение[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]

Автор - Nic70y
Дата добавления - 23.06.2020 в 11:01
Rediska Дата: Вторник, 23.06.2020, 11:24 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Благодарю за помощь, все работает hands . Добавил строку с обработкой значения в ячейке B8 по аналогии.
 
Ответить
СообщениеБлагодарю за помощь, все работает hands . Добавил строку с обработкой значения в ячейке B8 по аналогии.

Автор - Rediska
Дата добавления - 23.06.2020 в 11:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение строки имеющимися данными по нажатию клавиши (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

jooble Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!