2016-06-28 5 views
0

하나의 통합 문서에서 다른 통합 문서로 데이터 범위를 복사하려고합니다. R을 복사하고 싶습니다. ???????? Range A3 : A999에서 Range D3 : D999의 해당 버전이 R에 대한 A2에서 시작하는 다른 통합 문서의 다음 빈 셀에 연결됩니다. 버전 번호는 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

안녕하세요 @ 카일'workbooks (iForm) .Worksheet ("예약 양식")에서 반환 코드 "오류 9"가 나타납니다. 셀 (RowNo, 1). 값 = C.Value' – Paul

답변

0

당신이해야 할 모든 iForm = "Workbook Location path"

관련 문제