Страницы: 1
RSS
Автоматическое время при условии внесения единицы в диапазон колонки А
 
Здравствуйте, уважаемые профи данного форума.
Помогите пожалуйста усовершенствовать макрос таким образом, чтобы при внесении в диапазон А2: А40 цифры 1 - в колонке F2:F40 появилось время.
Сейчас все работает, однако время появляется при внесении любого значения (числового или алфавитного).
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     
    For Each cell In Target
       If Not Intersect(cell, Range("A2:A40")) Is Nothing Then
            With cell.Offset(0, 5)
               .Value = Time
            End With
       End If
    Next cell
    
End Sub 

Заранее спасибо.
 
Попробуйте этот код:

Код
Private Sub Worksheet_Change(ByVal Target As Range)
     
    For Each cell In Target
    If Not Intersect(cell, Range("A2:A40")) Is Nothing And cell.Value = 1 Then
      cell.Offset(0, 5).Value = Time
    End If
    Next cell
    
End Sub
 
Спасибо огромное,Marik18. Работает.
 
Добрый день а можно этот макрос на все листы использовать
 
иванович олег, здравствуйте
Worksheet_Change - это событие листа. Скопируйте макрос в модули всех листов и всё  ;)
Изменено: Jack Famous - 29.07.2021 09:33:01
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Страницы: 1
Наверх