Нужно подкорректировать макрос переноса строки на другой лист. Копирование строки выполняется с переносом правил условного форматирования, существующих на листе-источнике. Нужно чтобы копировались только значения. Макрос такой:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 21 And Target.Count = 1 And Target.Cells(1) <> "" Then
Target.EntireRow.Cells(1).Resize(, 28).Copy Worksheets("Расчет").Range("a65000").End(xlUp).Offset(1)
Target.EntireRow.Delete
End If
End Sub
Отлично работает. Спасибо. Прошу проверить мои комментарии и дополнить по возможности. Очень надеюсь на дальнейшую помощь.
Код
If Intersect(Target, Me.Range("L3:L100")) Is Nothing Then Exit Sub - отслеживаем изменения в столбце L (диапазон L3:L100)
If Target.Count > 1 Or Target.Row <= 3 Then Exit Sub - если изменились более 1 ячейки, макрос бездействует,
- Or Target.Row <= 3 - вот это не понял
If Target <> "" Then - если ячейка не пуста
rw = Target.Row - не понял
Range("A" & rw & ":N" & rw).Cut - вырезаем диапазон от A до N
Rows("3:3").Insert Shift:=xlDown - задаем сроку, куда будет вставлена вырезанная строка.
Существующая строка смещается вниз
Нужна помощь в создании макроса. Пример таблицы прилагаю. Требуется реализовать различные варианты перемещения строки при установке данных в одной из ячеек этой строки, а именно: 1. При установке данных в столбце Дата 4, строка перемещается вверх таблицы действующего листа 1 в строку 3 (непосредственно после заголовка); 2. При установке данных в столбце Дата 4, строка перемещается вниз таблицы действующего листа 1 после последней заполненной строки (заполненной в строке может быть всего одна любая ячейка); 3. Действие аналогичное №1, только строка перемещается в таблицу листа 2; 4. Действие аналогичное №2, только строка перемещается в таблицу листа 2; 5. При установке данных на листе 1 в столбце Дата 4, часть строки, включающая столбцы A-M копируется на лист 3 вверх таблицы в строку 3 (непосредственно после заголовка). Исходная строка удаляется полностью; 6. При установке данных на листе 1 в столбце Дата 4, часть строки, включающая столбцы A-M копируется на лист 3 после последней заполненной строки (заполненной в строке может быть всего одна любая ячейка). Исходная строка удаляется полностью; После перемещения строка должна выглядеть, как на исходном месте, включая форматирование и отрисовку границ. Заранее благодарен всем, кто сможет помочь.
На листе Планировщик в таблице ячейка ДАТА ОКОНЧАНИЯ должна заполняться после введения начальной даты отпуска и установки количества дней отпуска. ДАТА ОКОНЧАНИЯ также должна учитывать выходные дни, указанные на листе БЛИЖАЙШИЕ ОТПУСКА в таблице ПРАЗДНИЧНЫЕ ДНИ, КОТОРЫЕ... Спасибо.
Прошу помочь в создании макроса. 1. С листа 1 все непустые строки без заголовка скопировать на лист Список в первую пустую строку после заголовка 2. С листа 2 все непустые строки без заголовка скопировать на лист Список в первую пустую строку после строк, скопированных с листа 1. Копировать данные нужно только с отдельных листов книги, например, "Лист1, Лист2" и т.д. В рабочем варианте листов много, копирование данных необходимо только с некоторых.
Не могу разобраться, как копировать, чтобы строки с разных листов в итоговом листе шли последовательно. Спасибо.