Корректировка стоимости по производителю в %

[Денис Бухаров]

Приветствую! Очень нужна помощь знатоков!
Суть проблемы: есть таблица в N столбцов и примерно 20т. строк. A-арт. B-описание C- производитель D-цена E-кол-во.
всего производителей около 35-40, раз в несколько дней у 2-3 из них меняется % скидки (от указанной в таблице цены). Очень хотелось бы соорудить макрос, который бы спрашивал инпут боксами название производителя(С) и процент скидки, после чего, отнимал бы указаный процент от цены(D). Но только у указанного производителя.

Двое суток ломаю голову и копаю форумы, ничего похожего не нашел:(
Сам только начинаю изучать VBA и до решения такой задачи самостоятельно, еще очень далеко...

Заранее благодарствую!

[cheshiki1]

вариант от начинающего

Код Выделить Развернуть

Sub a()
   Dim K&
   Dim PR As String
   PR = InputBox("Введие производителя")
   K = InputBox("Введите процент скидки в виде ""10""")
   For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
      If UCase(Range("C" & i).Value) = UCase(PR) Then
      Range("D" & i) = Range("D" & i).Value * (1 - K / 100)
      End If
   Next
End Sub


[Денис Бухаров]

Безмерно благодарен, все работает.