Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос на копирование с проверкой
 
Доброго дня, необходима ваша помощь с написанием макроса. Из ячейки D14 каждый день по нажатию кнопки должен переноситься % выполнения в строку 11, причём дата должна выставляться в ячейку находящаяся под датой соответствующая дате в ячейке U8.
Изменено: Fae2r - 27 Апр 2015 08:05:00
 
Файл не открывается
Согласие есть продукт при полном непротивлении сторон.
 
перезалил файл
 
Что за кнопка?
Перенести невозможно - это ведь порушит весь механизм, там ведь формула! Да и что будет если перенести формулу...
Вот скопировать значение - это можно.
Код
Sub tt()
    Dim r As Range
    Set r = [am10:bq10].Find(Format(Day([u8]), "00"), , xlValues, xlWhole)
    If Not r Is Nothing Then r.Offset(1) = [d14]
End Sub
 
Hugo, вставлю потом кнопку, при нажатии в диапазоне am11:bq11 должно произвестись сравнение даты из u8 и дат из диапазона am10:bq10 и вставка под эту дату % из ячейки d14.  
У нас диспетчер должен при формировании сводки дать эту кнопку и % записывается в диапазон в 11 строке. Нужно для дальнейшего формирования диаграммы выполнения суточного плана. Я алгоритм придумывал, но с синтаксисом vba у меня пока ещё проблемы:(

Я думал так. Сперва копирование из ячейки d14, далее выбор ячейки из условия равенства даты и плюс 1 строка и вставка

Этот вариант попробовал, подходит, спасибо большое
Изменено: Fae2r - 27 Апр 2015 09:49:41
Страницы: 1
Читают тему (гостей: 1)