Спасибо за ответ, написал данный код, но сваливается в ошибку то прорабатывает макрос, то нет. Есть варианты, что я сделал не так?
Открываю книгу, нажимаю изменить значения (новый выбор) и сваливается.
С уважением.
Code:
Public Function BEx() As BExApplication
Set BEx = Application.Run("BExAnalyzer.xla!GetBEx", ThisWorkbook)
End Function
Sub BExOnRefresh(ParamArray varname())
If varname(0) = "DP_2" Then
'откуда
DPOffsetC = varname(1).Column
DPOffsetR = varname(1).Row + 2
DPOffsetLC = varname(1).Column + varname(1).Columns.Count - 1
DPOffsetLR = varname(1).Row + varname(1).Rows.Count - 2
'куда
shiftR = 34
shiftC = 2
Dim mRng As Range
Set mRng = Sheets("Технический лист").Range(Cells(DPOffsetR, DPOffsetC), Cells(DPOffsetLR, DPOffsetLC))
If Application.CountA(mRng) = 0 Then
MsgBox "Empty!!!"
Exit Sub
Else
mRng.Copy
Sheets("Ведение данных").Cells(shiftR, shiftC).PasteSpecial xlPasteValues
End If
End If
End Sub