анализ данных таблицы по критерию текущей даты

[serikov]

Всем доброго дня!

Помогите решить следующую проблему.
Имеется таблица (своего рода база данных), где в первой строке последовательно забиты даты, под каждой из них данные, которые пересчитываются и в итоговой строке выводится результат. Нужно реализовать выполнение следующего условия: вытаскивать данные из ячейки по координатам пересечения столбца с текущей датой и итоговой строкой. Чет запутался, совсем в тупик залез.

Sub BlockEarlierDates(theSheetName As String, theRow As String)
Dim todayColumn As Integer 'номер колонки с сегодняшней датой
Dim theSheet As Worksheet 'рабочий лист
'запоминаем рабочий лист
Set theSheet = ThisWorkbook.Worksheets(theSheetNam e)
'вычисляем колонку с сегодняшней датой
todayColumn = CInt(Application.Evaluate("MATCH(TO DAY(), " & theSheet.Name & "!" & theRow & ", 0)"))
Debug.Print todayColumn
Private Sub Workbook_Open()

ROWS_AMOUNT = Rows.Count
COLUMNS_AMOUNT = Columns.Count
End Sub


Спасибо.

[Dophin]

пример приложите.

[serikov]

Принцип работы файлика: посменно работают сотрудники, которые заносят данные, по истечению своей смены (вернее календарного дня), эти данные блокируются. Мысль такова, что при закрытии работы смены если итоговые данные (экономия/перерасход) превышают величину допустимого отклонения будет распечатываться отдельный лист с расширенным расчетом. Для команды на печать будет сравнение модуля (экон./перерасх) текущего дня с каким-то эталоном (числом). Как реализовать печать в принципе понятно, как идентифицировать смену они дневные и ночные 8.00-20.00 -"д" и 20.00-8.00 - "н", чтобы для сравнения брались данные по дате, смене за себя, а не соседа?