Страницы: 1
RSS
Макрос VBA Для определения наименьшей даты с показателем >100%
 
Всем Доброго Дня!

Имеются заголовки с датами 01 - 10
под ними вниз идут строки с %
Необходимо для каждой следующей строки в контрольных столбцах показать наименьшую дату, когда % превышает 100 и сам %

Формулой у меня это получилось сделать (в файле примера столбцы L & M). Можно ли формулы для этих контрольных ячеек просто добавить в запуск макроса?

Нужен макрос, который будет определять наименьшую ячейку в строке с >100%, выводить значение этой ячейки, и дату
 
Добрый день!
Код
Sub M()
Dim LastRow As Long
LastRow = ThisWorkbook.Sheets(1).[a1000000].End(xlUp).Row
    If LastRow > 3 Then
        ThisWorkbook.Sheets(1).Range("L4").FormulaArray = "=SMALL(IF(RC[-10]:RC[-1]>100%,R3C2:R3C11,""""),1)"
        ThisWorkbook.Sheets(1).Range("M4").FormulaR1C1 = "=HLOOKUP(RC[-1],R3C2:R8C11,ROW()-2,0)"
    End If
    If LastRow > 4 Then
        ThisWorkbook.Sheets(1).Range("L4:M4").AutoFill ThisWorkbook.Sheets(1).Range("L4:M" & LastRow)
    End If
End Sub
Страницы: 1
Наверх