Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Пененос строки умной таблицы на другой лист по условию
 
Здравствуйте,
на одном листе "Отсюда" в "Таблица 1" при условии:
ячейка в столбце "Шапка5" = 0
вырезать текущую строку и "вставлять как значения" (удаляя формулы) в конец "Таблица 2" на другом листе "Сюда".

Как это сделать, подскажите пожалуйста. Перелопатил много форумов, но конкретно подобной задаче не нашёл решения.
Спасибо.
Изменено: samusev - 20 Фев 2017 18:49:21
 
Как-то так
Код
Sub Perenesti()
Application.ScreenUpdating = False
Set Tbl1 = Worksheets("отсюда").ListObjects("Таблица1")
Set Tbl2 = Worksheets("сюда").ListObjects("Таблица2")
    For I = 1 To Tbl1.DataBodyRange.Rows.Count
        If Tbl1.DataBodyRange(I, Tbl1.ListColumns("Шапка5").Index).Text = 0 Then
                If Tbl2.ListRows.Count = 0 Then Tbl2.ListRows.Add AlwaysInsert:=True
            Tbl2.ListRows.Add AlwaysInsert:=True
            Tbl1.ListRows(I).Range.Copy
            Tbl2.ListRows(Tbl2.ListRows.Count - 1).Range.PasteSpecial Paste:=xlPasteValues
            Tbl1.ListRows(I).Range.Delete
        End If
    Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Изменено: Sanja - 20 Фев 2017 23:23:00
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1
Читают тему (гостей: 1)
Наверх