Скопировать диапазон с одной книги в другую, если совпадают назавание листов

[m_v_v]

Здравствуйте уважаемые, имеется две книги, нужно скопировать диапазон "E10:G50" с листа одной книги "PLANASIG_.xls" и вставить на то же место такого же листа другой книги "PLANASIG".xls, но копировать ячейки с формулами не нужно, только с данными. Листы которые суммируют другие листы, трогать нельзя
"70000"
"70000 ЦБ-1"
"70000 ЦБ-2"
"70101"
"70201"
"70202"
"70304"
"70401"
"70402"
"70801"
"70802"
"70804"
"70805"
"70806"
"70808"
"70809"

[m_v_v]

Прилагаю файлы

[Cpluser]

Вот для листа 70000 для других дальше перепишыте если что спрашывайте

Private Sub CommandButton1_Click()
For i = 10 To 50
Worksheets("70000").Cells(i, 3) = Workbooks("PLANASIG_").Worksheets("70000").Cells(i, 3)
Worksheets("70000").Cells(i, 4) = Workbooks("PLANASIG_").Worksheets("70000").Cells(i, 4)
Worksheets("70000").Cells(i, 5) = Workbooks("PLANASIG_").Worksheets("70000").Cells(i, 5)
Worksheets("70000").Cells(i, 6) = Workbooks("PLANASIG_").Worksheets("70000").Cells(i, 6)
Worksheets("70000").Cells(i, 7) = Workbooks("PLANASIG_").Worksheets("70000").Cells(i, 7)
Next i
End Sub

[IgorGO]

отмечаем копируем в одной книге.
в другой книге правая кнопка по ячейке, специальная вставка, только значения.

[m_v_v]

Что то не работает, как автоматизировать перебор листов?

[m_v_v]

Сообщение от IgorGO

отмечаем копируем в одной книге.
в другой книге правая кнопка по ячейке, специальная вставка, только значения.

В принципе так и делал, но хотелось бы автоматизировать процесс, потому что там лист не один и не два, много времени уходит, да и подобный макрос можно потом еще использовать, у меня таких книг еще парочка. Но если такое невозможно то так и быть.

[doober]

Проверил.Все работает

Макрос в файле ,который обновляется PLANASIG.xls

Const path As String = "C:\" ' Путь к папке с файлом
Const File As String = "PLANASIG_.xls" 'Имя файла
Sub UPDATE()
Dim name As String
Dim n AS Integer
For n = 1 To ThisWorkbook.Worksheets.Count
name = ThisWorkbook.Worksheets(n).name

Select Case name
Case "70000", "70000 ЦБ-1", "70000 ЦБ-2", "70101", _
"70201", "70202", "70304", "70401", "70402", "70801", _
"70802", "70804", "70805", "70806", "70808", "70809"

Case Else
      Sheets(name).Range("E10:G50").Formula = "='" & path & "[" & File & "]" & name & "'!" & "E10"
Range("E10:G50") = Range("E10:G50").Value

End Select
Next
End Sub

[m_v_v]

Уважаемый, doober, огромное спасибо, все работает.