Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Перенос количества определенных ячеек на другой лист
 
Здравствуйте, уважаемые форумчане, пожалуйста, подскажите, макрос, который бы перемещал заданное количество ячеек в столбце на другой лист, а после удалял бы указанное количество строк.
Пример, на листе1 в столбце I есть данные, которые нужно переместить на лист2.[F2], но только то количество ячеек, которое указано в ячейке лист2.[C1] и удаляла бы эти строки.
То есть, на лист2.[С1] указано число 4, значит с лист1 перемещеются в лист2.[F2] все 4 ячейки и удаляются 4 строки на первом листе.
 
Если я правильно понял, например, так:
Код
Option Explicit

Sub abc_xyz()
    With Sheets("List2")
        With .Range("F" & .Rows.Count).End(xlUp).Offset(1, 0).Resize(.Range("C1").Value, 1)
            .Value = Sheets("List1").Range("I1:I" & .Parent.Range("C1").Value).Value
        End With
    End With
    With Sheets("List1")
        With .Rows("1:" & Sheets("List2").Range("C1").Value)
            .Delete
        End With
    End With
End Sub
 
ocet p, да всё так, спасибо Вам огромное. Вы гений.
Страницы: 1
Читают тему (гостей: 1)
Наверх