Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/обновление данных с привязкой к текущей дате - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » обновление данных с привязкой к текущей дате (Макросы/Sub)
обновление данных с привязкой к текущей дате
adamm1603 Дата: Вторник, 08.11.2016, 08:30 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени форумчане! Помогите с макросом, суть обновить ячейку, при условии текущей даты, на примере: в строке 1 расположены даты, нужно обновить (скопировать ячейки из J2 в область J3:J18) в столбце, только с текущей датой 10.11.16. Пытался записать макроредактрором, но не получилось(
К сообщению приложен файл: 9519457.xlsx (11.7 Kb)
 
Ответить
СообщениеДоброго времени форумчане! Помогите с макросом, суть обновить ячейку, при условии текущей даты, на примере: в строке 1 расположены даты, нужно обновить (скопировать ячейки из J2 в область J3:J18) в столбце, только с текущей датой 10.11.16. Пытался записать макроредактрором, но не получилось(
Автор - adamm1603
Дата добавления - 08.11.2016 в 08:30
Pelena Дата: Вторник, 08.11.2016, 08:54 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19184
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте. Формулой не подойдёт?
Код
=ЕСЛИ(A$1=СЕГОДНЯ();N3;"")

Если надо оставить и все предыдущие, то <=
К сообщению приложен файл: 6471559.xlsx (11.8 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте. Формулой не подойдёт?
Код
=ЕСЛИ(A$1=СЕГОДНЯ();N3;"")

Если надо оставить и все предыдущие, то <=
Автор - Pelena
Дата добавления - 08.11.2016 в 08:54
adamm1603 Дата: Вторник, 08.11.2016, 08:59 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
попробую
 
Ответить
Сообщениепопробую
Автор - adamm1603
Дата добавления - 08.11.2016 в 08:59
adamm1603 Дата: Вторник, 08.11.2016, 10:57 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
желательно конечно макрос
 
Ответить
Сообщениежелательно конечно макрос
Автор - adamm1603
Дата добавления - 08.11.2016 в 10:57
adamm1603 Дата: Вторник, 08.11.2016, 11:00 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Извиняюсь, опять баг, троят сообщения
 
Ответить
СообщениеИзвиняюсь, опять баг, троят сообщения
Автор - adamm1603
Дата добавления - 08.11.2016 в 11:00
adamm1603 Дата: Вторник, 08.11.2016, 11:06 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Данную тему открыл: http://www.planetaexcel.ru/forum....e701677
 
Ответить
СообщениеДанную тему открыл: http://www.planetaexcel.ru/forum....e701677
Автор - adamm1603
Дата добавления - 08.11.2016 в 11:06
SLAVICK Дата: Вторник, 08.11.2016, 11:32 | Сообщение № 7
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
так пойдет?:
[vba]
Код
Private Sub Workbook_Open()
For Each c In Sheets("Лист1").[a1:k1]
    If CDate(c) = Date Then
        c.Offset(1, 0).Copy 'Копируем ячейку на одну строку ниже заголовка
        Range(c.Offset(2, 0), c.Offset(17, 0)).PasteSpecial xlPasteFormulas 'Вставляем данные в ячейки 2-17строк ниже заголовка
        Exit For
    End If
Next
End Sub
[/vba]
макрос при срабатывает при открытии файла. Смотрит данные в 1-й строке и если находит сегодняшнюю дату - копирует формулу.
К сообщению приложен файл: 9519457.xlsm (17.2 Kb)

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщениетак пойдет?:
[vba]
Код
Private Sub Workbook_Open()
For Each c In Sheets("Лист1").[a1:k1]
    If CDate(c) = Date Then
        c.Offset(1, 0).Copy 'Копируем ячейку на одну строку ниже заголовка
        Range(c.Offset(2, 0), c.Offset(17, 0)).PasteSpecial xlPasteFormulas 'Вставляем данные в ячейки 2-17строк ниже заголовка
        Exit For
    End If
Next
End Sub
[/vba]
макрос при срабатывает при открытии файла. Смотрит данные в 1-й строке и если находит сегодняшнюю дату - копирует формулу.
Автор - SLAVICK
Дата добавления - 08.11.2016 в 11:32
adamm1603 Дата: Вторник, 08.11.2016, 12:20 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Минутку протестирую
 
Ответить
СообщениеМинутку протестирую
Автор - adamm1603
Дата добавления - 08.11.2016 в 12:20
adamm1603 Дата: Вторник, 08.11.2016, 12:33 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
SLAVICK спасибо всё работает, у меня вопрос если я меняю диапазон дат, мне следует изменить [a1:k1], остальное не трогаю?
 
Ответить
СообщениеSLAVICK спасибо всё работает, у меня вопрос если я меняю диапазон дат, мне следует изменить [a1:k1], остальное не трогаю?
Автор - adamm1603
Дата добавления - 08.11.2016 в 12:33
SLAVICK Дата: Вторник, 08.11.2016, 12:39 | Сообщение № 10
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Цитата adamm1603, 08.11.2016 в 12:33, в сообщении № 11
мне следует изменить [a1:k1], остальное не трогаю?

Если формула для копирования сразу под шапкой - да. Пробуйте - получится. ;) .

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Цитата adamm1603, 08.11.2016 в 12:33, в сообщении № 11
мне следует изменить [a1:k1], остальное не трогаю?

Если формула для копирования сразу под шапкой - да. Пробуйте - получится. ;) .
Автор - SLAVICK
Дата добавления - 08.11.2016 в 12:39
adamm1603 Дата: Вторник, 08.11.2016, 13:25 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
SLAVICK всё работает!!! Спасибо!!!
 
Ответить
СообщениеSLAVICK всё работает!!! Спасибо!!!
Автор - adamm1603
Дата добавления - 08.11.2016 в 13:25
adamm1603 Дата: Вторник, 08.11.2016, 15:29 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
SLAVICK, извиняюсь, что сразу не спросил, можете подкорректировать код, после вставки его нужно заменить на значения, пробовал сам вставить код:
[vba]
Код
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
[/vba]
но ничего не вышло
 
Ответить
СообщениеSLAVICK, извиняюсь, что сразу не спросил, можете подкорректировать код, после вставки его нужно заменить на значения, пробовал сам вставить код:
[vba]
Код
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
[/vba]
но ничего не вышло
Автор - adamm1603
Дата добавления - 08.11.2016 в 15:29
SLAVICK Дата: Вторник, 08.11.2016, 18:15 | Сообщение № 13
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Можно так:
[vba]
Код
Private Sub Workbook_Open()
For Each c In Sheets("Лист1").[a1:k1]
    If CDate(c) = Date Then
        c.Offset(1, 0).Copy 'Копируем ячейку на одну строку ниже заголовка
        With Range(c.Offset(2, 0), c.Offset(17, 0))
           .PasteSpecial xlPasteFormulas 'Вставляем данные в ячейки 2-17строк ниже заголовка
            Calculate
           .Copy: .PasteSpecial xlPasteValues
        End With
        Exit For
    End If
Next
End Sub
[/vba]
К сообщению приложен файл: 9519457-1-.xlsm (17.3 Kb)

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеМожно так:
[vba]
Код
Private Sub Workbook_Open()
For Each c In Sheets("Лист1").[a1:k1]
    If CDate(c) = Date Then
        c.Offset(1, 0).Copy 'Копируем ячейку на одну строку ниже заголовка
        With Range(c.Offset(2, 0), c.Offset(17, 0))
           .PasteSpecial xlPasteFormulas 'Вставляем данные в ячейки 2-17строк ниже заголовка
            Calculate
           .Copy: .PasteSpecial xlPasteValues
        End With
        Exit For
    End If
Next
End Sub
[/vba]
Автор - SLAVICK
Дата добавления - 08.11.2016 в 18:15
adamm1603 Дата: Среда, 09.11.2016, 04:50 | Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Ешё раз спасибо
 
Ответить
СообщениеЕшё раз спасибо
Автор - adamm1603
Дата добавления - 09.11.2016 в 04:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » обновление данных с привязкой к текущей дате (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!