Замена одного значения другим в массиве при помощи формы ввода

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

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

02.04.2020 18:48:07

Добрый день, уважаемые друзья.
Прошу помощи в решении следующей задачи:

Дано:
1. Есть список из 5 деталей с уникальными номерами.
2. Есть форма замены одной (любой) детали на новую с уникальным не повторяющимся номером.

Задача:
При нажатии на кнопку "ОК" в форме "Заменить деталь" найти в диапазоне В2:В6 значение из ячейки В8 и заменить ее на значение из ячейки С2.
Список из 5 деталей остается постоянным.

Всем здоровья!
Спасибо!

Прикрепленные файлы

Пример.xlsm (18.09 КБ)

МатросНаЗебре

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

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

02.04.2020 19:09:36

Код

Sub myReplace()
    With Sheets("Sheet1")
        Dim y As Long
        On Error Resume Next
            y = WorksheetFunction.Match(.Range("B8").Value, .Range("B1:B6"), 0)
        On Error GoTo 0
        If y > 0 Then
            .Cells(y, 2).Value = .Range("C2").Value
        End If
    End With
End Sub

ms041270 Пользователь Сообщений: 33 Регистрация: 09.06.2019	#3 02.04.2020 19:18:48 МатросНаЗебре, БОЛЬШОЕ СПАСИБО!!!!!!!!! ЗДОРОВЬЯ и УДАЧИ!!!