Добрый день. Прошу подсказку. При выводе на печать утолщенная линия границ для меня слишком жирная. Есть ли возможность в настройках самому назначить толщину линий  в пикселях?

Добрый вечер. С последней ячейкой проблем нет; ( lastrow = Cells(Rows.Count, 3).End(xlUp).Row ). А как определить именно первую пустую в заданном диапазоне? Ниже тоже есть значения, но я их не трогаю. Пример прилагаю. Спасибо

Добрый вечер. Нашел нужный мне макрос ВПР Юрия М, который не трогает заполненные ячейки. А можно ли его дополнить возможностью прохода по нескольким колонкам? Сам пробовал но ничего не получилось.Файл прилагаю. Спасибо Всем за внимание

Добрый день. Есть книга с  шрифтом Times New Roman с другого компа. У меня основной - Arial. Вроде все везде поменял, но когда выполняешь "Очистить ВСЁ", снова вылезает Times New Roman. Как избавиться от этой напасти?

Добрый день. На листе есть поле со списком ActiveX. Можно ли присвоить переменной в макросе выбранное из списка значение непосредственно из поля? Если да, подскажите как. Не смог найти нигде ответ. Спасибо

Добрый день. Подскажите пожалуйста. Есть таблица с колонками. В первой ячейке название колонки. На другом листе выпадающий список с названиями. Как определить номер колонки таблицы по значению выпадающего списка макросом?

Добрый вечер. Не по зубам сложные формулы, обращаюсь за помощью к Вам.Выбираю через зависимые списки нужную операцию и оборудование из базы. Надо формулой подставить нужное значение. В примере находятся в желтых ячейках. Желательно чтобы при незавершенном поиске оборудования в желтой ячейке было бы типа ЛОЖЬ или Н/Д, чтобы не попало неверное значение.Ну и чтобы была возможность копирования вниз. Списки до конца пока не стал доделывать пока нет формулы. Спасибо

Добрый день. Пробовал написать макрос, который бы напоминал о сохранении открытой книги через определенный отрезок времени.
Но что-то получилось не очень (а скорей никак). Как Хотел: При открытии книги запускается таймер. Это я сделал в макросе книги. Далее через N минут выскакивает один раз предложение сохранить изменения или отклонить. И повторять цикл, пока не закрою книгу. С этим кодом получается только 1-2 цикла, а затем сообщение выскакивает постоянно. Как надо правильно? Надеюсь на помощь. Спасибо

Добрый вечер. Вроде не сложная задача, но ничего не выходит. Надо скопировать значения диапазона и вставить на другой лист в первую пустую строку. Но ничего не получается. Роюсь уже пол дня повсюду, и с переменными и всяко. Пожалуйста, подскажите правильное решение. Пример прилагаю

Добрый вечер. Есть таблица с данными .  Итоговые значения считает макрос. Возможно ли изменить макрос так, чтобы при изменении значения данных в любой ячейке таблицы автоматом , без кнопки пересчитывалась итоговая таблица (как при использовании формул)?

Добрый Всем день. Не нахожу решения проблемы со сводной таблицей. Есть несложная сводная из трех диапазонов. По ходу надо вырезать данные из диапазона на листе "Производство" и вставить в лист "Отгрузка", пустые строки удалить. Далее обновляю сводную и вижу, что поле "Пр-во" пропало, а в мастере диапазон изменился. Все попытки избавиться не помогают. В чем проблема и как решить? Очень надеюсь на Вашу помощь. Эта сводная весь день в работе и обновляется много раз. Когда работали в 2003, проблем не было. Перешли на 2010 и кирдык. Пример прилагаю

Нашел в архиве нужный макрос от Юрия М

http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=23541&MID=206538&tags=&q=список+по+цвету+заливки




Но обратил внимание, что он не реагирует на цвет, если использовалось условное форматирование. Это действительно так или я где-то неправ?

Добрый день. И снова к Вам за помощью. В счетах 1С данные в объединенных ячейках и копировать их не очень удобно. Пробовал сам сделать макрос, потратил кучу времени, но ничего путного не получил. Все равно через промежуточные вставки данных. А время поджимает. Может, поможете? Пример прилагаю.

Всем день добрый. В прилагаемом файле два кода по структуре ничем не отличаются. Но в листе "Справочник" проблем нет, а в листе "Сводная" умножение не идет. Где собака зарыта?

