Копирование значений ячеек

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Копирование значений ячеек - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Копирование значений ячеек (Макросы Sub)

Копирование значений ячеек

VanBlack

Дата: Четверг, 07.11.2013, 12:39 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: -28 ±

Замечаний: 0% ±

Excel 2007

Данный макрос копирует содержимое диапазона ячеек (B43:D66) с листов в имени которых содержатся скобки на лист "Ход поединков 1-8 финалов". Проблема в том, что в ячейках содержатся формулы. Как исправить, чтобы копировались значения ячеек?
[vba]

Код

Sub Добавить_в_Ход_поединков_Восьмые_финалов()
      Dim Sh As Worksheet, i As Long
      i = 3
      For Each Sh In ThisWorkbook.Sheets
          If InStr(3, Sh.Name, "(") > 0 Then
              Sh.[B43:D66].Copy Sheets("Ход поединков 1-8 финалов").Cells(i, 2)
              i = i + 24
          End If
      Next Sh
End Sub

[/vba]