выделение нескольких ячеек в VBA

[Slavutich_RED]

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

Пробуем:

Sub test()
    коорд1 = 4: коорд2 = 3
    коорд3 = 7: коорд4 = 11

    Range(Cells(коорд1, коорд2), Cells(коорд3, коорд4)).Select
End Sub

Не поверите - работает...
Select

Помогите -

    ThisWorkbook.Worksheets("Model1").Range("A1:D4").Copy _
    Destination:=ThisWorkbook.Worksheets("VhodMod1").Range("E5")

работает на ура

но надо

x1 = 2: y1 = 21
x2 = 2: y2 = 42

ThisWorkbook.Worksheets("Model1").Range(Cells(x1, y1), Cells(x2, y2)).Copy _
Destination:=ThisWorkbook.Worksheets("VhodMod1").Range(Cells(x1, y1))

но он (последний) выдает ошибку 1004

Что в моем коде не так?

[SAS888]

Что в моем коде не так?

Ссылку на неактивный лист нужно делать при КАЖДОМ обращении к ячейке этого листа. В Вашем случае, при условии, что активен лист ThisWorkbook.Worksheets("Model1"), можно, например, так:

With ThisWorkbook.Worksheets("VhodMod1")
    Range(Cells(x1, y1), Cells(x2, y2)).Copy .Range(.Cells(x1, y1))
End With

Если же лист ThisWorkbook.Worksheets("Model1") не активен, то ссылку на него потребуется сделать перед каждым Range и Cells, которые определяют копируемый диапазон.

[Slavutich_RED]

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

Ссылку на неактивный лист нужно делать при КАЖДОМ обращении к ячейке этого листа. В Вашем случае, при условии, что активен лист ThisWorkbook.Worksheets("Model1"), можно, например, так:

With ThisWorkbook.Worksheets("VhodMod1")
    Range(Cells(x1, y1), Cells(x2, y2)).Copy .Range(.Cells(x1, y1))
End With

Если же лист ThisWorkbook.Worksheets("Model1") не активен, то ссылку на него потребуется сделать перед каждым Range и Cells.

Хммм а код ThisWorkbook.Worksheets("Model1").R ange("A1:D4").Copy _
Destination:=ThisWorkbook.Worksheet s("VhodMod1").Range("E5")
работал невзирая на то кто активен, но все равно спасибо - помогло дописывание перед кодом строки ThisWorkbook.Worksheets("Model1").A ctivate

[SAS888]

Хммм а код ThisWorkbook.Worksheets("Model1").R ange("A1:D4").Copy _
Destination:=ThisWorkbook.Worksheet s("VhodMod1").Range("E5")
работал невзирая на то кто активен

Посмотрите внимательно: в такой записе ссылка на лист присутствует при каждом обращении к Range.

помогло дописывание перед кодом строки ThisWorkbook.Worksheets("Model1").A ctivate

Активировать лист - это лишнее. Я бы поступил так:

Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Model1")
Set ws2 = ThisWorkbook.Worksheets("VhodMod1")
ws1.Range(ws1.Cells(x1, y1), ws1.Cells(x2, y2)).Copy ws2.Range(ws2.Cells(x1, y1))

[Slavutich_RED]

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

Ссылку на неактивный лист нужно делать при КАЖДОМ обращении к ячейке этого листа. В Вашем случае, при условии, что активен лист ThisWorkbook.Worksheets("Model1"), можно, например, так:

With ThisWorkbook.Worksheets("VhodMod1")
    Range(Cells(x1, y1), Cells(x2, y2)).Copy .Range(.Cells(x1, y1))
End With

Если же лист ThisWorkbook.Worksheets("Model1") не активен, то ссылку на него потребуется сделать перед каждым Range и Cells, которые определяют копируемый диапазон.

Аннет - работает:

  ThisWorkbook.Worksheets("Model1").Activate
  ThisWorkbook.Worksheets("Model1").Range(Cells(x1, y1), Cells(x2, y2)).Copy _
    Destination:=ThisWorkbook.Worksheets("VhodMod1").Range("E2")

а вот вариант

  ThisWorkbook.Worksheets("Model1").Activate
  ThisWorkbook.Worksheets("Model1").Range(Cells(x1, y1), Cells(x2, y2)).Copy _
    Destination:=ThisWorkbook.Worksheets("VhodMod1").Range(ThisWorkbook.Worksheets("VhodMod1").Cells(x1, y1))

валит все ту же 1004 ую ошибку - а надо как то так - я незнаю на перекд в какую ячейку надо вставлять - х и у вычисляются динамически

[SAS888]

Вы упорно допускаете одну и ту же ошибку: не перед каждым Range и Cells у вас есть необходимые ссылки на лист.
См. мой пример в посте №14

[Slavutich_RED]

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

Посмотрите внимательно: в такой записе ссылка на лист присутствует при каждом обращении к Range.
Активировать лист - это лишнее. Я бы поступил так:

Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Model1")
Set ws2 = ThisWorkbook.Worksheets("VhodMod1")
ws1.Range(ws1.Cells(x1, y1), ws1.Cells(x2, y2)).Copy ws2.Range(ws2.Cells(x1, y1))

неа - не работает - валит 1004 ошибку но пояснение в ней теперь "Method Range of object _Worksheet failed"

[SAS888]

Укажите полный диапазон для вставки:

ws1.Range(ws1.Cells(x1, y1), ws1.Cells(x2, y2)).Copy ws2.Range(ws2.Cells(x1, y1), ws2.Cells(x2, y2))

[Slavutich_RED]

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

Проверьте, правильно ли прописаны имена рабочих листов? Существуют ли они? Какие типы и какие значения имеют переменные x1, y1, x2 и y2?

Листы существуют, при указании адресов аля "E5" по крайней мере существуют (может при Cells(x1, y1) они исчезают);

в начале процедуры прописано
x1 = 2: y1 = 21
x2 = 2: y2 = 42

[SAS888]

Если требуются только значения, то можно и без копирования:

ws2.Range(ws2.Cells(x1, y1), ws2.Cells(x2, y2)) = ws1.Range(ws1.Cells(x1, y1), ws1.Cells(x2, y2)).Value