Проблема с получением диапазона

[Simbad]

Привет всем!

Sub Макрос3()

Dim rng As Range

Columns("D:D").Select
Range(Selection, Selection.End(xlUp)).Select
Set rng = Selection
MsgBox rng.Address
End Sub

почему то сообщает "$D:$D"

[VictorM]

А что он должен сообщать?
Что написано - то и возвращает.
Для чего у Вас строка Range(Selection, Selection.End(xlUp)).Select ?
Что Вы вообще хотите получить?

[slan]

а что вы ожидали?

вы же выделили весь столбец, вот и получайте весь столбец.

если вам нужно толко занятые в столбце D? то нужно так:

Sub Макрос3()

Dim rng As Range


Set rng = range("d1",cells(rows.count,4).end( xlup))
MsgBox rng.Address
End Sub

и все это на активном листе..

[Simbad]

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

А что он должен сообщать?
Для чего у Вас строка Range(Selection, Selection.End(xlUp)).Select ?
Что Вы вообще хотите получить?

Хочу получить диапазон состоивщий из перый ячейка до последний непустой ячейка столбца D

[VictorM]

Хочу получить диапазон состоивщий из перый ячейка до последний непустой ячейка столбца D

на этот вопрос Вам уже ответили, см. пост выше от slan

[Simbad]

Огромное вам спасибо!

[Simbad]

Для чего у Вас строка Range(Selection, Selection.End(xlUp)).Select ?

Эту строку я получил с помощью Запись макроса. Выделил столбец D запустил Запись макрос и нажимал Shirft+Ctrl+Стрелка Вверх. События оказался удовлетворяющий а макрос нет. Все так и спасибо за помощь...