Есть список дней рождений работников в Excel.
Есть код, который после ввода данных в текстбоксы(день и месяц рождения) должен искать совпадающие результаты и выводить в ещё один текст бокс. Но находит он только ПОСЛЕДНЕГО в списке сотрудника, а остальных с такими же данными( день и месяц рождения) пропускает(или перезаписывает - не знаю...). Подскажите пожалуйста, может что-то неправильное в коде...

Private Sub CommandButton3_Click()

Dim Prizv As String
Dim Imya As String
Dim Pobat As String
Dim Posada As String
Dim Den As Integer
Dim Misyac As String
Dim Rik As Integer
Dim i As Integer
Dim nol As String


nol = " "

For i = 1 To 500 Step 1
Prizv = Cells(i, 3)
Imya = Cells(i, 4)
Pobat = Cells(i, 5)
Posada = Cells(i, 6)
Den = Cells(i, 7)
Misyac = Cells(i, 8)
Rik = Cells(i, 9)


If Den = ComboBox1.Text And Misyac = ComboBox2.Text _
Then TextBox8.Text = Prizv & nol & Imya & nol & Pobat & _
nol & Posada & nol & Den & nol & Misyac & nol & Rik

Next i

Теперь выводит пустую строку и самую последнюю запись, которая нашлась... :(

Прошу прощения, проявил невнимательность! Всё отлично работает!!! :) Спасибо огромное!

Если бы Вы ещё подсказали как этот результат из комбобокса вывести в Word, то я был бы Вам ещё более признателен!!! И даже если нет, то всё равно ещё раз -огромное спасибо :)

Спасибо Вам огромное! Не представляете, как Вы мне помогли! :)

Если можете, помогите ещё в одном - у меня в комбобоксах, после приведённого ниже кода(добавления элементов в комбобокс), возникает проблема:при пролистывании элементов - до 31 и после того как его выбрать, при повторном открытии комбобокса появляются те же эелементы, но уже повторно(во второй раз). то есть - дохожу до 31-го значения, а там после него снова появляются - от 1 до 31 и так бесконечно.... Читал-читал документацию, но ничего похожего с моей проблемой не нашёл :(

Private Sub ComboBox4_Change()
ComboBox4.AddItem " "
ComboBox4.AddItem "1"
ComboBox4.AddItem "2"
ComboBox4.AddItem "3"

--------

ComboBox4.AddItem "30"
ComboBox4.AddItem "31"

End Sub