Поиск значений, подстановка в другую таблицу.

[ukrnarkotik]

Добрый день!
Могли бы вы помочь с советом, пожалуйста.
Есть 2 таблицы: одна сформирована программой, а другая пустая, куда забивать значения,
Я бы хотел сделать макрос, который бы искал названия (например. Бар\Услуги), копировал значения в соседней строке (т.к. там числа) и вставлял в другую таблицу (в ней находил пункты Фито бар\Доп. услуги), тоже в соседнюю строку.
Небольшая проблема ещё в том, что в первой таблице цифровые значения идут с минусом,а он не нужен.
Подскажите, пожалуйста, из чего лепить макрос, я уже обыскал кучу тем, но такого плана (копированием данных со смещением) не нашёл.

Во вложении 2 таблицы. С первой переносить во вторую.

Заранее, спасибо.

[JIeIIIa]

Если минус не нужен, то берите модуль числа.
А вообще посмотрите функции ВПР() и ABS()

[ukrnarkotik]

Спасибо за наводку!))
Вроде бы, нашёл хороший мануал как это сделать, осталось только добавить функцию суммирования некоторых пунктов и вставка в заранее намеченные ячейки.

[ukrnarkotik]

Попробовал, покрутил, но немного не то.
Дело в том, что текстовые названия у таблиц отличаются.
Я хочу сделать макрос, который в строках А1:В25 искал значение "Еда", брал цену "25", которая находится возле "Еда" и вставлял в другую таблицу на другом листе, в значение "Детская еда", заранее найдя этот пункт в А3:В36, например.
Что-то, например
Поиск Лист6 C4:D20 "Продукты" 4-й столбец сумм Поиск Лист6 C4:D20 "Вода" 4-й столбец , в если Лист1 А3:B17 "Закупка" 2-й столбец

[ukrnarkotik]

Нашёл макрос:

Sub sieg()
Dim rr As Range, x
Windows("Книга1").Activate 'переходим к файлу книга 1
x = InputBox("введите искомое значение") 'делаем запрос какое нужно искать значение
Set rr = Cells.Find(What:=x) 'определяем ячейку в которой нужное значение
If Not rr Is Nothing Then 'если нашлось
Windows("Книга2").Activate 'переходим к файлу книга2
Cells(2, 2).Value = rr.Offset(, 2).Value 'вставляем в ячейку с адресом 2,2 нужное значение, которое правее на 2 ячейки от найденной
End If
End Sub


Помогите изменить, пожалуйста, чтоб макрос искал заданное значение в выбранной таблице и выбранном диапазоне, копировал со смещением +4 и вставлял в другую выбранную таблицу с выбранным диапазоном и выбранным значением, со смещением +1 и суммировал, если требуется копировать в одну и ту же ячейку в таблице 2.

Куча похожих макросов есть, но все по-разному написаны и я не могу никак их соеденить.

[Леха1982]

Доброго времени суток!
Подскажите пожалуйста, необходим макрос, который искал бы в строках (их более 1 млн) цифровые значения (например, 30000 руб, 30000 руб.,зарплата 30 т.р.,30 тыс руб,30000 рублей,зарплата 30 тыс.руб.+ пенсия 5000 рублей
) и копировал только цифровые значения в соседнюю ячейку. Я макросам только начинаю учиться, поэтому даже представить не могу с чего начать.
Буду очень благодарен за помощь