макрос не вставляющий дату в случае delet

Пользователь

Сообщений: 27 Регистрация: 01.03.2015

01.04.2015 21:53:10

Добрый вечер!Подскажите пожааста , че не так.Подставил как Николай Павлов http://www.planetaexcel.ru/techniques/6/44/ рекомендовал вместо 5,6,7 строчки , а он не работает.Спасибо заранее.

Прикрепленные файлы

расход препаратов апрель 15.xlsm (51.42 КБ)

МВТ

Пользователь

Сообщений: 1198 Регистрация: 01.02.2015

01.04.2015 22:12:52

Применительно к Вашему примеру у меня получилось вот так:

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
    If .Count > 1 Then Exit Sub
    If .Column = 3 And .Row >= 43 And .Row <= Cells(Rows.Count, 4).End(xlUp).Row Then
    If Cells(.Row, 2).Value = "" And .Value <> "" Then Cells(.Row, 2).Value = Date
    End If
    End With
End Sub

Coiffure Пользователь Сообщений: 27 Регистрация: 01.03.2015	#3 01.04.2015 22:22:57 О,великолепно!Большое спасибо !

МВТ Пользователь Сообщений: 1198 Регистрация: 01.02.2015	#4 01.04.2015 22:26:26 Работает?

Coiffure Пользователь Сообщений: 27 Регистрация: 01.03.2015	#5 01.04.2015 22:51:00 ДА да да!Спасиб