Цикл внутри цикла?

[Number_30]

Скрипт, вижу... было дело)

[Number_30]

Вопрос - а как добавить опцию - если ни одна строка из листбокса не выбрана, и нажимаем на кнопку копировать, то выходило бы сообщение "Выберите данные для копирования".

Пробовал код:

dim test2 as Variant

For lItem = 0 To ListBox1.ListCount - 1
If Me.ListBox1.Selected(lItem) = False Then
test2 = 1
next lItem
end if

if test 2 = 1 then
MsgBox "Выберите данные"
end if
exit sub

не работает.

[Скрипт]

Код не тестировал, поэтому код может содержит какую-нибудь ошибку.

    'Boolean означает, что в переменной могут быть только
        'два слова: True и False.
    Dim myFlag As Boolean
    
    For lItem = 0 To ListBox1.ListCount - 1
        If Me.ListBox1.Selected(lItem) = True Then
            myFlag = True
            'Выходим из цикла, т.к. надо было узнать,
                'есть ли хоть один выбранный элемент.
            Exit For
        End If
    Next lItem
    
    If myFlag = False Then
        MsgBox "Выберите данные", vbExclamation
        Exit Sub
    End If

[Number_30]

Спасибо! Работает как часы!

[Скрипт]

Number_30, свежим взглядом глянул. Нерациональный код в сообщении #13: если много элементов, а первый флажок встречается где-нибудь на тысячной строке, то код потом снова будет всё просматривать.

Логичнее тогда вот так:

    'Boolean означает, что в переменной могут быть только
        'два слова: True и False.
    Dim myFlag As Boolean
    
    For lItem = 0 To ListBox1.ListCount - 1
        If Me.ListBox1.Selected(lItem) = True Then
            'Пометка, что какой-то флажок выбран.
            myFlag = True
            'Действие.
        End If
    Next lItem
    
    If myFlag = False Then
        MsgBox "Выберите данные", vbExclamation
        Exit Sub
    End If

Или для удобства чтения кода - чтобы разграничить операции: одна операция ищет флажки, а другая операция переносит данные:

    Dim myStart As Long
    
    '1. Помещаем в переменную "myStart" число "-1", чтобы
        'потом по этому числу определить - был найден флажок или нет.
    myStart = -1
    
    '2. Поиск флажка.
    For lItem = 0 To ListBox1.ListCount - 1 Step 1
        If Me.ListBox1.Selected(lItem) = True Then
            'Пометка, что какой-то флажок выбран.
            myStart = lItem
            'Первый флажок найден - выходим из цикла
                'по поиску флажков, т.к. надо было найти хотя бы один.
            Exit For
        End If
    Next lItem
    
    '3. Проверка, что есть выбранные флажки.
    If myStart = -1 Then
        MsgBox "Выберите данные", vbExclamation
        Exit Sub
    End If
    
    '4. Работающая часть кода.
    For lItem = myStart To ListBox1.ListCount - 1 Step 1
        If Me.ListBox1.Selected(lItem) = True Then
            'Перенос данных.
        End If
    Next lItem