Как показать значение ячейки, соседнее с найденным

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

Как показать значение ячейки, соседнее с найденным (Формулы/Formulas)

МПЕ69

Дата: Пятница, 13.09.2019, 11:18 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2016

Доброго дня !

Долго бьюсь над решением такой проблемы.
Есть книга из многих листов. На каждой странице (кроме первой - Сроки и долги) в ячейке H2 вычисляется дата. Cоседняя с ней ячейка I2 - текстовое значение (название страны).
Первая страница книги Сроки и долги - страница результата. На ней в ячейке D3 вычисляется минимальное значение даты из выбранных ячеек H2 со всех листов. А в ячейке E3 первой страницы должно находиться соответствующее этой минимальной выбранной из всех дат со всех листов (ячейка H2) текстовое значение из соседней с ней ячейки I2.
Вот ЭТО значение и нужно вывести на первую страницу в ячейку Е3. Макет книги прилагаю.

Оператор ЕСЛИ не подходит: листов много.
Благодарю всех за участие !

К сообщению приложен файл: 5197815.xls (73.0 Kb)

Сообщение отредактировал МПЕ69 - Пятница, 13.09.2019, 11:44

Ответить

Nic70y

Дата: Пятница, 13.09.2019, 11:20 | Сообщение № 2

Группа: Друзья

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

Сообщений: 9139

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

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

Excel 2010

Цитата МПЕ69, 13.09.2019 в 11:18, в сообщении № 1 ()

Макет книги прилагаю

Кругом обман!
Даже в интернете

ЮMoney 41001841029809

Ответить

МПЕ69

Дата: Пятница, 13.09.2019, 11:20 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2016

Сама книга

К сообщению приложен файл: 6556336.xls (73.0 Kb)

Ответить

bigor

Дата: Пятница, 13.09.2019, 11:21 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 1382

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

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

нет

Добрый день!

Макет потеряли

Ответить

МПЕ69

Дата: Пятница, 13.09.2019, 11:22 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2016

всё есть

Ответить

Nic70y

Дата: Пятница, 13.09.2019, 12:02 | Сообщение № 6

Группа: Друзья

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

Сообщений: 9139

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

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

Excel 2010

как-то так наскоряк:
[vba]

Код

Sub U_742()
    Cnt = 0
    u_3 = 73000
    u_4 = Sheets(2).Name
    For Elem = 2 To Sheets.Count
        u_1 = Sheets(Elem).Name
        u_2 = Sheets(u_1).Range("h2").Value
        If u_2 < u_3 Then
            u_3 = u_2
            u_4 = u_1
        End If
    Cnt = Cnt + 1
    Next Elem
    Range("d3") = u_3
    Range("e3") = u_4
End Sub

[/vba]