Excelマクロcomboboxによるコピー＆ペースト用

Question

私は、選択した項目に基づいて、あるシートから別のシートにデータをコピーしたいというコンボボックスを持っています。以下は、私はそれを実行したとき、私は、「ファイル名を指定して実行時エラー1004は、」私はVBA

に

Private Sub ComboBox1_Change() 

    Dim firstLimit As Integer 
    Dim secondLimit As Integer 
    firstLimit = 2 
    secondLimit = 2 

    Application.ScreenUpdating = False 
    Worksheets("output").Range("A2:U2").Value = Worksheets("Input").Range(Cells(firstLimit, "A"), Cells(secondLimit, "U")).Value 
    Application.ScreenUpdating = True 


    End Sub 

おかげ

Answer 1

エラーがCellsに修飾されていないの呼び出しによって引き起こされるを開始しています取得コードの一部です。あなたのコードでは、これらはアクティブなシートを参照します。これが「入力」でなければ、エラーが発生します。

変更

Sub ComboBox1_Change() 
    Dim firstLimit As Integer 
    Dim secondLimit As Integer 
    firstLimit = 2 
    secondLimit = 2 

    Application.ScreenUpdating = False 
    With Worksheets("Input") 
     Worksheets("output").Range("A2:U2").Value = .Range(.Cells(firstLimit, "A"), .Cells(secondLimit, "U")).Value 
    End With 
    Application.ScreenUpdating = True 


End Sub 

に注意 .年代 Range前と2 Cells