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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка текста из отдельного листа при выборе ячейки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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
 
Ответить
СообщениеДоброй ночи. Стоит задача при составлении КП выбрать услугу, где после выбранной услуги будет вставляться весь текст с отдельного листа.
Например, D11 = визуальное обследование, тогда В15 вставляется весь текст с листа "визуальное обследование". Пробовала командой "Если, то", но высвечивается ошибка. Возможно есть более подходящие команды для данной задачи? Подскажите пожалуйста, как лучше сделать? %)

Автор - stasya_vor
Дата добавления - 02.07.2020 в 02:37
Nic70y Дата: Пятница, 03.07.2020, 08:50 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6605
Репутация: 1453 ±
Замечаний: 0% ±

ru13;10;03
я думаю, что нужно сделать соот. список листов,
а также текст на листах подогнать "по формату"
тогда можно так
[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)


Яндекс Деньги 41001841029809
 
Ответить
Сообщениея думаю, что нужно сделать соот. список листов,
а также текст на листах подогнать "по формату"
тогда можно так
[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]

Автор - Nic70y
Дата добавления - 03.07.2020 в 08:50
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставка текста из отдельного листа при выборе ячейки (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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