Доброго времени. Есть макрос который подставляет дату если в столбце "А" появляется значение, дату ставит в столбец "В". Можно исправить, если в строке D1001:ADN1001 появится значение, в строке под значением ниже появится дата? Спасибо.
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(cell, Range("A2:A100")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100
With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату
.Value = Now
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
End If
Next cell
End Sub
|
