Здравствуйте!
У меня следующая проблема.
В ячейке AH6 содержится формула, которая обсчитывает числовые данные и показывает результат. Мне необходимо, чтобы числовое значение (не формула) скопировалось в соседнюю ячейку AI6.
Аналогичная формула содержится в ячейке AH7, ее содержимое должно скопироваться в ячейку AI7 и т.д.
Вручную я делаю эту процедуру посредством копирования-специальной вставки-значения.
Но это сильно утомляет.
Я записал макрос (макрорекордером)
Sub Копия_числа()
'
' Копия_числа Макрос
''
Application.Run "'Прайс.xls'!myMacro"
Range("AH6").Select
Selection.Copy
Range("AI6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Run "'Прайс.xls'!myMacro"
Range("AH7").Select
Application.CutCopyMode = False
Selection.Copy
Range("AI7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub