Помогите сделать макрос. Кратко функцию не описать.

[bvitaly]

Вообщем имеется прайс лист в нем требуется изменить цены на отдельные группы товаров.
Например.

наименов. Iопт1 I опт2 I опт3
Шурупы.
10 I 10р I 20р I 30р
12 I 10р I 20р I 30р
15 I 10р I 20р I 30р
30 I 10р I 20р I 30р
Гвозди
и.тд
Требуется изменить цену например по шурупам, к примеру на 15, 25 и 35. и остановиться на Гвоздях.

Проблемы.
Позиция в прайсе постоянно меняется, после шурупов может и дюбель например появиться, но их менять не надо.
Помочь может то, что наименование группы выделенно другим цветом.
Т.е необходимо найти ячейку в которой написанно искомое слово поменять цифры в столбцах 2,3 и 4, остановиться на первой строке имеющей цветовое выделение(произвольное).
Сам не смог . Помогите плз.

[Calvin]

Очень похожа эта тема на твою предыдущую............................в принципе все почти тоже самое. Мне кажется, что не стоит вести поиск ячейки, имеющую какую-либо заливку. Поиск нужно вести по значению, которое содержится в шапке, потом всей "подгруппе" изменять цену и останавливаться на следующей шапке, напр. так:

Код: Выделить всё

tovar = InputBox ("Задайте наименование товара")
i=1
Do while Cells(i,0).value<>""
  if Cells(i,0).value=tovar then
   i=i+1
    Do while Cells(i,1).value<>""
     Cells(i,2).value = Cells(i,2).value*1.1 'допустим увеличиваем на 10%
     i=i+1
    Loop
    i=i-1
  end if
i=i+1
Loop


вроде бы так, если я правильно понял