DennisKo Цитата: Что нужно добавить, что бы копировался только результат вычисления формулы, а не ошибка
Надо перед копированием проверять:
If IsError(Cells(1, "A")) Then msgbox "Ошибка!" Добавлено: ABSERG Цитата: Как сделать, чтоб редактируя содержание в строке к примеру под номером 3 (наименование товара) искало такие же строки по всем листам, и исправляла их.
Основа - событие листа
Worksheet_Change(). Но тут проблема: это событие вызывается только после редактирования, поэтому VBA доступно только новое значение. Чтобы получить старое я советую сделать глобальную переменную, куда закидываем значение при событии
Worksheet_SelectionChange(). Вот есть небольшой примерчик (у вас в VBA редакторе должно быть включено Immediate Window, чтобы видет результат):[more=код]
Вставте эти строки в код листа (не в модуль, а именно в лист):
Код: Dim data_before As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
Debug.Print "In cell "; Target.Address; " was '"; data_before; _
"' and now is '"; Target.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
data_before = Target.Value
End Sub
