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

Вход

Регистрация

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

 

= Мир MS Excel/Таблица с привязкой по дате - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Таблица с привязкой по дате (Формулы/Formulas)
Таблица с привязкой по дате
one_place Дата: Вторник, 25.01.2022, 08:49 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Доброго дня, магистры экселя :)
Нужна помощь. Есть таблица с именами и колличеством сделанных досок. И есть вторая таблица по дням. Как сделать, что бы данные внесенные сегодня, сохранились в ячейке с датой на сегодня. При изменении данных по доскам у этого человека в следующий день, данные за предыдущую дату не стирались, а сохранялись. Новые вносились на следующий день.
К сообщению приложен файл: 7052909.xlsx(11.8 Kb)


Сообщение отредактировал one_place - Вторник, 25.01.2022, 09:12
 
Ответить
СообщениеДоброго дня, магистры экселя :)
Нужна помощь. Есть таблица с именами и колличеством сделанных досок. И есть вторая таблица по дням. Как сделать, что бы данные внесенные сегодня, сохранились в ячейке с датой на сегодня. При изменении данных по доскам у этого человека в следующий день, данные за предыдущую дату не стирались, а сохранялись. Новые вносились на следующий день.

Автор - one_place
Дата добавления - 25.01.2022 в 08:49
Nic70y Дата: Вторник, 25.01.2022, 10:03 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7731
Репутация: 1856 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_149()
    Application.ScreenUpdating = False
    Dim x As Double
    u = Cells(Rows.Count, "c").End(xlUp).Row
    x = Date
    a = Application.Match(x, Range("1:1"), 0)
    Range("c2:c" & u).Copy Cells(2, a)
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 7052909.xlsm(17.0 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_149()
    Application.ScreenUpdating = False
    Dim x As Double
    u = Cells(Rows.Count, "c").End(xlUp).Row
    x = Date
    a = Application.Match(x, Range("1:1"), 0)
    Range("c2:c" & u).Copy Cells(2, a)
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 25.01.2022 в 10:03
one_place Дата: Вторник, 25.01.2022, 11:15 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Спасибо. Помогло
 
Ответить
СообщениеСпасибо. Помогло

Автор - one_place
Дата добавления - 25.01.2022 в 11:15
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Таблица с привязкой по дате (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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