Флажок, прикрепления макроса

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Флажок, прикрепления макроса (Макросы/Sub)

Dersarius

Дата: Суббота, 29.02.2020, 10:47 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день, подскажите.
Можно ли как нибудь воплатить =)
Есть Лист1 и Лист2
Ячейка А1, А2, А3 сделать на каждую ячейку галки (флажок) и прикрепить макрос который привязан к кнопке (копирует столбец А1 на лист2)
Пример если поставить флажок на А1 и А3 и нажать кнопку, макрос выделит по очереди строчки где установлен флажок и поочереди вставит на Лист2. Тоесть сначало выделит строчку 1 вставит в лист2 потом выделит строчку 3 вставит на лист2 (поверх)

К сообщению приложен файл: 6289245.xlsm (121.7 Kb)

Ответить

Nic70y

Дата: Суббота, 29.02.2020, 12:12 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

Цитата Dersarius, 29.02.2020 в 10:47, в сообщении № 1 ()

(поверх)

что это значит?
в Лист2 всегда вставляется в 1-ю строку? или...?

ЮMoney 41001841029809

Ответить

Dersarius

Дата: Суббота, 29.02.2020, 12:18 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Да все верно всегда вставлять в строчку 1 Поверх.
Есть большой макрос он вставляет в лист 2 строчку которая полность выделена из лист 1 и сохраняет отдельно лист2 в папку. На листе1 много данных построчкам, приходится выделять руками строчку нажимать кнопку и т.д. с разными строчками.

Сообщение отредактировал Dersarius - Суббота, 29.02.2020, 12:19

Ответить

Nic70y

Дата: Суббота, 29.02.2020, 12:29 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

Цитата Dersarius, 29.02.2020 в 12:18, в сообщении № 3 ()

На листе1 много данных построчкам

и на каждую Вы хотите поместить флажок?

ЮMoney 41001841029809

Ответить

Nic70y

Дата: Суббота, 29.02.2020, 12:58 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

предложу такой вариант:
в модуль листа
[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

[/vba]

К сообщению приложен файл: 3899984.xlsm (126.7 Kb)

ЮMoney 41001841029809

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Флажок, прикрепления макроса (Макросы/Sub)

Страница 1 из 1
1