Здравствуйте, помогите пожалуйста, нужно написать формулу =ЕСЛИ такого плана: ЕСЛИ А1=1 то "карта" ЕСЛИ А1=2 то "транспондер" ЕСЛИ А1=3 то "телефон"

в одну строку не могу сдеклать формулу ЕСЛИ. Подскажете?

Здравствуйте уважаемые программисты. Мне очень необходимо переименовать файлы чтобы названия файлов стали как названия в ячейках Excell
Пример:
Есть исходная папка с файлами и пустая папка назначения для переименованных файлов.

Нужно по названию в B2 найти файл в папке "Номер карты" и скопировать в папку "Табельный номер" с названием файла как в J2

То есть файл 1.jpg копируется в папку назначения 6 раз с названиями: 1001011.jpg 1001012.jpg 1001021.jpg 1001022.jpg 1001031.jpg 1001032.jpg
Если файла нет, то в ячейке результат проставляется соответствующая запись "нет файла" красным цветом, Если копирование и переименование завершено успешно, то ставится зеленая галочка.
Структуру таблицы я оставил как надо, удалив ненужную информацию.
Если это сложно сделать бесплатно, я готов заплатить. Файлов будет много около 3000шт.
Желательно, чтобы можно было понять

Спасибо всем большое за отзывчивость и ПавлуW в частности. Вы мне очень помогли.

Спасибо всем, попробую что мне лучше подойдёт !!!!!!!!!!!!
Скажите пожалуйста, почему я не могу формулу скопировать в другую ячейку? она как будто живет в той в которой работает, если переношу то сразу стоп и не работает пишет бред всякий. Можете поправить? образец рабочего файла вложил.

Здравствуйте, помогите пожалуйста сделать следующее:
есть текст в ячейке например 254В
надо перенести каждый символ в разные ячейки а букве дать порядковый номер то есть букве В=3
получиться должно следующее: [2]   [5]   [4]   [3]
если сотен и десятков нет, то ноль! например число 17Г будет= 0   1   7   4 в разных ячейках
Как это воплотить а? в файле есть пример от руки а надо автоматом чтобы конвертировал. Это вообще возможно???
Заранее спасибо если поможете!

Спасибо. Получилось!

Скажите пожалуйста, кто сталкивался с таким: нужно вывести на печать область листа макросом, но только на определенный принтер. По умолчанию макрос выводит на печать на последний активный принтер на котором печатался документ екселя. Вручную то можно нажать печать - выбор принтера - отправить, а как макросом это сделать, чтобы с листа отправлялся всегда на один и тот же принтер?
   Range("A1:F77").Select
   Selection.PrintOut Copies:=1
эта команды выводит на принтер который по умолчанию к сожалению.

Спасибо большое. Очень здорово и мало строк в коде!

Подскажите пожалуйста, что-бы этого не писать
Range("J3").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C3;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J4").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C4;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J5").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C5;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J6").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C6;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J7").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C7;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J8").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C8;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J9").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C9;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J10").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C10;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J11").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C11;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J12").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C12;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J13").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C13;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J14").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C14;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J15").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C15;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J16").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C16;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J17").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C17;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J18").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C18;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J19").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C19;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J20").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C20;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J21").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C21;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J22").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C22;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J23").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C23;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J24").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C24;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J25").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C25;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J26").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C26;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J27").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C27;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J28").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C28;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J29").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C29;'БАЗА ДАННЫХ'!B:G;2;0);"""")"
Range("J30").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C30;'БАЗА ДАННЫХ'!B:G;2;0);"""")"

как это сократить до трех строк?

Спасибо, хорошо, что Вы такой умный и подсказали!!!!!!!!

Описываю задачу: есть ячейка в которой значение указывается по формуле: =ЕСЛИОШИБКА(ВПР(C4;'БАЗА ДАННЫХ'!B:G;2;0);"")
и так для каждой строки, строк 100.
Так вот если эта строка корректируется вручную, что иногда необходимо, чтобы значение ячейки опять было с этой формулой.
Я попробовал так: Range("J3").FormulaLocal = "=ЕСЛИОШИБКА(ВПР(C3;'БАЗА ДАННЫХ'!B:G;2;0);"")" - не работает
Хотя если вставить так Range("J3").FormulaLocal = "12345", то вставляется 12345.
Подскажите пожалуйста где ошибка.

Спасибо Евгению, как всегда всё сделал в лучшем виде.

Ничего пока не пришло.

Здравствуйте, Есть текст на листе, цвет шрифта разный, есть чб а есть и других цветов.
Есть VBA форма которая появляется по двойному клику мыши
Так вот, сейчас там текст черно-белый. А мне нужно, что-бы цвет соответствовал тексту в листе.

Есть среди вас те, кто это уже делал? Если знаете как это все прокрутить, то прошу написать цену, так как мне это сейчас очень нужно. Напишите, только если это уже делали раньше. Всем спасибо. Файлы-фото во вложении. Если все хорошо будет, то пришлю рабочий.

Вопрос решен! Спасибо.

Все догадался, спасибо!!!!!!!!!
Sub ArrowClick()Const iPerc = 0.005
With Worksheets("Лист1")
 Select Case Application.Caller
   Case Is = "ArrowDown"
     .Range("B2").Value = .Range("B2").Value - .Range("B1").Value * iPerc
   Case Is = "ArrowUp"
     .Range("B2").Value = .Range("B2").Value + .Range("B1").Value * iPerc
 End Select
