Прокрутка в форме

[and150382]

Добавил колонки в таблице, теперь листание на форме происходит неправильно.
Что нужно изменить в коде?

[and150382]

вот код

Private Sub SpinButton1_SpinUp()

    'Изменяем значение в "myColumn19".
    Me.myColumn19.Value = Me.myColumn19.Value + 1
    
    'Загрузка в форму из Excel-листа строки по
        'номеру из "myColumn19".
    Call Procedure_1
    
End Sub

Private Sub SpinButton1_SpinDown()
    Me.myColumn19.Value = Me.myColumn19.Value - 1
    
    'Изменяем значение в "myColumn19".
    If Me.myColumn19.Value < 1 Then
    Me.myColumn19.Value = 1
    End If
    
    'Загрузка в форму из Excel-листа строки по
        'номеру из "myColumn19".
    Call Procedure_1

End Sub

Private Sub CommandButton5_Click()
    
    'Загрузка в форму из Excel-листа строки по
        'номеру из "myColumn19".
    Call Procedure_1
    
End Sub

Sub Procedure_1()

    'Загрузка в форму из Excel-листа строки по
        'номеру из "myColumn19".
    
    'В константе "myMangling" нужно указать, с какой строки
        'на листе "База" начинаются данные.
    Const myMangling As Long = 9

    Dim myRow As Long
    Dim i As Long
    
    myRow = Me.myColumn19.Value + myMangling
    
    For i = 2 To 17 Step 1
        Me.Controls("myColumn" & i).Value = ActiveSheet.Cells(myRow, i).Value
    Next i
    
End Sub

Но он неправильно вставляет данные в окна формы.

То есть некоторые данные вставляются не в те окошки на форме

[and150382]

Перелистывание предложенное в #14 работает отлично.
Но понадобилось добавить столбцы в таблицу.
Вот уже недели две бьюсь над кодом , но не могу подогнать его. Заносит данные не в те окошки на форме.
Пробовал разобрать код в программе написанной EducatedFool,
но опыта в vba маловато.
Уважаемые программисты, помогите пожалуйста.
Видно мне это пока не по силам.


Во вложении таблица с добавленными колонками.

[and150382]

Вроде подогнал код EducatedFool под себя.
1.Появилась проблема при добавлении данных в уже существующюю строку, перескакивают данные с одного столбца в другой и появляется надпись ЛОЖЬ.

'если такая запись уже есть
        If Not iFoundRng Is Nothing Then
            iResponse = MsgBox("Такой заказ уже существует.Добавить в заказ данные ?" & vbCr & vbCr & "Да - добавить данные в заказ, Нет - добавить данные на новую строку", vbYesNoCancel + vbExclamation, "Внимание!")
            
            If iResponse = vbYes Then
                
                'Заносим данные на лист Excel из формы.
                For i = 2 To 22 Step 1
                
                    'Если в элементе управления есть текст,
                        'то заносим данные на лист Excel.
                    If Me.Controls("myColumn" & i).Value <> "" Then
                        'Символ "_" используется, чтобы переносить текст кода
                            'на следующую строку, чтобы код не выходил за монитор.
                        Sheets(iBazaSht.Name).Cells(iFoundRng.Row, i).Value = _
                            Me.Controls("myColumn" & i).Value
                    End If
                    
                Next i
                  
                'Очистка элементов управления формы от данных.
                For i = 2 To 22 Step 1
                    
                    Me.Controls("myColumn" & i).Value = ""
                    
                Next i
                    
                
                Exit Sub
                
            End If
            If iResponse = vbCancel Then Exit Sub
        End If
        
        
        
        
    With Sheets(iBazaSht.Name)
        iLastRow = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
        .Cells(iLastRow, 2) = Me.myColumn2.Value
        .Cells(iLastRow, 3) = Me.myColumn3.Value

И выдает ошибку
Run-time error '-2147024809 (80070057)':
Could not find the specified object

и подсвечивает

If Me.Controls("myColumn" & i).Value <> "" Then

2. Правой кнопкой нажимаю на листе и не выскакивает меню.

[and150382]

Ну кто-нибудь подскажите что я не правильно делаю

[doober]

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

Ну кто-нибудь подскажите что я не правильно делаю

myColumn19 у вас на форме нет такого контрола,из сообщения ошибки это понятно.

[and150382]

Уважаемые программисты!!!
Помогите кто-нибудь с прокруткой.
Не по силам мне сделать



Всё работает. Спасибо всем. Особенно RAN

[RAN.]

and150382, а не уместнее ли было бы дать ссылку туда, где ответили, нежели выражать отдельное спасибо в теме, где моих ответов нет?

[and150382]

RAN, укажу ссылку завтра. Сейчас с телефона не могу.

[ABA2]

В помощъ тем, кто немагет: http://www.excelworld.ru/forum/10-4527-1