Всем привет, столкнулся с такой проблемой еженедельно делаю отчёт в который добавляются данные по продажам за новую неделю, порой помимо продаж по уже имеющимся позициям добавляются и новые позиции SKY, соответственно к новым данным по продажам нужно подтянуть через ВПР старые данные с другого листа, при этом важно перенести формат ячейки так как он отображает результативность продаж в той или иной период времени, не могу найти как перенести помимо значения еще и формат самой ячейки, в частности её цвет. Заранее спасибо!
Всем привет, столкнулся с такой проблемой еженедельно делаю отчёт в который добавляются данные по продажам за новую неделю, порой помимо продаж по уже имеющимся позициям добавляются и новые позиции SKY, соответственно к новым данным по продажам нужно подтянуть через ВПР старые данные с другого листа, при этом важно перенести формат ячейки так как он отображает результативность продаж в той или иной период времени, не могу найти как перенести помимо значения еще и формат самой ячейки, в частности её цвет. Заранее спасибо!kirilllukashevich
Sub kirilllukashevich() Sheets("БД").Cells(Application.WorksheetFunction.Match([a2], Sheets("БД").Range("a1:a3"), 0), 1).Copy Range("c2").PasteSpecial End Sub
[/vba]
Да, можно на VBA: [vba]
Код
Sub kirilllukashevich() Sheets("БД").Cells(Application.WorksheetFunction.Match([a2], Sheets("БД").Range("a1:a3"), 0), 1).Copy Range("c2").PasteSpecial End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