End With
End Sub

Логика простая Если в В1 стоит число 1000000, то 0,5% от него будет 5000
Должно быть так: 1000000, 995000, 990000, 985000, 980000 и в большую сторону так же +5000
Вот Ваши значения из макроса: 1000000, 995000, 990025, 985074,88, 980149,51

Ну если в В1 стоит 1000000 то 0,5% это 5000 то есть стрелками я должен больше-меньше делать по 5000р. А сейчас там цифры без логики прибавляются и убавляются. Если В1 будет например 1234567890 то 0,5% от этого числа неизменно должно быть 6172839,45

Спасибо, но есть одно но, получается не 0,5% от 1000000. а каждый раз от остатка. Надо что-бы брал 0,5% от "В1" поможете исправить?

Здравствуйте, помогите пожалуйста сделать макрос для кнопок "ПОНИЖЕНИЕ" и "ПОВЫШЕНИЕ". Такой темы не было, я смотрел если что.
Для аукциона нужны кнопки которые бы от начальной цены отнимали бы 0,5% стоимости, и т.д. в большую и меньшую стороны соответственно.
Нашел тут на форуме как изменять значение на 1. И это работает во всех ячейках. Так мне не надо (

Попробую. Ну в принципе вопрос закрыт, все хорошо с игрой уже. Мир дружба

ZVI и andypetr Спасибо за идею. Теперь игра похожа на игру а не так...... Только когда время выходит выскакивает табличка Game over но в это время все могут читать текст. Надо чтобы текст пропадал сперва а потом табличка Game over.

Теперь вполне реально детям за 10 секунд (проверено) запомнить 5 растений или домов или зверей. а когда текст исчезает повторить их. (только пока нет возможности проверить их ответы. Но это реализуемо с помощью та-дам..... картонных карточек!

Спасибо за крутые идеи. Но все, что вы предлагаете, потом переработать и изменить будет не под силу мне. Вот именно поэтому я и спрашиваю всегда несложные вещи, которые да, являются частью большой задумки. Ведь в дальнейшем мне придется развивать идею. Я же не хочу постоянно вопросы здесь задавать как это..., как то... Еще раз большое спасибо всем, кто помогает развиваться другим.

Вам всё направил. Жду от Вас ответа теперь

Здравствуйте, Мне нужно преобразовать выписку из банка (она стандартная всегда) в умную таблицу, которая для меня удобна. Исходные данные такие:
1. 4 файла оригинала выписки для примера
2. мой уже созданный вручную файл для примера

Техническое задание следующее:
1. Создать файл с макросом из 5 листов с умными таблицами (таблицы назвать 1 КВАРТАЛ, 2 КВАРТАЛ, 3 КВАРТАЛ, 4 КВАРТАЛ
2. 1 лист назвать ТИТУЛЬНЫЙ на нем должны быть 4 красивых кнопки, чтобы загружать 4 файла
3. 2 лист назвать 1 КВАРТАЛ в него попадают только нужные данные из загруженного файла №1
4. 3 лист назвать 2 КВАРТАЛ в него попадают только нужные данные из загруженного файла №2
5. 4 лист назвать 3 КВАРТАЛ в него попадают только нужные данные из загруженного файла №3
6. 5 лист назвать 4 КВАРТАЛ в него попадают только нужные данные из загруженного файла №4
7. Соблюдать форматирование ячеек, высоту, ширину, формат данных, размер шрифта, центровка текста в ячейке

Возможность за разумные деньги в будущем модернизировать и улучшать проект файла.

Я вижу решение так: из загруженного файла в отформатированную умную таблицу берутся только нужные данные

Взаимодействие предлагаю следующее: Вы оцениваете возможность это сделать и говорите сумму, если "по-рукам" то сотрудничаем.

Что не допустимо: нельзя создавать бессмысленные и тем более скрытые строки и ячейки для временных расчетов. Все должно быть открыто и на виду, и только по-делу. Надеюсь найти заинтересованных людей. Спасибо за внимание.

Файлы пока прикрепить не могу (думаю дам в личной переписке. там все-таки туда-сюда оплаты всякие)

Уважаемый программист, Вы кроме совета сделать кнопку пересчета формулы ничего больше  не предложили. Все смотрят на решение по-своему. Я же попросил что мне нужно. А Вы альтернативу мне... Задумка такая: при нажатии кнопки - появляются случайные слова, потом исчезают через 10 секунд. Что формула будет пересчитывать, если ячейки к тому времени будут очищены?

Спасибо за помощь, но у меня программа вообще висит 10 секунд крутится кружок у мышки и я подумал что Excell вообще завис!

Вот черновик того над чем тружусь и чем мне помогли тоже смотрите. Можете поиграть тоже с детьми, это интересно! Макрос "очистить" теперь очищает каждые 10 секунд и я не знаю как его расциклить. Спросить даже боюсь, так как опять полетят усмешки. Сижу с утра смотрю в интернете, видео и т.д.

Спасибо всем, кто помог, а кто смеется, так я спрашиваю: а тут что сложные вопросы надо задавать? Ну да, я не знаю программирования, и из того что мне присылают в помощь, я и изобретаю велосипед. Так что это ваш велосипед господа. И чем проще код, тем лучше. А Application.Wait Now + TimeValue("00:00:10") она кстати вообще тормозит весь Excell  а не только макрос ставит на паузу.