Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

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

Автор Денис Бухаров, 14.04.2013, 00:48

« назад - далее »

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

Приветствую! Очень нужна помощь знатоков!
Суть проблемы: есть таблица в 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

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

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