[ Регистрация · Вход · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: irakitin2014  
Форум » Готовые решения » На базе Excel » Макрос вставки даты при введении числа в соседнюю ячейку
Макрос вставки даты при введении числа в соседнюю ячейку
irakitin2014Дата: Среда, 28.03.2018, 11:18 | Сообщение # 1
Генерал-майор
Группа: Модераторы
Сообщений: 202
Репутация: 5
Статус: 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
 
Форум » Готовые решения » На базе Excel » Макрос вставки даты при введении числа в соседнюю ячейку
  • Страница 1 из 1
  • 1
Поиск: