Добрый день, подскажите. Можно ли как нибудь воплатить =) Есть Лист1 и Лист2 Ячейка А1, А2, А3 сделать на каждую ячейку галки (флажок) и прикрепить макрос который привязан к кнопке (копирует столбец А1 на лист2) Пример если поставить флажок на А1 и А3 и нажать кнопку, макрос выделит по очереди строчки где установлен флажок и поочереди вставит на Лист2. Тоесть сначало выделит строчку 1 вставит в лист2 потом выделит строчку 3 вставит на лист2 (поверх)
Добрый день, подскажите. Можно ли как нибудь воплатить =) Есть Лист1 и Лист2 Ячейка А1, А2, А3 сделать на каждую ячейку галки (флажок) и прикрепить макрос который привязан к кнопке (копирует столбец А1 на лист2) Пример если поставить флажок на А1 и А3 и нажать кнопку, макрос выделит по очереди строчки где установлен флажок и поочереди вставит на Лист2. Тоесть сначало выделит строчку 1 вставит в лист2 потом выделит строчку 3 вставит на лист2 (поверх)Dersarius
Да все верно всегда вставлять в строчку 1 Поверх. Есть большой макрос он вставляет в лист 2 строчку которая полность выделена из лист 1 и сохраняет отдельно лист2 в папку. На листе1 много данных построчкам, приходится выделять руками строчку нажимать кнопку и т.д. с разными строчками.
Да все верно всегда вставлять в строчку 1 Поверх. Есть большой макрос он вставляет в лист 2 строчку которая полность выделена из лист 1 и сохраняет отдельно лист2 в папку. На листе1 много данных построчкам, приходится выделять руками строчку нажимать кнопку и т.д. с разными строчками.Dersarius
Сообщение отредактировал Dersarius - Суббота, 29.02.2020, 12:19
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell.Column = 1 Then If ActiveCell = "" Then ActiveCell = "a" Else ActiveCell = "" End If Cancel = True End If End Sub
[/vba] двойным кликом по ячейке столбца А проставляется/снимается галка обратите внимание на шрифт = Marlett вместо Вашего макроса: [vba]
Код
Sub Макрос3() u = Cells(Rows.Count, 1).End(xlUp).Row For Each c In Range("a1:a" & u) If c = "a" Then Rows(c.Row).Copy Sheets("Лист2").Range("a1") 'тут остальной макрос End If Next End Sub
[/vba]
предложу такой вариант: в модуль листа [vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell.Column = 1 Then If ActiveCell = "" Then ActiveCell = "a" Else ActiveCell = "" End If Cancel = True End If End Sub
[/vba] двойным кликом по ячейке столбца А проставляется/снимается галка обратите внимание на шрифт = Marlett вместо Вашего макроса: [vba]
Код
Sub Макрос3() u = Cells(Rows.Count, 1).End(xlUp).Row For Each c In Range("a1:a" & u) If c = "a" Then Rows(c.Row).Copy Sheets("Лист2").Range("a1") 'тут остальной макрос End If Next End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
