Проблема с нумерацией

[manula]

Здравствуйте уважаемые коллеги, не могли бы вы мне помочь с решением моей проблемы, суть в том, что у меня есть два поля "Код товара" и "№ периода", а так же есть форма, когда я ввожу на форме код товара, то он должен сравнить с теми кодами которые находятся на листе и в случае нахождения такого кода запомнить его максимальный период и продолжить нумерацию периода в TextBox2.
Для наглядности все будет понятно в книге вложенной ниже.

[Step_UA]

Доброго, один из вариантов

[manula]

Уважаемый Step_UA а не могли бы подправить предложенный вариант для вновь приложенной книги, я попробовал сам подкорректировать ну у меня не получилось, еще раз вам огромное спасибо!

[staniiislav]

можно еще так:

Dim rng As Range

Private Sub TextBox1_Change()
        Dim rng2 As Range, adr, ii&
        Set rng2 = rng.Find(TextBox1, , xlValues, xlWhole)
        If Not rng2 Is Nothing Then
            adr = rng2.Address
            ii = 0
            Do
                If Cells(rng2.Row, "G") > ii Then ii = Cells(rng2.Row, "G")
                Set rng2 = rng.FindNext(rng2)
            Loop While adr <> rng2.Address
        End If
        If ii > 0 Then TextBox2.Text = ii + 1 Else TextBox2.Text = ""
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 ' Проверка на ввод только цифр
End Sub

Private Sub UserForm_Initialize()
    Set rng = Range("F5:F" & Cells(Rows.Count, "F").End(xlUp).Row)
End Sub

[Step_UA]

Сообщение от manula

... для вновь приложенной книги

Измените инициализацию:

Private Sub UserForm_Initialize()
    Mas = Cells(5, 6).Resize(Cells(Rows.Count, 6).End(xlUp).Row - 4, 2).Value
End Sub

[manula]

Благодарю за помощь коллеги, Вы мне очень помогли. staniiislav вашим методом тоже попробую, в дальнейшем пригодится!