В textbox взять значение из ячейки с ее запросом

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, как кодом (vba excel 2003) после вызова формы с textbox-ом выдать запрос на выбор ячейки с текущего листа, значение из которой (после ее выбора) будет попадать в этот textbox? Далее значение редактируется и возвращается обратно в выбранную ранее ячейку.
Спасибо!

[Казанский]

Используйте элемент управления RefEdit.

[ольгаг]

Сообщение от Казанский

Используйте элемент управления RefEdit.

Спасибо, попробую.

[ольгаг]

Помогите пожалуйста исправить код с использованием textbox:
Процедура "Sub proba" позволяет выбрать ячейку с текущего листа, и после ее выбора открывает форму (forma1) с textbox-ом. Но в этот textbox не попадает значение переменной SelRange1. Как значение из этой переменной можно использовать в другой процедуре (Private Sub UserForm_Initialize)? Спасибо!

Sub proba(Optional x As Boolean)
   Dim SelRange1 As Range
   Dim Response As Variant
   Set SelRange1 = Application.InputBox("Выделите мышкой ячейку:", "Выбор редактируемой ячейки", Type:=8)
   If SelRange1.Column = 4 Then
      forma1.Show
   End If
End Sub

Private Sub UserForm_Initialize()
   Me.TextBox1.Text = SelRange1.Value
End Sub

[Казанский]

Сделайте переменную глобальной: перенесите объявление переменной в начало модуля, а из процедуры уберите. Лучше так

Public SelRange1 As Range

И поставьте галку Tools - Options - Require Variable Declaration. При создании новых модулей редактор будет ставить в начало модуля Option Explicit, и эта опция поможет Вам избежать проблем с видимостью переменных и их неверным написанием.