2016-06-28 20 views
0

あるブックから別のブックへデータの範囲をコピーしようとしています。 私はどんなRをコピーしたいですか????? Range A3:A999にあり、Range D3:D999から対応するバージョンまで、別のブックの次の使用可能な空白セルにA2のR ??????バージョン番号はD2です。別のブックへのデータ範囲のコピー

これは私が今まで行ってきたことですが、私はエラーが発生しているので、助けてください。

Application.ScreenUpdating = False 
Application.EnableEvents = False 
Application.Calculation = xlCalculationManual 

iForm = ("Workbook Location path") 

workbooks.Open(iForm).Worksheets("Scheduled Forms").Select 

Envrange = "A2:D999" 
RowNo = 3 

For Each C In workbooks("Daily Release Process.xlsm").Worksheets("Applications").Range(Envrange) 

    If C.Value Like "R?????????" Then 
    workbooks(iForm).Worksheet("Scheduled Forms").Cells(RowNo, 1).Value = C.Value 
    workbooks(iForm).Worksheet("Scheduled Forms").Cells(RowNo, 4).Value = C.Offset(0, 3).Value 
    RowNo = RowNo + 1 
    End If 
Next C 

ActiveWorkbook.Save 

Application.ScreenUpdating = True 
Application.Calculation = xlCalculationAutomatic  
Application.EnableEvents = True 

End Sub 

ありがとうございます。

+1

あなたがエラーを取得しているに変更iForm = ("Workbook Location path")のですか?また、 'Option Explicit'をモジュールの先頭に置いて、変数を宣言するようにしてください。 – Kyle

+0

あなたの範囲はそれほど大きくありません。ループの代わりに 'AutoFilter'メソッドを調べてください。 –

+0

こんにちは@Kyle私は、ワークブック(iForm).Worksheet( "スケジュールされたフォーム")でリターンコード "エラー9"を取得しています。セル(RowNo、1).Value = C.Value' – Paul

答えて

0

すべてを行う必要がiForm = "Workbook Location path"

関連する問題