Выпадающий список макросом

[VITA11111]

ПОМОГИТЕ ЛЮДИ ДОБРЫЕ И СНОВА СИНТАКСИС

     If Target.Row = 11 Then
       If Cells(10, Target.Column) = "УДМ" Then
       With iCommandBarPopup.Controls(1)
            .Clear
            Dim aCell As Range, a As Range
            
            Set a = Range(Cells(Sheets("НАПРАВЛЕННОСТЬ ЗАНЯТИЙ").[C1] + 1, 22), Cells("НАПРАВЛЕННОСТЬ ЗАНЯТИЙ").[D1] - 1, 22)
            
            For Each aCell In a
                If Application.IsText(aCell) Then
                   .AddItem Left(aCell, 255)
                End If
            Next
            Dim aPoint As POINTAPI
            GetCursorPos aPoint ''
            With .Parent
                 .Left = aPoint.X
                 .Top = aPoint.Y
                 .ShowPopup
            End With
       End With
       End If
       End If

МАКРОС РАБОТАЕТ,ТОЛЬКО НЕ МОГУ РАЗОБРАТСЯ С СИНТАКСИСОМ ЭТОГО КОДА C1 И D1 ПЕРЕМЕННЫЕ НА ДРУГОМ ЛИСТЕ ПОЛУЧЕННЫЕ ФОРМУЛОЙ СЧЕТА СТРОК

Range(Cells(Sheets("НАПРАВЛЕННОСТЬ ЗАНЯТИЙ").[C1] + 1, 22), Cells("НАПРАВЛЕННОСТЬ ЗАНЯТИЙ").[D1] - 1, 22)

С ЭТИМ КОДОМ РАБОТАЕТ

ЛИСТ18.Range("V83:V120")

[VictorM]

попробуйте написать так

With Sheets("НАПРАВЛЕННОСТЬ ЗАНЯТИЙ")
        Set a = Range(.Cells(C1 + 1, 22), .Cells(D1 - 1, 22))
End With

кстати, никогда бы не догадался, что С1 и D1 переменные, да еще в обрамлении квадратных скобок.

[VITA11111]

попробывал снова ссылается на ошибку

  Set a = Range(.Cells(C1 + 1, 22), .Cells(D1 - 1, 22))

тут проблема такого плана
на листе "направленность занятий" находится диапазон строк в одном столбце куда записываются данные или массив
этот диапазон плавающий в зависимости сколько в него добавили строк
и этот же диапазон и является данными для выпадающего списка на другом листе

[VictorM]

попробывал снова ссылается на ошибку

в таком случае нужен файл-пример
так долго гадать можно

[SAS888]

В ппримере от VictorM перед Range тоже точку нужно поставить.

[Hugo121]

SAS888 - не нужно.

[Hugo121]

Как это может работать, не понимаю...

Range(Cells(Sheets("НАПРАВЛЕННОСТЬ ЗАНЯТИЙ").[C1] + 1, 22), Cells("НАПРАВЛЕННОСТЬ ЗАНЯТИЙ").[D1] - 1, 22)

[VITA11111]

 ЛИСТ18.Range("V43:V80")

ЭТО КОД ОТКУДА БЕРЕТСЯ СПИСОК ДЛЯ ВЫПАДАЮЩЕГО СПИСКА НА ЛИСТЕ 16 ("РАБОЧИЙ ПЛАН") С ПОМОЩЬЮ CommandBar


ЗНАЧЕНИЯ 43 И 80 ЯВЛЯЮТСЯ СТРОКАМИ ОТКУДА НАЧИНАЕТСЯ И ГДЕ ЗАКАНЧИВАЕТСЯ СПИСОК НА ЛИСТЕ 18 ("НАПРАВЛЕННОСТЬ ЗАНЯТИЙ")
ОНИ ДОЛЖНЫ МЕНЯТСЯ , Т.К. В СПИСОК ДОБАВЛЯЕТСЯ ИЛИ УДАЛЯЮТСЯ НАИМЕНОВАНИЯ НА ЛИСТЕ 18 ("НАПРАВЛЕННОСТЬ ЗАНЯТИЙ") СООТВЕТСТВЕННО ПОЛОЖЕНИЕ СТРОК СПИСКА МЕНЯЕТСЯ
ЭТОТ СПИСОК НАИМЕНОВАНИЙ ПОТОМ ОТКРЫВАЕТСЯ В ВЫПАДАЮЩЕМ СПИСКЕ НА ЛИСТЕ 16 ("РАБОЧИЙ ПЛАН")
ОНИ БЕРУТСЯ С ЛИСТА 18 ("НАПРАВЛЕННОСТЬ ЗАНЯТИЙ") В ЯЧЕЙКАХ C1 B D1 КОТОРЫЕ ВЫЧЕСЛЯЮТСЯ ПО ФОРМУЛЕ СЧСТРОК НА ЛИСТЕ 18 ("НАПРАВЛЕННОСТЬ ЗАНЯТИЙ")
? КАК ЖЕ НАПИСАТЬ КОД? КОД НАХОДИТСЯ В МОДУЛЕ ЛИСТА 16 ("РАБОЧИЙ ПЛАН")

[Hugo121]

Стесняюсь спросить - Вы не дальтоник?

[VITA11111]

        If Target.Row = 11 Then
       If Cells(10, Target.Column) = "УДМ" Then
       With iCommandBarPopup.Controls(1)
            .Clear
            Dim aCell As Range
            For Each aCell In лист18.Range("УДМ")
                If Application.IsText(aCell) Then
                   .AddItem Left(aCell, 255)
                End If
            Next
            Dim aPoint As POINTAPI
            GetCursorPos aPoint ''
            With .Parent
                 .Left = aPoint.X
                 .Top = aPoint.Y
                 .ShowPopup
            End With
       End With
       End If
       End If

разобрался
как все просто
взял просто "УДМ" именнованый диапазон который системно меняет количество строк

ВСТАВКИ СТРОКИ В НЕМ
СПАСИБО ВСЕМ