Цикл спуска по столбцу

[RAN.]

Не очень понял, но может в коде кнопки попробовать вставить

MultiPage1.Value  = 0

[Hugo121]

Даа, монстр
У меня так и работатет - в TextBoxe "d.sku" уже должно появится "(2)......" и.т.д
В чём проблема? Когда выкидывает?

[Mjaso]

Сообщение от RAN.

Не очень понял, но может в коде кнопки попробовать вставить

MultiPage1.Value  = 0

Прошу прощения что притормозил - не заметил что 3-тья страница в форуме уже открылась.
Попробовал - всё вроде по старому, перескакивает с "1" на "3" и т.д. НО перестал "вылетать" после первого ввода.

[Mjaso]

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

Даа, монстр
У меня так и работатет - в TextBoxe "d.sku" уже должно появится "(2)......" и.т.д
В чём проблема? Когда выкидывает?

Выкидывает обычно после того как первый раз нажимаю на NextProduct. А потом начиная с "3" и дальше либо два раза "4", либо "5". Сейчас поставил MultiPage1.Value = 0 в код кнопки NextProduct. (то что RAN. посоветовал). Вроде не вылетает теперь
но цифры всё равно не по порядку подаются. Может это у меня с софтом проблема ? Вы в 2003 открывали ?

[Hugo121]

Я в 2007 открывал xlsm. Но долго не тестировал.
А что не по порядку - так может этот кусок дело портит:

If Txt_Page_Main_d_sku = Sheets("List").Range("F2") Then
   Txt_Page_Main_d_sku = Sheets("List").Range("F3")
ElseIf Txt_Page_Main_d_sku = Sheets("List").Range("F3") Then
   Txt_Page_Main_d_sku = Sheets("List").Range("F4")
ElseIf Txt_Page_Main_d_sku = Sheets("List").Range("F4") Then
   Txt_Page_Main_d_sku = Sheets("List").Range("F5")

[IgorGO]

Может это у меня с софтом проблема ?

вот на это грешите в самую последнюю очередь. сосредоточтесь на поиске ошибки в коде, или проблема в данных (читайте ошибка в коде, который не учитывает такой вариант в данных).

[Mjaso]

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

Я в 2007 открывал xlsm. Но долго не тестировал.
А что не по порядку - так может этот кусок дело портит:

If Txt_Page_Main_d_sku = Sheets("List").Range("F2") Then
   Txt_Page_Main_d_sku = Sheets("List").Range("F3")
ElseIf Txt_Page_Main_d_sku = Sheets("List").Range("F3") Then
   Txt_Page_Main_d_sku = Sheets("List").Range("F4")
ElseIf Txt_Page_Main_d_sku = Sheets("List").Range("F4") Then
   Txt_Page_Main_d_sku = Sheets("List").Range("F5")

Hugo121 А вы говорите зазря благодарил !!! ТОЧНО ! Ошибка была вызвана из-за очередной невнимательности "ламера" (меня). Я же сам и забыл мой старый банальный код удалить. После его удаления - всё работает как по маслу.
Ещё раз всем Большое спасибо и Хорошего вечера !