Перенос значений на другой лист по заданной дате

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос значений на другой лист по заданной дате (Формулы/Formulas)

mitox

Дата: Суббота, 05.01.2019, 11:05 | Сообщение № 1

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

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

Сообщений: 26

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

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

Excel 2016

День добрый. Столкнулся с вопросом переноса данных из ячейки одного листа в ячейку на другой лист - ответ на него нашел:

[vba]

Код

Sub test()
Application.ScreenUpdating = False
Range("b4").Copy
With Sheets("2").Range("g10")
.PasteSpecial Paste:=xlPasteValues
End With

With Application
.ScreenUpdating = False: .CutCopyMode = False
End With
End Sub

[/vba]
Но не смог найти ответ на вопрос когда значение ячейки (B4) с одного листа (1) нужно перенести на другой лист (2) исходя из заданной на листе (1) даты (I1). Во вложенном файле на листе (1) дата 04.01.2019 - нужно чтобы на лист (2) значение перенеслось в указанную дату. Данные на листе (1) заполняются каждый день и каждый день мне их нужно переносить на лист (2) по дате.
По аналогии необходимо переносить и значения B8 и C8 на лист (2) (подсветил цветом).

Буду благодарен за помощь. Файл прикладываю.

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

Сообщение отредактировал mitox - Суббота, 05.01.2019, 11:13

Ответить

китин

Дата: Суббота, 05.01.2019, 11:43 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 7014

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

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

Excel 2007;2010;2016

mitox, не надо дублировать темы. дубль удалил

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

китин

Дата: Суббота, 05.01.2019, 12:04 | Сообщение № 3

Группа: Модераторы

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

Сообщений: 7014

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

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

Excel 2007;2010;2016

так надо?
[vba]

Код

Sub TTT()
Dim dat&
    dat = Sheets("2").Cells(Rows.Count, 2).End(xlUp).Row
    Pdat = Sheets("1").Range("I1").Value
    aaa = WorksheetFunction.Match(CLng(Pdat), Sheets("2").Range("B1:B" & dat), 0)
        Sheets("2").Range("D" & aaa & ":E" & aaa).Value = Range("B8:C8").Value
        Sheets("2").Range("G" & aaa).Value = Range("B4").Value
End Sub

[/vba]
на листе 1 нажмите кнопочку

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

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос значений на другой лист по заданной дате (Формулы/Formulas)

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