vba 다중 셀 오류 450

Question

하나의 작업 표에서 다른 사람에게 복사하려면이 코드가 있고 A1 : A23과 같은 것을 사용할 때 잘 작동하는 것처럼 보이지만 특정 셀을 복사해야하지만 런타임 오류 450이 발생합니다 이것을 보여줍니다. 내가 가지고가는 경우에

Workbooks(Dir(Path)).Worksheets("DCR").range("A3", "A9", "A19" "A23" "B38:B44").VALUE = _ 
    Workbooks("book.xlsm").Worksheets("dcr").range("L3", "L9", "L19" "L23" "M38:M44").VALUE 

모든 "밖으로 그냥 어떤 도움이

이

Answer 1

당신이 값을 할당하거나 복사 - 붙여 넣기를 연결되지 않은 세포에 하나 할 수없는 좋은 것 A3의 모든 세포 에 값이 copys 라인은. 당신은 자신의 라인에 각 그룹을 분리해야합니다.

가장 좋은 방법은 입력을 제한하기 위해, 블록과를 사용하고 다른 WS에게 변수를 만드는 것입니다.

Dim ws as Worksheet 
Set ws = Workbooks("book.xlsm").Worksheets("dcr") 
With Workbooks(Dir(Path)).Worksheets("DCR") 
    .range("A3").Value = ws.range("L3").Value 
    .range("A9").Value = ws.range("L9").Value 
    .range("A19").Value = ws.range("L19").Value 
    .range("A23").Value = ws.range("L23").Value 
    .range("B38:B44").Value = ws.range("M38:M44").Value 
End With