Копирование текста с одной страницы на другую нажатием чекбо

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование текста с одной страницы на другую нажатием чекбо (Макросы/Sub)

DenD3rty

Дата: Четверг, 27.09.2018, 21:49 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 1

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

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

Excel 2016

Помогите пожалуйста разобраться с данной проблемой. У меня есть 2 Листа. На Листе 1 текст с CheckBox. Нужно сделать так, что бы при активации CheckBox, текст, который идет после него, копировался и вставлялся на Лист 2 в одну и ту же ячейку.

У меня получается так, что при нажатии на последующую кнопку затирает предыдущую вставку, как сделать что бы этого не происходило, а было последовательно, один пункт за другим.

Private Sub CheckBox12_Click()

If CheckBox12.Value = True Then

Worksheets("Лист1").Range("B12").Copy Worksheets("Лист2").Range("A23")

Else
CheckBox12.Value = False
Application.CutCopyMode = False
Worksheets("Лист2").Range("A23").ClearContents
End If

End Sub

Private Sub CheckBox11_Click()

If CheckBox11.Value = True Then

Worksheets("Лист1").Range("B11").Copy Worksheets("Лист2").Range("A23")

Else
CheckBox11.Value = False
Application.CutCopyMode = False
Worksheets("Лист2").Range("A23").ClearContents
End If

End Sub