Вставка текста из отдельного листа при выборе ячейки

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставка текста из отдельного листа при выборе ячейки (Формулы/Formulas)

stasya_vor

Дата: Четверг, 02.07.2020, 02:37 | Сообщение № 1

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

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

Сообщений: 1

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

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

Excel 2019

Доброй ночи. Стоит задача при составлении КП выбрать услугу, где после выбранной услуги будет вставляться весь текст с отдельного листа.
Например, D11 = визуальное обследование, тогда В15 вставляется весь текст с листа "визуальное обследование". Пробовала командой "Если, то", но высвечивается ошибка. Возможно есть более подходящие команды для данной задачи? Подскажите пожалуйста, как лучше сделать?

К сообщению приложен файл: __01.07.xlsx (20.0 Kb)

Совсем чайник

Сообщение отредактировал stasya_vor - Четверг, 02.07.2020, 02:37

Ответить

Nic70y

Дата: Пятница, 03.07.2020, 08:50 | Сообщение № 2

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

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

Сообщений: 8759

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

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

Excel 2010

я думаю, что нужно сделать соот. список листов,
а также текст на листах подогнать "по формату"
тогда можно так
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D11")) Is Nothing Then
        'очистка старых записей
        u_4 = Cells(Rows.Count, "c").End(xlUp).Row
        Range("b15:c" & u_4).Clear
        'новые
        u_1 = Application.Match(Target, Range("l:l"), 0)        '№ строки выбранного в списке
        u_2 = Range("p" & u_1).Value                            'соот. имя листа
        u_3 = Sheets(u_2).Cells(Rows.Count, "b").End(xlUp).Row  'кол-во заполненных строк на соот. листе
        Sheets(u_2).Range("a1:b" & u_3).Copy Range("b15")       'копирование - вставка
    End If
End Sub

[/vba]

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

ЮMoney 41001841029809

Ответить

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