% простоя за прошедший день

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

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

% простоя за прошедший день (Макросы/Sub)

Admnis

Дата: Воскресенье, 07.02.2021, 15:10 | Сообщение № 1

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

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

Сообщений: 16

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

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

Excel 2016

Дорогие форумчане могли бы посмотреть как реализовать вот это:
Необходимо в столбцы C,D,E,F листа "Результат" вставлять данные из листа "УС в разрезе"
Этот лист подгружается макросом из другой книги и каждый день он меняется (добавляются столбцы)
Теперь подробнее :
В столбец С необходимо подгружать % простоя за прошедший день (Сейчас это столбец 124, завтра будет другой)
В столбец D необходимо подгружать План на текущий квартал (предпоследний столбец)
В столбец E необходимо подгружать Факт на текущий квартал (последний столбец)
В столбец F необходимо подгружать Процент выполнения плана (отношение предпоследнего к последнему)

Все что я смог сам, это в столбцы A и B листа "Результат" копировать данные с листа "УС в разрезе" так как они не меняются.

Сообщение отредактировал Admnis - Воскресенье, 07.02.2021, 18:01

Ответить

_Igor_61

Дата: Воскресенье, 07.02.2021, 23:27 | Сообщение № 2

Группа: Проверенные

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

Сообщений: 504

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

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

Excel 2007

Цитата Admnis, 07.02.2021 в 15:10, в сообщении № 1 ()

могли бы посмотреть как реализовать вот это

Могли бы, Если бы Вы показали

Ответить

Admnis

Дата: Среда, 10.02.2021, 15:34 | Сообщение № 3

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

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

Сообщений: 16

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

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

Excel 2016

Цитата _Igor_61, 07.02.2021 в 23:27, в сообщении № 2 ()

Могли бы, Если бы Вы показали

[vba]

Код

Sub Сбор()
Dim wsRez As Worksheet, wsUS As Worksheet
Dim lLastRow As Long, lCol As Long
Set wsRez = Worksheets("Результат")
Set wsUS = Worksheets("УС в разрезе")
lLastRow = wsUS.Cells(Rows.Count, 3).End(xlUp).Row
lCol = wsUS.Rows(1).Find(What:="Q1 Факт", LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Column
wsUS.Range(wsUS.Cells(2, lCol - 1), wsUS.Cells(lLastRow, lCol + 1)).Copy wsRez.Range("D2")
wsUS.Range(wsUS.Cells(2, lCol - 4), wsUS.Cells(lLastRow, lCol - 4)).Copy wsRez.Range("C2")
wsUS.Range(wsUS.Cells(2, 3), wsUS.Cells(lLastRow, 3)).Copy wsRez.Range("B2")

Sheets("Результат").Select
Range("B2") = WorksheetFunction.Sum(Range("B3:B65"))
End Sub

[/vba]

Сообщение отредактировал Admnis - Среда, 10.02.2021, 17:28

Ответить

Pelena

Дата: Среда, 10.02.2021, 15:50 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Admnis, оформите код тегами с помощью кнопки # в режиме правки поста

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

% простоя за прошедший день (Макросы/Sub)

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