Пытливый,Большое спасибо, действительно помогло!!! ВЫ гений. А насчет отмены это реально?
Дополнение к вставке дат и перекраске строки.
Пользователь
Сообщений: Регистрация: 06.02.2019
06.02.2019 17:15:08
Ну очень шикарный сайт, уже не первый раз решаю свои задачи с помощью этого сайта. СПАСИБО за то что Вы есть. На основе вашей статьи и прочитаных коминтариев отредактировал код.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(Cell, Range("A5:A4000")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2
If IsEmpty(Target) Then
Target(1, 13) = Empty
Else
With Target(1, 13)
.Value = Date
End With
End If
End If
If Not Intersect(Cell, Range("L5:L4000")) Is Nothing Then 'если изменененная ячейка попадает в диапазон L2
If IsEmpty(Target) Then
Target(1, 4) = Empty
Else
With Target(1, 4)
.Value = Date
End With
End If
End If
If Not Intersect(Cell, Range("L5:L4000")) Is Nothing Then 'если изменененная ячейка попадает в диапазон L2
With Cell.Offset(0, 1)
Cell.Font.Color = RGB(112, 173, 71)
End With
End If
Next Cell
End Sub
Для чего и какая была задача?! Так как в макросах не разбераюсь скопировал ваш код и отредактировал на свой мотив согласно гайду и коментариям в статье . Задача состоит в том что при внесении в первую колонку таблицы появлялась дата в 13 или (М) колонке, и потом когда таблица редактирюется и при внисении даных в колонку номер 12 (или L) отображалась дата редактирования в колонке 15 (или О). Этого добился так как все вопросы и ответы были заданы в этой статье и были даны ответы.
Но мне еще нужно чтобы после того как в колонке L введутся даные то весь текст в строке от A до P перекрасился в зеленый цвет. Искал на сайте, нашел похожую статью по дублям и окрасам но оно мне не подходит.
Были пробы сделать через
Код
Rows.Font.Color = RGB(112, 173, 71)
но оно красит все.
Подскажите пожалуйста что нужно вписать в последнем блоке чтобы решить мою задачу. И еще вопрос, можна ли что-то сделать так чтобы после того как макрос сделал свое дело его можна было отменить. Бывает такое что отредактивал таблицу и потом вписал даные в первую ячейку после чего сработал макрос и вписал дату, и после этого момента перестает работать CTRL+Z тоисть отмена. Єто реально? Большое спасибо за ответ.
