Добрый день,коллеги. Такая задача : есть файл эксель в котором куча компаний каждая компания в отдельном листе. необходимо что бы на титульном листе выпадали требуемые компании которые группируются согласно разделенным группам. к примеру группа 1 компания 1, группа 2 компания 4,5 и т.д. и будет таких групп 4, причем компании будут кочевать из одной группы в другую, а мне надо при выборе группы 1 что бы выдавало название всех компаний которые в настоящий момент стали группой 1 как это сделать? Файлик в приложении
Добрый день,коллеги. Такая задача : есть файл эксель в котором куча компаний каждая компания в отдельном листе. необходимо что бы на титульном листе выпадали требуемые компании которые группируются согласно разделенным группам. к примеру группа 1 компания 1, группа 2 компания 4,5 и т.д. и будет таких групп 4, причем компании будут кочевать из одной группы в другую, а мне надо при выборе группы 1 что бы выдавало название всех компаний которые в настоящий момент стали группой 1 как это сделать? Файлик в приложенииGameower
практически,только у меня компании все будут на разных листах, и надо что бы в ячейче где группа 1 там был выпадающий список с названием групп, а уже при выборе групп ниже строился список уже из этой группы но с названием организаций что входят в этот список, при переносе этой организации в другую группу она помещалась в соответствующую группу
практически,только у меня компании все будут на разных листах, и надо что бы в ячейче где группа 1 там был выпадающий список с названием групп, а уже при выборе групп ниже строился список уже из этой группы но с названием организаций что входят в этот список, при переносе этой организации в другую группу она помещалась в соответствующую группуGameower
это не совсем то но принцип тот что мне нужен. у меня на разных листах будет название организаций, и они будут менять свой атрибут (группа 1,2,3)
это не совсем то но принцип тот что мне нужен. у меня на разных листах будет название организаций, и они будут менять свой атрибут (группа 1,2,3)Gameower
И что? Вы списки связанные создайте, потом хоть сколько угодно меняйте атрибут организаций - списки эти буду меняться автоматически. по крайней мере у меня когда-то (давно использовал) так получалось.
И что? Вы списки связанные создайте, потом хоть сколько угодно меняйте атрибут организаций - списки эти буду меняться автоматически. по крайней мере у меня когда-то (давно использовал) так получалось.Эх_Прорвёмся
детально проглядел, и последняя часть вывода инрформации не так мне нужна, мне надо что бы ниже выводились все компании с нужным атрибутом списком всем сразу, а не выпадающим списком в котором выбрать можно одну компанию. как тогда сделать?
детально проглядел, и последняя часть вывода инрформации не так мне нужна, мне надо что бы ниже выводились все компании с нужным атрибутом списком всем сразу, а не выпадающим списком в котором выбрать можно одну компанию. как тогда сделать?Gameower
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a2:o2]) Is Nothing Then Sheets("Титульный лист").Range("a3:o" & Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents Dim group$: group = Target(1).Value For Each sh In ThisWorkbook.Sheets If sh.Name <> "Титульный лист" Then If LCase(sh.Cells(1, "b")) = LCase(group) Then lr = Sheets("Титульный лист").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Титульный лист").Cells(lr, 1) = sh.Cells(1, "a") ' или ' Sheets("Титульный лист").Cells(lr, 1) = sh.Name End If End If Next sh End If End Sub
[/vba]
Gameower, так подойдет? [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a2:o2]) Is Nothing Then Sheets("Титульный лист").Range("a3:o" & Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents Dim group$: group = Target(1).Value For Each sh In ThisWorkbook.Sheets If sh.Name <> "Титульный лист" Then If LCase(sh.Cells(1, "b")) = LCase(group) Then lr = Sheets("Титульный лист").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Титульный лист").Cells(lr, 1) = sh.Cells(1, "a") ' или ' Sheets("Титульный лист").Cells(lr, 1) = sh.Name End If End If Next sh End If End Sub
можно ли в макрос добавить что бы в ячейке группа был выпадающий список со всеми вариантами групп что бы не вписывать в ячейку группа 1, группа 2 и т.д.
можно ли в макрос добавить что бы в ячейке группа был выпадающий список со всеми вариантами групп что бы не вписывать в ячейку группа 1, группа 2 и т.д.Gameower
Сообщение отредактировал Gameower - Среда, 02.12.2015, 12:18
да я макрос заставил работать, но можно ли в макрос добавить что бы в ячейке группа был выпадающий список со всеми вариантами групп что бы не вписывать в ячейку группа 1, группа 2 и т.д.
да я макрос заставил работать, но можно ли в макрос добавить что бы в ячейке группа был выпадающий список со всеми вариантами групп что бы не вписывать в ячейку группа 1, группа 2 и т.д.Gameower
Вариант с UDF функциями. Вторую можно и не использовать - просто сначала сделал - решил оставить. Кроме того так будет легче сделать сводный список если нужно
Вариант с UDF функциями. Вторую можно и не использовать - просто сначала сделал - решил оставить. Кроме того так будет легче сделать сводный список если нужноSLAVICK