TextBox

[Вадим12091965]

Привет. Есть код:
Private Sub ComboBox1_Change()
If ComboBox1.Text = "С 1-й распашной дверью 150*300*720" Then
TextBox19.Tag = 150
TextBox19.Text = 150
TextBox2.Tag = 300
TextBox2.Text = 300
TextBox3.Tag = 720
TextBox3.Text = 720
TextBox4.Tag = 1
TextBox4.Text = 1
TextBox17.Text = "ШН-1ДР"
TextBox18.Text = Лист3.[G4].Value
End If

End Sub
TextBox18 показывает первое значение ячейки Лист3.[G4]. При изменении значения ячейки G4 в текстбоксе нет изменений. Что не так?
Заранее благодарен за помощь.

[IgorGO]

TextBox18 принимает значение из G4 только когда изменилось значение ComboBox1.
Остальные события ему по барабану.

запрограммируйте действия системы на изменения значения на листе лист3

Private Sub Worksheet_Change(ByVal Target as Range)
...

[doober]

TextBox18 показывает первое значение ячейки Лист3.[G4]. При изменении значения ячейки G4 в текстбоксе нет изменений. Что не так?

Можно например так

Private Sub UserForm_Initialize()
TextBox18.ControlSource = "Лист3!G4"
End Sub

[Вадим12091965]

Попробовал, получил ошибку:
Ошибка выполнения '380 '. Не удалось установить свойства. Неверное значение свойства.
Пока поставил кнопку "Обновить"
Private Sub CommandButton2_Click()
If ComboBox1.Text = "С 1-й распашной дверью 150*300*720" Then
TextBox18.Text = Лист3.[G4].Value
End If
If ComboBox1.Text = "С 1-й распашной дверью 200*300*720" Then
TextBox18.Text = Лист3.[G5].Value
End If
End Sub
Так работает, но хотелось-бы без лишних действий.
Спасибо, что помогаете.