Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Копирование только значений
 
Да пробовал я, не получилось. Предполагал, что решение очень простое, но ума не хватило. Спасибо!
Изменено: Victorrr72 - 23.11.2021 11:59:02
Копирование только значений
 
Нужно подкорректировать макрос переноса строки на другой лист. Копирование строки выполняется с переносом правил условного форматирования, существующих на листе-источнике. Нужно чтобы копировались только значения. Макрос такой:
Код
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 - задаем сроку, куда будет вставлена вырезанная строка. 
                                                          Существующая строка смещается вниз   
 
Изменено: vikttur - 23.08.2021 19:59:58
Требуется реализовать различные варианты перемещения строки при установке данных в одной из ячеек
 
Не понял вопроса. По моему, я указал. Всего 6 вариантов, 1 вверх, 2 вниз  и т.д
Изменено: Victorrr72 - 22.08.2021 18:27:18
Требуется реализовать различные варианты перемещения строки при установке данных в одной из ячеек
 
Нужна помощь в создании макроса. Пример таблицы прилагаю.
Требуется реализовать различные варианты перемещения строки при установке данных в одной из ячеек этой строки, а именно:
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 после последней заполненной строки (заполненной в строке может быть всего одна любая ячейка). Исходная строка удаляется полностью;
После перемещения строка должна выглядеть, как на исходном месте, включая форматирование и отрисовку границ.
Заранее благодарен всем, кто сможет помочь.
Изменено: vikttur - 23.08.2021 09:21:21
Таблица отпусков: ДАТА ОКОНЧАНИЯ должна заполняться после введения начальной даты отпуска и с учетом выходых
 
На листе Планировщик в таблице ячейка ДАТА ОКОНЧАНИЯ должна заполняться после введения начальной даты отпуска и установки количества дней отпуска. ДАТА ОКОНЧАНИЯ также должна учитывать выходные дни, указанные на листе БЛИЖАЙШИЕ ОТПУСКА в таблице ПРАЗДНИЧНЫЕ ДНИ, КОТОРЫЕ... Спасибо.
Изменено: Victorrr72 - 03.11.2018 01:02:54
Макрос для копирования строк с нескольких листов в новый
 
Anchoret,

Отлично работает. Большое спасибо (за комментарии особенно).
Макрос для копирования строк с нескольких листов в новый
 
Прошу помочь в создании макроса.
1. С листа 1 все непустые строки без заголовка скопировать на лист Список в первую пустую строку после заголовка
2. С листа 2 все непустые строки без заголовка скопировать на лист Список в первую пустую строку после строк, скопированных с листа 1.
Копировать данные нужно только с отдельных листов книги, например, "Лист1, Лист2" и т.д.
В рабочем варианте листов много, копирование данных необходимо только с некоторых.

Не могу разобраться, как копировать, чтобы строки с разных листов в итоговом листе шли последовательно.
Спасибо.
Страницы: 1
Наверх