Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
VBA Перемещение данных между листбоксами, Не получается добавлять выбранные строки из 1 листбокса в другой и обратно
 
Здравствуйте!

Подскажите пожалуйста, что не так в коде. Строки в листбоксы добавляются в зависимости от значения в комбобоксе. Но переместить строки из листбокса 1 во 2 не получается.
Очень буду признательна!
Код
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "MOL2"
UserForm2.ListBox1.RowSource = "_MOL2"

Case "MOL1"
UserForm2.ListBox1.RowSource = "_MOL1"

End Select
End Sub

Private Sub ComboBox2_Change()
Select Case ComboBox2.Value
Case "MOL2"
UserForm2.ListBox2.RowSource = "_MOL2"

Case "MOL1"
UserForm2.ListBox2.RowSource = "_MOL1"

End Select
End Sub


Private Sub UserForm_Initialize()

ComboBox1.List = Array("MOL2", "MOL1")
ComboBox2.List = Array("MOL2", "MOL1")

End Sub

Private Sub ToLeftButton_Click()
    With ListBox2
        Dim itemIndex As Integer
        For itemIndex = .ListCount - 1 To 0 Step -1
            If .Selected(itemIndex) Then
                ListBox1.AddItem .List(itemIndex)
                .RemoveItem itemIndex
                .MultiSelect = fmMultiSelectExtended
            End If
        Next itemIndex
    End With
End Sub



Private Sub ToRightButton_Click()
    With ListBox1
        Dim itemIndex As Integer
        For itemIndex = .ListCount - 1 To 0 Step -1
            If .Selected(itemIndex) Then
                ListBox2.AddItem .List(itemIndex)
                .RemoveItem itemIndex
                .MultiSelect = fmMultiSelectExtended
            End If
        Next itemIndex
    End With
End Sub

Цикл. Переход к следующему условию, если предыдущее не было выполнено
 
Здравствуйте,

подскажите пожалуйста как выйти из цикла если одно из заданных условий не найдено, и перейти к следующему условию.
 
Код
Sub AddLocation ()

Dim Location As String

For i = 3 To 13
     
    Location = Worksheets("Praemisen").Cells(i, 2)
    
    Sheets("Combined").Range("A2:I2" & LastRowColumnA).Autofilter Field:=2, Criteria1:=Location
    Range("A3:C" & LastRowColumnA).SpecialCells(xlCellTypeVisible).Copy
    
             'copy to Temp
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = "Temp"
    Sheets("Temp").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   ....
  Next i
Location это 13 текстовых условий, по каждому из которых фильтруется таблица "Combined" , результат копируется в Temp и проводятся еще несколько операций с данными. Что делать если в таблице Combined нет результатов фильтра и нужно прервать цикл и перейти к следующему критерию.

Спасибо!
Изменено: Nasty621 - 03.04.2020 17:09:42
Страницы: 1
Наверх