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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос значений на другой лист по заданной дате - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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
 
Ответить
СообщениеДень добрый. Столкнулся с вопросом переноса данных из ячейки одного листа в ячейку на другой лист - ответ на него нашел:

[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) (подсветил цветом).

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

Автор - mitox
Дата добавления - 05.01.2019 в 11:05
китин Дата: Суббота, 05.01.2019, 11:43 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 5596
Репутация: 891 ±
Замечаний: 0% ±

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


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеmitox, не надо дублировать темы. дубль удалил

Автор - китин
Дата добавления - 05.01.2019 в 11:43
китин Дата: Суббота, 05.01.2019, 12:04 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 5596
Репутация: 891 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
так надо?
[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/WM R249698041931; Z239672726538
 
Ответить
Сообщениетак надо?
[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 нажмите кнопочку

Автор - китин
Дата добавления - 05.01.2019 в 12:04
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос значений на другой лист по заданной дате (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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