Задание диапазона пользователем?

[sonata]

Надо реализовать ввод диапазона пользователем,
Не знаю, как сделать так как, чтобы появлялось окошко с кнопкой,
чтобы сослаться на диапазон,который затем должен присвоиться Range1

Код: Выделить всё

InputBox("Укажите диапазон 1)
Set Range1 = workSheet1.Range("диапазон1")

[corgi]

если ты используешь при этом форму то могу кое что подсказать:
есть такой элемент управления refedit он тебе поможет, хотя может его можно как то использовать и без формы.....

[GSerg]

А если форму не используешь, тогда делай так

Дело в том, что есть inputbox VB-шный, а есть экселевский. По умолчанию вызывается VB-шный. Чтобы вызвать экселевский, пиши application.inputbox. Одним из его параметров является тип возвращаемого значения. Установи его равным... эээ... не помню чему, смотри соответствующий энум... и тогда можно будет выделять ячейки, находясь в этом инпутбоксе

[sonata]

Спасибо!

Код: Выделить всё

Set myCell = Application.InputBox(prompt:="Select a cell", Type:=8)

[sonata]

Хотелось бы так же выбирать лист....
Дело в том, что производить сравнение приходится каждый раз
на разных листах...(которые раскрываю из 2-х сводных таблиц)