Господа подскажите можно ли использовать на одном листе два три и четыре макроса
по вставке даты например мне надо при нажатии любой кнопки в столбике A в столбик B вставлять текущую дату
при помощи макроса ниже, как сделать так чтобы на этом же листе принажатии столбик А вставка была в В , затем при нажатии скажем D вставка была в E
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, 2) 'вводим в соседнюю справа ячейку дату
.Value = Time
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
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("D2:D100")) Is Nothing Then 'если изменененная ячейка попадает в диапазон D2:D100
With cell.Offset(0, 2) 'вводим в соседнюю справа ячейку дату
.Value = Time
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
End If
Next cell
End Sub
расположив два макроса подряд выдаёт ошибку
по вставке даты например мне надо при нажатии любой кнопки в столбике A в столбик B вставлять текущую дату
при помощи макроса ниже, как сделать так чтобы на этом же листе принажатии столбик А вставка была в В , затем при нажатии скажем D вставка была в E
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, 2) 'вводим в соседнюю справа ячейку дату
.Value = Time
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
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("D2:D100")) Is Nothing Then 'если изменененная ячейка попадает в диапазон D2:D100
With cell.Offset(0, 2) 'вводим в соседнюю справа ячейку дату
.Value = Time
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
End If
Next cell
End Sub
расположив два макроса подряд выдаёт ошибку