Добрый вечер. Почти справился благодаря Вам с задачей. Не смог разобраться с типами переменных. Надо перемножить два значения, одно из которых дробное. Тип Val не проходит. Cvar() и Cdbl() вроде работают, но при этом другие вроде не связанные значения работают через строчку. Перерыл уже кучу всего по преобразованию.типов, но везде общие фразы. Как же все таки надо сделать правильно? Очень прошу, помогите. Вроде в файлах проблема понятна. На листе "счета" Забиваю изделия. В примере просто скопировал с "БД". Дальше вычисляется, какие заготовки нужны и сколько. В "БД" будет около 40000 изделий

Добрый вечер. И снова к Вам за помощью. Вроде и тема как Вы говорите избитая, а понять не могу. Есть про уникальные из диапазонов, а как в моём случае, не нашел нигде. Пример прилагаю. В столбцах списков 1-3 последние строки неизвестны, и разрываются пустыми ячейками.Но полагаю, не более двухсот. Как их собрать в одну колонку не формулами, с помощью VBA? Спасибо

Добрый вечер. Собрал вот такую процедуру:
           
  Private Sub CommandButton1_Click()
   СтрокаСчета = 3
   Do While Sheets("Счета").Cells(СтрокаСчета, 2) <> ""
       Sheets("Счета").Rows(СтрокаСчета).Select
        If Sheets("Счета").Cells(СтрокаСчета, 2).Interior.Color = RGB(255, 255, 255) Then
           Артикул = Sheets("Счета").Cells(СтрокаСчета, 1)
           СтрокаБД = 3
           Do While Sheets("БД").Cells(СтрокаБД, 1) <> ""
               If Sheets("БД").Cells(СтрокаБД, 3) = Артикул Then
                   Sheets("Счета").Cells(СтрокаСчета, 5) = Sheets("БД").Cells(СтрокаБД, 13)                    
                   Sheets("Счета").Cells(СтрокаСчета, 10) = Sheets("БД").Cells(СтрокаБД, 10)                    
                   Sheets("Счета").Cells(СтрокаСчета, 11) = Sheets("Счета").Cells(СтрокаСчета, 4) * 2
                   Exit Do
               End If
               СтрокаБД = СтрокаБД + 1
           Loop
       End If
       СтрокаСчета = СтрокаСчета + 1
   Loop
End Sub

при умножении: Sheets("Счета").Cells(СтрокаСчета, 11) = Sheets("Счета").Cells(СтрокаСчета, 4) * 2 все нормально.Но мне надо перемножить значения Sheets("Счета").Cells(СтрокаСчета, 4) и Sheets("Счета").Cells(СтрокаСчета, 10). А так не работает.
Пожалуйста подскажите как надо правильно.
И еще: Как правильно обнулить ячейки на листе "Счета" со строки 3 в столбцах 5-12 в этом коде перед запуском?
Вообще-то такая структура кода работает довольно медленно. Почему?

Добрый день. Может вопрос глупый, но все таки задам. Есть диапазон ячеек. Можно ли выделить его по одному нажатию в границах диапазона или верхней левой ячейки? Что-то нигде такой темы не нашел

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

Всем добрый день. Если кому не трудно, прошу помочь: Есть несколько счетов, в которых повторяются изделия в производство. В приложенном примере при помощи транспонирования и формул преобразовал в горизонтальный ряд. Как можно сделать нужную вертикальную таблицу без промежуточных вычислений нажатием одной кнопки? Консолидация не помогает - суммирует и артикулы. В написании макросов я профан. Этим надо заниматься постоянно, а я сталкиваюсь с ними крайне редко. Могу только использовать их в работе. Заранее спасибо.

Если кого не затруднит, прошу помочь: При помощи  VLOOKUP2 нахожу артикул на листе и выбираю значения соседних столбцов. Как надо изменить формулу для поиска артикула на всех листах каталога?

Вот ещё вопрос: При добавлении кнопок на быструю панель часть из них имеет одинаковый вид. Насколько сложно изменить вид кнопки? Вроде раньше эта функция была доступна, а в 2010 уже нет. Последнее обсуждение нашел  с датой 2010 года.

Есть  таблица с большим количеством столбцов. Можно ли скрывать и открывать их по выбору из выпадающего списка?