У меня есть несколько элементов, которые надо добавить в разные combobox'ы на разных userform'ах. Каждый раз прописывать одну и туже процедуру не охота. Желательно, чтобы один раз прописать ее, а потом на нее ссылаться при добавлении в определенный combobox.

Вопрос: как это сделать?

Заранее спасибо!!!

Примерчик не помешал бы.

К примеру моя задача.

sub hh
num=inputbox("")
if num=1 then
with userform1.combobox1
.additem("a")
.additem("b")
.additem("c")
end with
userform1.show
else
with userform2.combobox1
.additem("a")
.additem("b")
.additem("c")
end with
userform2.show
end if
end sub

Как видно из примера при любом значении num будут вставляться одни и те же значения, только в разные combobox'ы на разных userform'ах. Как сделать так чтобы, не приходилось каждый раз прописывать эти значения, а лишь сделать ссылку на какую-нибудь скажем процедуру?

не понял я предыдущий код.

постараюсь объяснить задачу проще.

как сделать так, чтобы если в inputbox вставить значение 1, то определенные значения (a, b, c) были вставлены в userform 1 .combobox1, а если в inputbox, вставить число 2, то значения (опять же a, b, c) будут вставлены в userform 2 .combobox1

Вот это то, что надо...Огромнейшее спасибо всем...FAndrew - тебе отдельный респект...Выручил

А вот новая задачка)))

Теперь хочу, чтобы в различные textbox'ы вставлялась дата сегоднешнего дня. Напримеры предыдущего решения попробовал так:

sub hh
num=inputbox("")
if num=1 then
call InsertInTextBox(userform1.textbox1)
else
call InsertInTextBox(userform2.textbox1)
end if
end sub

Public Sub InsertInTextBox(byref objTextBox As TextBox)
dim cstrdate as string
cstrdate="dd.mm.yyyy"
objTextBox.Text=Format(Now, cstrdate)
end Sub

да чет не работает...ошибка type mismatch((((

call InsertInTextBox(userform1.textbox1) - усли вводишь 1 и call InsertInTextBox(userform1.textbox1) - если вводишь 2

Не вкуриваю о чем речь((((

Может кто-нить подгонит готовый код...Буду очень признателен!!!