[ Регистрация · Вход · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: irakitin2014  
Макрос вставки даты при введении числа в соседнюю ячейку
irakitin2014Дата: Среда, 28.03.2018, 11:18 | Сообщение # 1
Генерал-майор
Группа: Модераторы
Сообщений: 312
Репутация: 6
Статус: Offline
очень часто возникает вопрос: а как вставить в ячейку дату изменения соседней ячейки?
В этом вам поможет маленький макрос
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat&
dat = Cells(Rows.Count, 1).End(xlUp).Row
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A" & dat)) Is Nothing Then
    
    If Target <> "" And Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Date
    End If
End Sub
при внесении в ячейки столбца А любой информации в соседней ячейке появляется сегодняшняя дата



для спасибов ЯД 41001877306852
 
ilboxxДата: Понедельник, 07.10.2019, 14:54 | Сообщение # 2
Рядовой
Группа: Проверенные
Сообщений: 7
Репутация: 0
Статус: Offline
Очень полезно!
 
boboorsettoДата: Вторник, 14.07.2020, 16:50 | Сообщение # 3
Рядовой
Группа: Пользователи
Сообщений: 4
Репутация: 0
Статус: Offline
Очень полезно!

Добавлено (14.07.2020, 16:50)
---------------------------------------------
Очень!

 
  • Страница 1 из 1
  • 1
Поиск: