есть форма (userform1), в ней combobox, прописанный кодом
- Код: Выделить всё
Private Sub ComboBox3_Enter()
UserForm1.ComboBox3.SetFocus
Worksheets("списки").Activate
Dim Диапазон As String
Dim n As Integer
n = Application.CountA(Range("c:c"))
Диапазон = "c1:c" & CStr(n)
ComboBox3.RowSource = Диапазон
End Sub
работает, при вводе текста предлагает варианты подстановки....
далее из userform1 я вызываю userform3 следующим образом
- Код: Выделить всё
Private Sub TextBox7_Change()
If TextBox7.Value = "0" Then
UserForm3.Show
UserForm3.ComboBox1.SetFocus
.....
End If
End Sub
в userform3 тоже есть combobox'ы прописанные таким же (!!!!) кодом
только одна загвоздка - при вызове userform3 из userform1 при вводе теста в combobox автоподстановка вариантов НЕ работает.
причем если напрямую запустить userform3 отдельно от userform1 - то все ОК
з.ы.
fmMatchEntryFirstLetter прописано и в свойствах бокса, и в UserForm3_Initialize
где искать корни? я в ступоре
