Вывод данных во 2й лист Книги по заданным условиям в первом
BBC
Дата: Четверг, 16.05.2024, 12:22 |
Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
0
±
Замечаний:
0% ±
Excel LTSC
Доброго времени суток. Книга СПИСОК ЛИЦ, в первом листе в алфавитном порядке список всех сотрудников ООО (более 50 чел). Как сделать, чтобы отмечая в ячейках столбца G первого листа(зеленый), во втором листе С ОРУЖИЕМ (красный) формировался список отмеченных лиц ?
Доброго времени суток. Книга СПИСОК ЛИЦ, в первом листе в алфавитном порядке список всех сотрудников ООО (более 50 чел). Как сделать, чтобы отмечая в ячейках столбца G первого листа(зеленый), во втором листе С ОРУЖИЕМ (красный) формировался список отмеченных лиц ? BBC
Ответить
Сообщение Доброго времени суток. Книга СПИСОК ЛИЦ, в первом листе в алфавитном порядке список всех сотрудников ООО (более 50 чел). Как сделать, чтобы отмечая в ячейках столбца G первого листа(зеленый), во втором листе С ОРУЖИЕМ (красный) формировался список отмеченных лиц ? Автор - BBC Дата добавления - 16.05.2024 в 12:22
Nic70y
Дата: Четверг, 16.05.2024, 12:42 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация:
2369
±
Замечаний:
0% ±
Excel 2010
фильтр не устаивает?
К сообщению приложен файл:
65.xlsx
(13.9 Kb)
ЮMoney 41001841029809
Ответить
Сообщение фильтр не устаивает? Автор - Nic70y Дата добавления - 16.05.2024 в 12:42
китин
Дата: Четверг, 16.05.2024, 12:44 |
Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация:
1078
±
Замечаний:
0% ±
Excel 2007;2010;2016
может правильно)Код
=ЕСЛИОШИБКА(ИНДЕКС(список!B$16:B$31;НАИМЕНЬШИЙ(ЕСЛИ(список!$G$16:$G$31<>"";СТРОКА(список!$B$16:$B$31)-15);СТРОКА(A1)));"")
формула массива. вводится Ctrl Shift Enter
может правильно)Код
=ЕСЛИОШИБКА(ИНДЕКС(список!B$16:B$31;НАИМЕНЬШИЙ(ЕСЛИ(список!$G$16:$G$31<>"";СТРОКА(список!$B$16:$B$31)-15);СТРОКА(A1)));"")
формула массива. вводится Ctrl Shift Enter китин
К сообщению приложен файл:
BBC.xlsx
(18.0 Kb)
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение может правильно)Код
=ЕСЛИОШИБКА(ИНДЕКС(список!B$16:B$31;НАИМЕНЬШИЙ(ЕСЛИ(список!$G$16:$G$31<>"";СТРОКА(список!$B$16:$B$31)-15);СТРОКА(A1)));"")
формула массива. вводится Ctrl Shift Enter Автор - китин Дата добавления - 16.05.2024 в 12:44
BBC
Дата: Четверг, 16.05.2024, 12:53 |
Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
0
±
Замечаний:
0% ±
Excel LTSC
пробую все варианты
Ответить
Сообщение пробую все варианты Автор - BBC Дата добавления - 16.05.2024 в 12:53
BBC
Дата: Четверг, 16.05.2024, 13:02 |
Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
0
±
Замечаний:
0% ±
Excel LTSC
Работает, но тогда вручную название списка нужно менять.
Работает, но тогда вручную название списка нужно менять.BBC
Ответить
Сообщение Работает, но тогда вручную название списка нужно менять.Автор - BBC Дата добавления - 16.05.2024 в 13:02
BBC
Дата: Четверг, 16.05.2024, 13:04 |
Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
0
±
Замечаний:
0% ±
Excel LTSC
Добавляю сотрудников не первом листе, на втором ничего не меняется. Закрывал файл, открыл, ничего не изменилось. Может, что не так делаю?
Добавляю сотрудников не первом листе, на втором ничего не меняется. Закрывал файл, открыл, ничего не изменилось. Может, что не так делаю?BBC
Ответить
Сообщение Добавляю сотрудников не первом листе, на втором ничего не меняется. Закрывал файл, открыл, ничего не изменилось. Может, что не так делаю?Автор - BBC Дата добавления - 16.05.2024 в 13:04
Nic70y
Дата: Четверг, 16.05.2024, 14:22 |
Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация:
2369
±
Замечаний:
0% ±
Excel 2010
для выпадающего списка [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a11")) Is Nothing Then a = Right(Target.Value, 1) b = Cells(Rows.Count, "f").End(xlUp).Row If a = "е" Then Range("g15:g" & b).AutoFilter Field:=1, Criteria1:="<>" Else Range("g15:g" & b).AutoFilter Field:=1 End If End If End Sub
[/vba]
для выпадающего списка [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a11")) Is Nothing Then a = Right(Target.Value, 1) b = Cells(Rows.Count, "f").End(xlUp).Row If a = "е" Then Range("g15:g" & b).AutoFilter Field:=1, Criteria1:="<>" Else Range("g15:g" & b).AutoFilter Field:=1 End If End If End Sub
[/vba] Nic70y
К сообщению приложен файл:
69.xlsm
(20.0 Kb)
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Четверг, 16.05.2024, 14:29
Ответить
Сообщение для выпадающего списка [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a11")) Is Nothing Then a = Right(Target.Value, 1) b = Cells(Rows.Count, "f").End(xlUp).Row If a = "е" Then Range("g15:g" & b).AutoFilter Field:=1, Criteria1:="<>" Else Range("g15:g" & b).AutoFilter Field:=1 End If End If End Sub
[/vba] Автор - Nic70y Дата добавления - 16.05.2024 в 14:22
BBC
Дата: Четверг, 16.05.2024, 15:12 |
Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
0
±
Замечаний:
0% ±
Excel LTSC
О, то что надо. Спасибо.BBC
Ответить
Сообщение О, то что надо. Спасибо.Автор - BBC Дата добавления - 16.05.2024 в 15:12