Добрый день.
Подскажите как правильно обратится к подпрограмме, и следовательно как задать в ней параметры?
Значит задачка: есть следующий код:
Хочется вторую часть (с копированием ячеек) убрать в подпрограмму, которой нужно будет передавать параметры findT и параметры Offset
Подскажите как правильно обратится к подпрограмме, и следовательно как задать в ней параметры?
Значит задачка: есть следующий код:
Код |
---|
Set findT = Worksheets(i).Range("B:D").Find("Текст", , xlValues, xlPart) ... Set cellcop_2_ = findT.Offset(, 4) Union(cellcop_2_, cellcop_2_.Offset(, 2), cellcop_2_2, cellcop_2_2.Offset(, 2)).Copy |