Работа с именным диапазоном

[EducatedFool]

Как проделать это же для другого (не активного) листа? Скажем есть с кодовым именем "Адрес".

Попробуйте так:
Адрес.Range(Адрес.[A2], Адрес.[A2].End(xlDown)) = ""

или так
Адрес.Range(Адрес.[A2], Адрес.[A2].End(xlDown)).ClearContents

[tae1980]

Сообщение от EducatedFool

Попробуйте так:
Адрес.Range(Адрес.[A2], Адрес.[A2].End(xlDown)) = ""
или так
Адрес.Range(Адрес.[A2], Адрес.[A2].End(xlDown)).ClearContents

Спасибо! Обо варианта работают.

[eda]

Можно ли по ячейке определить, входит ли она в какой-нибудь именнованный диапазон? и если да, то можно ли определить название этого диапазона?

[The_Prist]

Сообщение от eda

Можно ли по ячейке определить, входит ли она в какой-нибудь именнованный диапазон? и если да, то можно ли определить название этого диапазона?

Option Explicit

Sub Find_Range_Name()
    Dim rName
    For Each rName In ActiveWorkbook.Names
        If Not Intersect(ActiveCell, Range(rName.Name)) Is Nothing Then
            MsgBox "Эта ячейка входит в диапазон " & rName.Name, vbInformation, "Подсказка"
            Exit For
        End If
    Next rName
End Sub

[eda]

Большое спасибо!
Но возникает ошибка: Method 'Range' of object '_Global' failed

[eda]

Номер 1004.
А можно ли по имени вычислить адресс диапазона?

[The_Prist]

Ну так...Это...У Вас именованные диапзаоны в книге имеются?

[The_Prist]

Проверка на наличие именованных диапазонов и показ адреса.

Option Explicit

Sub Find_Range_Name()
    Dim rName, h
    If ActiveWorkbook.Names.Count = 0 Then MsgBox "Книга не содержит именованных диапазонов!", _
       vbCritical, "Ошибка": Exit Sub
    For Each rName In ActiveWorkbook.Names
        If Not Intersect(ActiveCell, Range(rName.Name)) Is Nothing Then
            MsgBox "Эта ячейка в ходит в диапазон " & rName.Name & vbCrLf _
                 & "Адрес диапазона: " & Range(rName.Name).Address(0, 0), vbInformation, "Подсказка"
            Exit For
        End If
    Next rName
End Sub

[sa672000]

Сообщение от tae1980

Имеем именной диапазон описанный следующем образом:

=СМЕЩ(Лист1!$A$2;0;0;СЧЁТЗ(Лист1!$A$2:$A$3001);1)

То есть возвращаемый диапазон будет изменяться в зависимости от заполнения. Как в VBA:
1. Узнать размер диапазона?
2. Очистить диапазон?

Допустим, указанный диапазон обзывается test
Тогда можно использовать следующий код:
Debug.Print Range("test").Rows.Count ' "Узнаем" размер
Range("test").ClearContents 'Очищаем. Но хорошо этот код будет работать только если значения вводятся подряд, без пропусков.

[eda]

Сообщение от The_Prist

Ну так...Это...У Вас именованные диапзаоны в книге имеются?

Да, точно имеются.

Sub Find_Range_Name()
Dim rName, h
If ActiveWorkbook.names.count = 0 Then MsgBox "Книга не содержит именованных диапазонов!", _
   vbCritical, "Ошибка": Exit Sub
For Each rName In ActiveWorkbook.names
    If Not Intersect(ActiveCell, Range(rName.name)) Is Nothing Then
        MsgBox "Эта ячейка в ходит в диапазон " & rName.name & vbCrLf _
             & "Адрес диапазона: " & Range(rName.name).Address(0, 0), vbInformation, "Подсказка"
        Exit For
    End If
Next rName
End Sub

Но все равно вылетает та же ошибка. На строке: If Not Intersect(ActiveCell, Range(rName.name)) Is Nothing Then