Запись в TextBox

[Вадим12091965]

Всем привет. Помогите решить задачу. В текстбоксе "Артикул" должна быть запись: ШН-1ДР-TextBox41.Text "х" TextBox64.Text "х" TextBox63.Text - ComboBox113.Value

При вводе значений в текстбоксы 41, 64, 63 и выбора из комбобокса получится атрикул типа: ШН-1ДР-600х300х720-П
Мне это не одолеть точно.
Заранее спасибо.

[alex77755]

 Sub АРТИКЮЛ()
 TextBox46 = "ШН-1ДР-" & TextBox41.Text & "х" & TextBox64.Text & "х" & TextBox63.Text & "-" & ComboBox113.Value
 End Sub

И вызывай процедуру по событиям

Private Sub ComboBox113_Click()
АРТИКЮЛ
End Sub

Private Sub TextBox41_Change()
АРТИКЮЛ
End Sub

Private Sub TextBox63_Change()
АРТИКЮЛ
End Sub

Private Sub TextBox64_Change()
АРТИКЮЛ
End Sub

[Вадим12091965]

Спасибо. Можно еще задам каверзный вопрос? Полученный артикул я отправляю в ячейку:
Лист1.[c65536].End(xlUp).Offset(1) = TextBox46.Text
А как написать код, что-бы в ячейке текст был красным цветом?
Прошу прощения за надоедливость, но я начинаю осваивать VBA. Может посоветуешь приемлимый самоучитель.

[Казанский]

Наверно, можно столбцу С заранее задать красный цвет шрифта?
Если все же нет, то

with Лист1.[c65536].End(xlUp).Offset(1)
    .value = TextBox46.Text
    .font.color = vbRed
end with

Насчет самоучителя: http://www.cyberforum.ru/vba/thread432513.html

[Вадим12091965]

Привет. Использовал код. Запись "покраснела", но не одна, а все до и после, т.е. весь столбец. Я планировал не так: у меня на форме расположены строкой комбобоксы и тектбоксы, после их заполнения нажимаю кнопку и данные уходят на Лист1 и заполняют верхнюю свободную строку. Но есть на форме 3 аналогичных строки из комбобоксов и текстбоксов. TextBox49 в этой строке формирует артикул. Именно эта запись планировалась, приходя в свободную верхнюю ячейку, "покраснеть". Может объяснил сумбурно, но как-то так.

[Вадим12091965]

Добавлю, может поможет.
Private Sub CommandButton23_Click()
Лист1.[b65536].End(xlUp).Offset(1) = ComboBox49.Value
Лист1.[c65536].End(xlUp).Offset(1) = TextBox229.Text
Лист1.[d65536].End(xlUp).Offset(1) = ComboBox48.Value
Лист1.[a65536].End(xlUp).Offset(1) = TextBox46.Text
Лист1.[E65536].End(xlUp).Offset(1) = ComboBox25.Value
End Sub
В этом коде для кнопки можно ли задать для TextBox46.Text красный цвет?