Переход от листа к другому листу, не используя select

Question

Я пытаюсь получить код для "копирования и вставки" значений в листе "X", заданных как VBA.Однако это дает мне ошибку 1004 ... Я не могу найти решение при просмотре ..

Надеюсь, что вы можете помочь.

Sub Probabilities()

Dim VBA As Worksheet
Set VBA = Sheets("X")
Dim Overview As Worksheet
Set Overview = Sheets("Overview")

Overview.Range(Cells(27, 3), Cells(34, 3)).Value = Overview.Range(Cells(40, 3), Cells(47, 3)).Value
VBA.Range(Cells(83, 3), Cells(88, 3)).Value = VBA.Range(Cells(83, 3), Cells(88, 3)).Value

Ошибка в этой строке VBA.Range(Cells(83, 3), Cells(88, 3)).Value = VBA.Range(Cells(83, 3), Cells(88, 3)).Value

/ Valdemar

Answer 1

With Overview
    .Range(.Cells(27, 3), .Cells(34, 3)).Value = _
    .Range(.Cells(40, 3), .Cells(47, 3)).Value
End With
With VBA
    .Range(.Cells(83, 3), .Cells(88, 3)).Value = _
    .Range(.Cells(83, 3), .Cells(88, 3)).Value
End With