Поиск значений и вывод статистики

[Maksnazarov]

Надо создать макрос, который выполнял бы следующую функцию, из первого столбца выбираются значения, которые привязаны ко второму столбцу, если условие выполнено, тогда в новом листе (для всех раз выполнения макроса) организуется сводная маленькая табличка... Кол - должен сравниватся с колгейт, ким - кимберли, ну и тд, прайсы большие, нужно учесть, что несколько поставщиков поставляют не только один товар (староженко - только колгейт, остальное прицепом идёт и не учитывается) Тпким - кимберли, тпкол - колгейт, ну и тд, но нужен список исключений, мазманян он на двоих работает, можно ли сделать так, чтобы он не формировался по каждому условию, а только когда оба ( и более) условия сработали (отдельный лист, и выводится должно даже нулевое значение, можно в макросе добавить данные значения, я сам сделаю, просто скажите как вставить условие, или сделайте пример для одного, а я сам размножу как надо) Таких несколько... Это не программа для диплома и фриланса, это просто скрипт на 20-30 строк, сам программист, но слишком давно не занимался этим делом! Да и не силён в VBA, вот на Delphy бы... Но приаттачивать файл, потом делать обработку, затем выгрузку, слишком геморройно!

Прошу прощения, мышка дёрнулась и я выбрал не тот файл, уже поправил!

[EducatedFool]

из первого столбца выбираются значения, которые привязаны ко второму столбцу

где пример файла?
тот файл, что вы прикрепили, похоже, для чего-то другого предназначен

если условие выполнено, тогда в новом листе (для всех раз выполнения макроса) организуется сводная маленькая табличка...

какое условие?
какая сводная?
в файле - ни одной строки кода. Нам все надо сделать «с нуля»???

можно ли сделать так, чтобы он не формировался по каждому условию

сделать можно
как именно - не подскажу, ибо никакой конкретики нет

это просто скрипт на 20-30 строк

что-то мне кажется, что строк будет куда больше...
и вникать в задачу минимум час

сам программист

а вы сами прочитайте, что написали, если программист,
и попробуйте из описания понять, что надо сделать...

Это не программа для диплома и фриланса

а мне вот кажется наоборот
что на фриланс очень даже смахивает
PS: Сам я делать не буду, так что услуги свои не предлагаю

[Maksnazarov]

Уже переприаттачил файл, прошу поглядеть... Уж простите, промазал!

Мой код лучше не читать, ошибка на ошибке, это курам на смех!

[Maksnazarov]

For i = 1 To 20000
Range("R?C1").Select
ActiveCell.FormulaR??C1 = "ТПКолСтороженко"

Надо примерно такое,

For i = 1 To 20000
Range("R?C1").Select
ActiveCell.FormulaR??C1 = "ТПКолСтороженко"
? - тут надо ссылку на ячейку, никак не могу добиться, а из "ТПКолСтороженко" вычленить только ТПКол, то есть 3 больших буквы, потом маленькие, затем сновва большая, и вот с неё обрубается, какие команды использовать? Можно pos не минусовать, просто как найти верхний регистр в VBA? Delphi uppercase и lowercase не катят, да и они всю строку, а не поиск делают......

[Maksnazarov]

Как удалить сообщение, я с одим разобрался, нужна помощь в другом?

[Maksnazarov]

For I = 1 To 200 Step 1
If Cell.FormulaRiC1 = "ТПКолСтороженко" And Cell.FormulaRiC2 = "Колгейт" Then R10C10 = 0

End If
Next I
End Sub
Где ошибка?

[Maksnazarov]

Может кто в скайпе помочь?

[Maksnazarov]

Какую скобку ставить для альтернативной ссылки? Я конспекты со СТЭП-а потерял...

[Maksnazarov]

To EducatedFool , не руби с плеча, ты не знаешь людей, они не знают тебя, просто не отвернись, и будет счастье всем... Я МНОГО забыл из того, чему меня учили 10 лет назад, а вот сейчас нужно, просто в полном вопросе я могу и переборщить, сам пойми, прогер поставит вопрос так, (если забыл сам), что ни один начальник с другим прогером не поймёт, о чём он сказал! Давай в личку дальше, но со всем уважением!

[VictorM]

If Cell.FormulaRiC1 = "ТПКолСтороженко" And Cell.FormulaRiC2 = "Колгейт" Then R10C10 = 0

Где ошибка?

1. FormulaRiC1, FormulaRiC2 - нет такого в VBA.
Пишите FormulaR1C1 или просто Formula
2. Если уж пишете

If Cell.FormulaRiC1 = "ТПКолСтороженко" And Cell.FormulaRiC2 = "Колгейт" Then

End If

то R10C10 = 0 нужно писать в новой строке, типа:

If Cell.FormulaR1C1 = "ТПКолСтороженко" And Cell.FormulaR1C1 = "Колгейт" Then
            R10C10 = 0
        End If

3. Если шаг цикла = 1, Step 1 можно не писать, т.е.:

For i = 1 To 200
'код
Next i

4. ну и так далее и тому подобное. Как Вы сами признали - ошибка на ошибке.

сам программист
Я конспекты со СТЭП-а потерял...

А у меня их никогда и небыло, да и не программист я.
В VBA замечательная справка, да и в инете много справочных ресурсов.
Посмотрите хотя бы вот это или это