2 из 2
в текст добавлено 1074 символа

Спасибо огромное vikttur!!!! Всё поучилось, правда с ошибкой 424 но я исправил))) Просто не учёл что код у меня не в форме а в отдельном модуле, но Вы правы он вызывается именно при активации формы)))) А цифра 1 (один) у меня в таблице Excel в 9 столбце)))) в общем получилось у меня вот так и всё работает супер)))))

Sub List_Upd()
Dim aData()
Dim SheetDx1 As Byte, SheetDx2 As Byte
Dim i As Long
    With ThisWorkbook
        If .Sheets(3).Cells(25, 2) = 1 Then
            SheetDx1 = 4: SheetDx2 = 5
        Else
            SheetDx1 = 7: SheetDx2 = 8
        End If

        If .Sheets(SheetDx1).Cells(1, 6) = 2 Then Exit Sub

        With .Sheets(SheetDx2)
            i = .Cells(.Rows.Count, 6).End(xlUp).Row
            aData = .Range(.Cells(2, 5), .Cells(i, 9)).Value
        End With

        Call ChangeList(aData)
    End With
End Sub

Sub ChangeList(aData())
Dim i As Long
    With Форма.ListBox1
        For i = 1 To UBound(aData)
            If aData(i, 5) <> 1 Then
                .AddItem aData(i, 1)
                .List(.ListCount - 1, 1) = aData(i, 2)
                .List(.ListCount - 1, 2) = aData(i, 3)
            End If
        Next i
    End With
End Sub