При установке галочки в ячейку скопировать часть строки на новый лист. При снятии удалить из нового листа эту запись

@Tam · Регистрация: 31.08.2020

Студворк — интернет-сервис помощи студентам

В прайсе галочками отмечаются выбранные позиции, двойным щелчком снимаются галочки. Нужно чтобы при установки галочки часть строки копировалась на лист "Заказ" в следующую пустую строку. При снятии галочки удалялась соответствующая строка из листа "Заказ".
Динамический диапазон не поддерживается.
Не нашла такого примера. Помогите кто может.

Можно дополнить этот код? Или другим способом.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Ставим флажок, если был одиночный щелчок по ячейке
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("F6:F100")) Is Nothing Then
            Application.EnableEvents = False
            Target.Font.Name = "Marlett"
            Target = "a"
            Application.EnableEvents = True
        End If
End Sub
 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Снимаем флажок, если был двойной щелчок по ячейке
    If Not Intersect(Target, Range("F6:F100")) Is Nothing Then
        Application.EnableEvents = False
        Cancel = True
        Target.ClearContents
        Application.EnableEvents = True
    End If
End Sub

@alex270385 · 23.06.2026, 14:46

Все супер! А что буду сам делать? Вы имеете ввиду границы в таблице рисовать?

I can · 23.06.2026, 15:08

Сообщение от alex270385

А что буду сам делать?

Я имею в виду, что вам же не яблоки с малиной нужны, а что-то посерьёзнее. Но для начала и такой макрос подойдёт.

@alex270385 · 23.06.2026, 15:23

Нет, Нет. Все отлично! Принцип работы таблицы тот же будет. Просто увеличится список. Огромнейшее спасибо!

Новые блоги и статьи Все статьи Все блоги /
сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато anaschu 11.07.2026 Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .	Сукцессия 20. Война автоботов. Делаем ставки. Лёд против "пш-пш!". anaschu 11.07.2026 Битва ИИ в ризосфере: Как мы скрестили жесткие ОДУ, закон Фика и «подземный шантаж» Уважаемые коллеги! Хочу поделиться уникальным опытом ведения междисциплинарной компьютерной разработки. Прямо. . .	Сукцессия 19. Какие выводы я сделал из модели? Часть 2.Внутримикоризный стехиометрический буфер и хроно-дискретные зоны экспансии anaschu 11.07.2026 Био-Инженерный Ликбез: Архитектура Модели Ризосферы Математический аппарат моделирования	Сукцессия 18. Какие выводы я сделал из войны грибов с деревьями? Часть 1- рассказ и немного про термины anaschu 11.07.2026 Био-Инженерный Ликбез: Архитектура Модели Ризосферы Математический аппарат моделирования Система ОДУ описывает динамику изменения массы различных компонентов системы во времени. Ключевой. . .
Просветление в 5 секунд kumehtar 10.07.2026 Андрей Веретенников выдал фразу недавно: "Вам не обязательно кем-то себя считать"	Эксперимент с картинкой-обложкой на CodinGame Adler 10.07.2026 Решил на днях провести эксперимент. У меня есть аккаунт на CodinGame, ТОП-3 по РФ среди 2200 участников (в разделе соревнования по программированию ИИ-ботов). Там есть обложка, куда можно влепить. . .	GitDOS: Когда я решил скрестить MS-DOS, GitHub и Claude MaGz GoLd 08.07.2026 Привет, Киберфорум! Хочу поделиться своим проектом, который, надеюсь, вас заинтересует. GitDOS — это веб-приложение, которое позволяет запускать DOS в браузере с тремя крутыми фичами: диски живут в. . .	Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker) anaschu 07.07.2026 Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .

@alex270385 0 / 0 / 0 Регистрация: 21.06.2026 Сообщений: 5
	23.06.2026, 14:46
	Все супер! А что буду сам делать? Вы имеете ввиду границы в таблице рисовать? 0

@alex270385 0 / 0 / 0 Регистрация: 21.06.2026 Сообщений: 5
	23.06.2026, 15:23
	Нет, Нет. Все отлично! Принцип работы таблицы тот же будет. Просто увеличится список. Огромнейшее спасибо! 0