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

Скажите пожалуйста, кто сталкивался с таким: нужно вывести на печать область листа макросом, но только на определенный принтер. По умолчанию макрос выводит на печать на последний активный принтер на котором печатался документ екселя. Вручную то можно нажать печать - выбор принтера - отправить, а как макросом это сделать, чтобы с листа отправлялся всегда на один и тот же принтер?
   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  а не только макрос ставит на паузу.

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

И забыл пропросить еще одно: что-бы по истечении 10 секукнд ячейки бы очищались автоматически, что-бы не выделять и не удалять кнопкой DEL вручную. Спасибо

Скажите пожалуйста, я меняю For r = 2 To 10 на For r = 2 To 50. Но пока в данных нет информации. Так вот, таблица зависает. Так как данные не повторяются и их всего сейчас 15 то можно сделать так, что-бы программа не зависала а пока просто оставляла пустые строки, ну нет данных - значит ничего. Без подвисов

Здравствуйте уважаемые профи. Придумал игру для детей. В ней есть три вида и в каждом виде наименования из пяти пунктов
Нужно сделать так, что-бы в пустой таблице заполнились случайным образом виды а потом названия. Но только если уж выбрался вид животные, то название должно попасться случайо из строк с животными конечно, не ягоды и т.д. Поиогите пожалуйста, так как СЛУЧМЕЖДУ() это не интересно. Дети хотят нажтмать кнопку. Значит нужен макрос. В дальнейшем я скачаю из интернета список животных, стран, растений и т.д. И игра станет интересной. Три пункта и пять названий это для примера конечно.Спасибо. Данные и игра находятся на разных листах обязательно!

Здравствуйте уважаемые программисты. Скажите пожалуйста, вы где научились программировать? Подскажите пожалуйста литературу что-бы я не спрашивал простые вещи, которые оказывается умещаются в 1 строку. Если тут не положено такое спрашивать (не по теме), то буду рад продолжать удивлять вас своими вопросами. Спасибо!