у меня задача, в столбик d вводятся цифры (в любую ячейку) после того как их ввели, в эту ячейку пишется текст "(1002) 625 " + цифры который были введёны без запуска макроса, то есть делается после изменения ячейки
PrivateSubWorksheet_Change(ByValTarget AsRange) ForEachcell InTarget 'проходим по всем измененным ячейкам IfNotIntersect(cell, Range("A2:A100")) IsNothingThen'если изменененная ячейка попадает в диапазон A2:A100 Withcell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату .Value = Now .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке EndWith EndIf Nextcell EndSub
когда делаешь в текущую всё зацикливается, как сделать, что б один раз срабатывало?