Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If Not Intersect(cell, Range("C2:O1000") Is Nothing Then
With Range("B" & cell.Row)
.Value = Date
End With
End If
Next cell
End Sub

который автоматом вставляет дату в соответсвтующую строку столбца "B" при вводе любого значения в ячейку из диапазона C2:O1000

нужно доделать\передать его так, чтобы при удалении данных или или повторном вводе данных дата не вставлялась снова, т.е. макрос не должен реагировать на удаление и если дата уже была вставлена, то макрос не перезатирал ее новой.

И нужно сделать, если протягиваешь формулу, чтобы на это так же макрос не реагировал, не вставлял дату.

Ставки 3 Отклоненные 1

Юлия Zet

1 0

Проекты -
Оценка -
Рейтинг 160

Бюджет: 50 UAH Срок: 1 день

Готова выполнить! Есть опыт работы с макросами. Выполню быстро и качественно! Обращайтесь! [email protected]

Игорь Б.

Победившая ставка

85 0

Проекты 64
Оценка 5.0
Рейтинг 2 072

Бюджет: 50 UAH Срок: 1 день

Готов сделать.

В списке не показаны ставки, скрытые заказчиком или фрилансером c профилем Plus, а также ставки, нарушающие правила

Антон Скричевский

0 0

Проекты -
Оценка -
Рейтинг 186

Бюджет: 10 USD Срок: 1 день

Занимался подобным совсем недавно.

Алексей Тттт
Украина

Проектов 16
Оценка -
Рейтинг 236

доделать макрос для екселя

Отзыв заказчика о сотрудничестве с Игорем Б.

доделать макрос для екселя

5.0

Алексей Тттт

Отзыв фрилансера о сотрудничестве с Алексеем Тттт

доделать макрос для екселя

5.0

Игорь Б.

Юлия Zet

Игорь Б.

Ставки пока отсутствуют

Антон Скричевский

Актуальные фриланс-проекты в категории Десктопные приложения

Необходимо перенести сайт с webflow на wordpress

Доработка Python-программы под новый интерфейс чатов Twitter (X)

Доработка РМК в 1С: отображение бонусного баланса клиента

Настройка нескольких аккаунтов Viber на одном удаленном рабочем столе

Легкое приложение