VBA Excel:Работа скрипта до конца таблицы

[student2008]

Добрый день, участники форума! Сейчас делаю в VBA скрипт, он работает, но только на одной строке таблицы. Как сделать, чтобы после выполнения скрипта на одной строке он переходил к следующей до тех пор, пока строки не кончатся?
На всякий случай вот сам скрипт:

Private Sub CommandButton1_Click()
Dim shSheet_1 As Excel.Worksheet, shSheet_2 As Excel.Worksheet
    Dim i As Long, j As Long
    'Даём Excel-листам VBA-имена. Через эти имена
        'будем обращаться к листам.
    Set shSheet_1 = Worksheets(1)
    'Set shSheet_2 = Worksheets(2)
    i = 5
    Do While IsEmpty(shSheet_1.Cells(4, i)) = False
        Select Case shSheet_1.Cells(4, i).Value
        Case "Лекция"
        'MsgBox ("нашли лекцию")
        Select Case shSheet_1.Cells(6, i).Value
        Case "П"
        shSheet_1.Cells(6, i).Value = TextBox1.Value
        Case "О"
        shSheet_1.Cells(6, i).Value = TextBox1.Value - 2
        Case "У"
        shSheet_1.Cells(6, i).Value = TextBox1.Value - 1
        Case "Н"
        shSheet_1.Cells(6, i).Value = 0
          End Select
        Case "Практическая работа"
         MsgBox ("нашли практику")
        Select Case shSheet_1.Cells(6, i).Value
        Case "П"
        shSheet_1.Cells(6, i).Value = TextBox2.Value
        Case "О"
        shSheet_1.Cells(6, i).Value = TextBox2.Value - 2
        Case "У"
        shSheet_1.Cells(6, i).Value = TextBox2.Value - 1
        Case "Н"
        shSheet_1.Cells(6, i).Value = 0
        End Select
        Case "Контрольная работа"
         MsgBox ("нашли КР")
         Select Case shSheet_1.Cells(6, i).Value
        Case "П"
        shSheet_1.Cells(6, i).Value = TextBox3.Value
        Case "О"
        shSheet_1.Cells(6, i).Value = TextBox3.Value - 2
        Case "У"
        shSheet_1.Cells(6, i).Value = TextBox3.Value - 1
        Case "Н"
        shSheet_1.Cells(6, i).Value = 0
        End Select
        Case "Лабораторная работа"
         MsgBox ("нашли Лабу")
         Select Case shSheet_1.Cells(6, i).Value
        Case "П"
        shSheet_1.Cells(6, i).Value = TextBox4.Value
        Case "О"
        shSheet_1.Cells(6, i).Value = TextBox4.Value - 2
        Case "У"
        shSheet_1.Cells(6, i).Value = TextBox4.Value - 1
        Case "Н"
        shSheet_1.Cells(6, i).Value = 0
        End Select
        Case "Семинар"
         MsgBox ("нашли семинар")
         Select Case shSheet_1.Cells(6, i).Value
        Case "П"
        shSheet_1.Cells(6, i).Value = TextBox5.Value
        Case "О"
        shSheet_1.Cells(6, i).Value = TextBox5.Value - 2
        Case "У"
        shSheet_1.Cells(6, i).Value = TextBox5.Value - 1
        Case "Н"
        shSheet_1.Cells(6, i).Value = 0
        End Select
        End Select
        'Увеличиваем переменную "i", чтобы перейти к следующей ячейке.
        i = i + 1
    Loop
End Sub

[Казанский]

У Вас есть цикл по столбцам:

    i = 5
    Do While IsEmpty(shSheet_1.Cells(4, i)) = False
'...
        'Увеличиваем переменную "i", чтобы перейти к следующей ячейке.
        i = i + 1
    Loop

Добавьте аналогичный по строкам.
Если этого объяснения недостаточно - выложите пример в XLS.

[student2008]

Вот файл со скриптом.

[student2008]

То есть получается, нужно создать цикл внутри цикла? Или это обязательно должен быть отдельный цикл?

[DiemonStar]

скорее нужен внешний цикл по строкам...

[student2008]

Попробовал такой вариант:
j = 5
Do While IsEmpty(shSheet_1.Cells(5, j)) = False
i = 5
Do While IsEmpty(shSheet_1.Cells(4, i)) = False
Отладчик ругается на вторую строку.

[student2008]

Честно говоря, не совсем понял про внешний цикл, как примерно он должен выглядеть?

[DiemonStar]

Например, так:

For I = 1 To Rows.Count
  For J = 1 To Columns.Count
    Cells(I,J) = I + J
  Next I
Next J

здесь идет установка значений ячеек для всех строк и столбцов величиной равной номеру строки + номер столбца