Взять данные из нового листа

Взять данные из нового листа, при копировании и переносе нового листа данные должны браться с него

Пользователь

Сообщений: 5 Регистрация: 11.10.2025

12.10.2025 05:35:59

Добрый день
вопрос
1. как назвать новый лист в формуле =ВПР(B8;день2!C:F;4;ЛОЖЬ) чтоб он был всегда последний (слева на право) из созданных в книге ?
2. чтоб если нет новых данных в созданном листе то данные оставались старые с предыдущего листа

Прикрепленные файлы

начало.xlsx (12.52 КБ)

Sanja

Модератор

Сообщений: 20324 Регистрация: 10.01.2013

12.10.2025 11:08:45

Наверное это можно как-то формулами обыграть, но при добавлении листов ('день 3'...'день N') формулу придется подстраивать
Я бы использовал UDF

Скрытый текст

Ограничения функции:
Имя листа с ежедневными данными должно начинаться на слово 'день' и перед номером дня должен быть пробел

Прикрепленные файлы

начало.xlsm (24.68 КБ)

Согласие есть продукт при полном непротивлении сторон

bshd. Пользователь Сообщений: 5 Регистрация: 11.10.2025	#3 12.10.2025 11:14:37 Добрый день там как пример каждый лист имеет название как дата "12.10.25 " тогда ДЕНЬ в коде нужна на что заменить ? )

Sanja

Модератор

Сообщений: 20324 Регистрация: 10.01.2013

12.10.2025 11:16:38

Цитата
тогда ДЕНЬ в коде нужна на что заменить ?

Тогда в коде нужнА изменить все :evil:

Про файл-пример в Правилах написано
Приложите файл-пример максимально приближенный к 'боевому', что бы 100 раз не переписывать

Изменено: Sanja - 12.10.2025 11:36:00

Согласие есть продукт при полном непротивлении сторон

bshd. Пользователь Сообщений: 5 Регистрация: 11.10.2025	#5 12.10.2025 12:00:31 Простите думал же обойтись обычной функцией а так то конечно понимаю Гнев )) Прикрепленные файлы начало.xlsm (25.21 КБ)

Sanja

Модератор

Сообщений: 20324 Регистрация: 10.01.2013

12.10.2025 12:55:32

В файле показан образец правильного ведения учета.
Не на отдельных листах, а в общей таблице.
По ней построена Сводная, уже из нее получены нужные данные формулой
Не забывайте Обновлять Сводную при добавлении значений в Нормальную базу
Данные ГЗН для вып.списка Таблицы расположены на скрытом листе 'Списки'
Ну и переработанная UDF для Вашего (неправильного

) метода учета

Скрытый текст

Прикрепленные файлы

начало.xlsm (38.15 КБ)

Изменено: Sanja - 13.10.2025 04:28:59

Согласие есть продукт при полном непротивлении сторон

bshd.

Пользователь

Сообщений: 5 Регистрация: 11.10.2025

13.10.2025 04:08:53

Учёт ведется не на листах он туда заносится в процессе работы а ведется как раз в листе "база" вот по этому и хотелось бы чтоб с последнего листа "дата" заносились данные в лист "база"
весь сыр-бор в том что в листе "дата" номера транспортных средств в хаотичном порядке и могут просто отсутствовать в этот день

bshd.

Пользователь

Сообщений: 5 Регистрация: 11.10.2025

13.10.2025 08:45:37

в общем разобрался может кому будет полезно оставлю тут

Скрытый текст

Sub ОбновитьПробеги_ПоНомеру() Dim wb As Workbook Dim wsTO As Worksheet Dim lastDataSheet As Worksheet Dim maxDate As Double Dim ws As Worksheet Dim shtDate As Double Dim i As Long Dim vehicleNumber As String Dim foundCell As Range Dim lastRowTO As Long Dim lastRowData As Long Set wb = ThisWorkbook Set wsTO = wb.Worksheets("ТО") ' Находим последний лист с датой maxDate = 0 For Each ws In wb.Worksheets If IsDate(ws.Name) Then shtDate = CDbl(CDate(ws.Name)) If shtDate > maxDate Then maxDate = shtDate Set lastDataSheet = ws End If End If Next If lastDataSheet Is Nothing Then MsgBox "Нет листов с датами.", vbExclamation Exit Sub End If ' Последняя строка на листе "ТО" в колонке C (номера транспортных средств) lastRowTO = wsTO.Cells(wsTO.Rows.Count, "C").End(xlUp).Row ' Последняя строка на листе с данными в колонке C lastRowData = lastDataSheet.Cells(lastDataSheet.Rows.Count, "C").End(xlUp).Row For i = 2 To lastRowTO vehicleNumber = wsTO.Cells(i, "C").Value If vehicleNumber <> "" Then ' Ищем номер транспортного средства в листе с датой Set foundCell = lastDataSheet.Range("C2:C" & lastRowData).Find(What:=vehicleNumber, LookIn:=xlValues, LookAt:=xlWhole) If Not foundCell Is Nothing Then ' Если нашли и пробег не пустой, обновляем пробег If Not IsEmpty(lastDataSheet.Cells(foundCell.Row, "F").Value) Then wsTO.Cells(i, "F").Value = lastDataSheet.Cells(foundCell.Row, "F").Value End If ' Если пробег в новом листе пустой — не обновлять, оставить старое значение Else ' Ничего не делаем — пробег в листе "ТО" остаётся прежним End If End If Next i MsgBox "Пробеги обновлены по последним доступным данным.", vbInformation End Sub

В листе "ТО":
- В колонке C — номера транспортных средств
- В колонке F — нужно заносить пробеги
В листах с датами:
- В колонке C — номера транспортных средств
- В колонке F — пробеги
Необходимо найти каждое транспортное средство из "ТО" в последнем по дате листе и, если найдено, занести его пробег из колонки F этого листа в колонку F листа "ТО".

Читают тему