изменять свойство Caption объекта Frame

[segail]

Здравствуйте.
В тестовом примере в зависимости от условия необходимо при клике по Label изменять свойство Caption объекта Frame1.

Public Sub Test()
    Dim i As Integer
    For i = 1 To 444
        If Sheets("Лист1").Cells(i, 24).Value = Sheets("Лист1").[y445].Value Then _
        UserForm1.Frame1.Caption = Sheets("Лист1").Cells(i, 1).Value Else _
        UserForm1.Frame1.Caption = "Параметры"
    Next
End Sub

То есть находим значение столбца 24 по условию
If Sheets("Лист1").Cells(i, 24).Value = Sheets("Лист1").[y445].Value Then
И переходим по строке найденного значения на столбец 1 и выполняем код
UserForm1.Frame1.Caption = Sheets("Лист1").Cells(i, 1).Value Else
Если нет значения в столбце 24 то выполняем код
UserForm1.Frame1.Caption = "Параметры"
В данном примере свойство Caption объекта Frame1 должно быть Test4
Что то не получается…

[nilem]

Добавьте Exit For

Public Sub Test()
    Dim i As Integer
    For i = 1 To 444
        If Sheets("Лист1").Cells(i, 24).Value = Sheets("Лист1").[x445].Value Then
            UserForm1.Frame1.Caption = Sheets("Лист1").Cells(i, 1).Value
            Exit For
        Else
            UserForm1.Frame1.Caption = "Параметры"
        End If
    Next
End Sub

Но лучше было бы использовать Find.

[segail]

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

Добавьте Exit For

Public Sub Test()
    Dim i As Integer
    For i = 1 To 444
        If Sheets("Лист1").Cells(i, 24).Value = Sheets("Лист1").[x445].Value Then
            UserForm1.Frame1.Caption = Sheets("Лист1").Cells(i, 1).Value
            Exit For
        Else
            UserForm1.Frame1.Caption = "Параметры"
        End If
    Next
End Sub

Но лучше было бы использовать Find.

Если нет значения в столбце 24 не срабатывает код после Else…
При таком варианте вроде срабатывает. Сбоев ни каких не будет, впоследствии?

Public Sub Test()
    Dim i As Integer
    For i = 1 To 444
        If Sheets("Лист1").Cells(i, 24).Value <> "" Then
            UserForm1.Frame1.Caption = Sheets("Лист1").Cells(i, 1).Value
            Exit For
        Else
            UserForm1.Frame1.Caption = "Параметры"
        End If
    Next
End Sub

[nilem]

В Х445 стоит сумма =СУММ(X6:X444), т.е.
Sheets("Лист1").Cells(i, 24).Value = Sheets("Лист1").[X445].Value
выполнится при всех пустых в X1:X444 или единственном действительном значении в X1:X444.
При всех пустых цикл завершается на 1-й итерации и Caption назначается из Sheets("Лист1").Cells(1, 1).Value.

Если взять If Sheets("Лист1").Cells(i, 24).Value <> "" Then, то Caption будет соответствовать первой непустой в X1:X444, остальные ячейки из этого диапазона не будут участвовать в сравнении.
Тогда лучше написать:

Public Sub Test()
    Dim i As Integer
    UserForm1.Frame1.Caption = "Параметры" 'это можно установить в свойствах
    For i = 6 To 444
        If Sheets("Лист1").Cells(i, 24).Value <> "" Then
            UserForm1.Frame1.Caption = Sheets("Лист1").Cells(i, 1).Value
            Exit For
        End If
    Next i
End Sub

В общем, нужно определиться с критериями.