Страницы: 1
RSS
Как в именованную ячейку записывать название бренда
 
Добрый день, просьба помочь с решением задачи: Выбираю бренд из списка. Если выберу какую нибудь ячейку, Например "P10", то могу получить расшифровку сводной таблицы. А надо чтобы в именованную ячейку "ВыборБренд" (желтого цвета) записывалось название бренда, которое находтся на пересечении строки 4  - "названия строк" и колонки активной ячейки.
 
Ну если правильно понял то наверно так:
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B4:U39")) Is Nothing Then
    Cells(1, 2) = Cells(4, Target.Column)
End If
End Sub
в модуль листа ПриростСумм
 
Учитывая, что количество столбцов будет меняться, я бы вторую строчку записал со ссылкой на таблицу:
Код
If Not Intersect(Target, ActiveSheet.PivotTables("СводнаяТаблица1").DataBodyRange) Is Nothing Then
Я не волшебник, я только учусь.
 
Огромное спасибо!! То, что нужно!
Страницы: 1
Наверх