Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Перенос строк на другие листы по условию
 
Juis,обработчик добавьте и слывы на сливы переименовать бы;)
Перенос строк на другие листы по условию
 
Juis,во вложении
Код
Sub bb()
    Dim wb As Workbook:         Set wb = ThisWorkbook
    Dim wsPIVOT As Worksheet:   Set wsPIVOT = wb.Sheets("Обработка")
    Dim lastRowPIVOT As Integer: lastRowPIVOT = wsPIVOT.Cells(Rows.Count, 1).End(xlUp).Row
    Dim lastRowTarget As Integer
    Application.ScreenUpdating = False
    For i = lastRowPIVOT To 2 Step -1
        lastRowTarget = wb.Sheets(Cells(i, 2).Text).Cells(Rows.Count, 1).End(xlUp).Row
        With wsPIVOT
            .Range(Cells(i, 1), Cells(i, 9)).Copy wb.Sheets(Cells(i, 2).Text).Cells(lastRowTarget + 1, 1)
            .Rows(i).Delete Shift:=xlUp
        End With
    Next i
    Set wb = Nothing
    Set wsPIVOT = Nothing
    Application.ScreenUpdating = True
    MsgBox "ГОТОВО!=)"
End Sub
Выбор значений в ListBox по значению ComboBox
 
aimv,во вложении
группы и листы на отдельный лист лучше вынести, тип настройки. Так для примера на скорую руку набросал
Код
Private Sub ComboBox1_Change()
    ClearList1
    If Len(ComboBox1.Text) > 1 Then
        With ComboBox1
                For j = 1 To .ColumnCount - 1
                    SelectItems (.List(.ListIndex, j))
                Next j
        End With
    End If
End Sub

Private Sub ComboBox1_Enter()
    ComboBox1.DropDown
End Sub

Private Sub UserForm_Initialize()
    With ListBox1
        .Clear
        .MultiSelect = fmMultiSelectMulti
        For i = 1 To Sheets.Count
            .AddItem Sheets(i).Name
        Next
    End With
    With ComboBox1
        .ColumnCount = 4
         .RowSource = Range("A2:D3").Address
    End With
End Sub
Function SelectItems(ByVal strItem As String) As Boolean
With ListBox1
    For i = 0 To .ListCount - 1
        If .List(i) = strItem Then
            .Selected(i) = True
            Exit Function
        End If
    Next i
End With
End Function

Function ClearList1() As Boolean
    With ListBox1
        For i = 0 To .ListCount - 1
            .Selected(i) = False
        Next i
    End With
End Function
Страницы: 1
Наверх