ページ上の範囲を設定=値を使用して別のページの範囲

Question

私はコードを高速化するためにVBAでコピーと貼り付けを避けようとしています。同じワークブック内の別のシートの値を入力するワークシートの範囲があります。

理想的には、私は範囲（X、Y）= .VALUEシート（ "シート2"）を達成しようとしている。私が定義だ範囲（a、b）は.VALUE

マトリックスの両方が同じです問題になる場合はサイズ（4x12キャビネット）...

Dim App_dates As Integer 

App_dates = Sheets("Pipeline - Underwriting Data D").Range("G1").End(xlDown).Row - 1 


Dim UW As Integer 
UW = Range("UW_cell1").Row 



'Set value = value 

Range("UW_cell1", "UW_btm_end").Value = Sheets("Pipeline - Underwriting Data D").Range("A2", Cells(App_dates + 1, 12)).Value 

私は実行時エラー「1004」取得しています：アプリケーション定義またはオブジェクト定義のエラーを。

提案がありますか？

Answer 1

名前付き範囲"UW_cell1"はワークブックがある場合は、スコープ、またはそれが現在アクティブシートでいた場合、あなたは使用することができます。それ以外の場合は

With Worksheets("Pipeline - Underwriting Data D") 
    With .Range("A2", .Cells(App_dates + 1, 12)) 
     Range("UW_cell1").Resize(.Rows.Count, .Columns.Count).Value = .Value 
    End With 
End With 

あなたがする"myTargetSheetName"を変更する必要が

With Worksheets("Pipeline - Underwriting Data D") 
    With .Range("A2", .Cells(App_dates + 1, 12)) 
     Worksheets("myTargetSheetName").Range("UW_cell1").Resize(.Rows.Count, .Columns.Count).Value = .Value 
    End With 
End With 

実際のターゲットシート名