Sitizen (Автор тем)

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

Пользователь

Сообщений: 23 Регистрация: 15.12.2019

22.08.2021 19:15:14

Добрый день.

Года полтора назад ваши специалисты помогли... нет, правильно - написали мне макрос, который по сей день нормально работает, за что им (Игорю) большое спасибо.

Сейчас не могу разобраться со следующей функцией.
Итак, две страницы одной книги (две разные таблицы, условно Таб1 и Таб2). В ячейки одной из колонок (условно Ю) Таб1 внесены данные диапазона Я второй таблицы, которая по сути есть прайс с двумя столбцами - название услуги и цена. Хотелось бы чтобы в Таб1 при выборе названия услуги и его ввода в соседней ячейке отражались данные условного диапазона ЯЯ Таб2. Возможно, такие вопросы уже рассматривались, и подобные решения есть у вас в архиве.

Большое спасибо за помощь или ссылку.

Изменено: vikttur - 22.08.2021 23:52:08

Перейти

Почему на листе, защищенном в режиме UserInterfaceOnly, Excel выдает ошибку при попытке макросом поменять значение ячейки?

Sitizen

Пользователь

Сообщений: 23 Регистрация: 15.12.2019

03.01.2020 12:54:56

Добрый день.
При использовании двух макросов выдает Debugger, а именно:

Код

Sub Protect_for_User_Non_for_VBA()
    ActiveSheet.Protect Password:="Jerry", UserInterfaceOnly:=True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
     For Each cell In Target
       If Not Intersect(cell, Range("C:D, F:G, I:J, L:M, O:P, R:S, U:V, X:Y, AA:AB, AD:AE, AG:AH, AJ:AK, AM:AN, AP:AQ, AS:AT, AV:AW, AY:AZ, BB:BC, BE:BF, BH:BI, BK:BL, BN:BO, BQ:BR, BT:BU, BW:BX, BZ:CA, CC:CD, CF:CG")) Is Nothing Then
        If IsEmpty(Target) Then
            Range("B" & cell.Row) = Empty
            Else
                With Range("B" & cell.Row)
                .Value = Date
                End With
            End If
        End If
    Next cell
End Sub

Как это можно исправить?
Спасибо.

Изменено: Sitizen - 05.01.2020 15:36:42

Перейти