Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирование текста с одной страницы на другую нажатием чекбо - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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
 
Ответить
СообщениеПомогите пожалуйста разобраться с данной проблемой. У меня есть 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

Автор - DenD3rty
Дата добавления - 27.09.2018 в 21:49
Pelena Дата: Пятница, 28.09.2018, 09:22 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 13113
Репутация: 2889 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
DenD3rty, оформите код тегами с помощбю кнопки # в режиме правки поста


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеDenD3rty, оформите код тегами с помощбю кнопки # в режиме правки поста

Автор - Pelena
Дата добавления - 28.09.2018 в 09:22
boa Дата: Пятница, 28.09.2018, 11:43 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 27 ±
Замечаний: 0% ±

2013, 365


 
Ответить
Сообщениекросс

Автор - boa
Дата добавления - 28.09.2018 в 11:43
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование текста с одной страницы на другую нажатием чекбо (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!