VBA Excel 붙여 넣기 값 : 자동 : 오류 1004 수동 : 확인

Question

이상한 문제 : 루프에서 시트의 일부 값을 읽고 다른 시트에 붙여 넣습니다.

나는 하나의 모듈을 다른 모듈 다음에 호출하는 제어 모듈을 가지고있다.

내 문제는

: 나는 런타임 오류 (1004)

로 실행 제어 모듈을 통해 통화를 할 경우 내가 .. 매크로가 수동으로 아무 문제없고 잘 작동 모든 게 시작하면

이 내입니다 코드 :

[...] 
rngname = 3 
    temp = 1 
    Do Until Cells(lngRow, 1).Value = "test" 

     lngLastRowOfSection = Cells(lngRow, 1).End(xlDown).Row 

     Set slcFind = Range(Cells(lngRow, 1), Cells(lngLastRowOfSection, 1)) 
     slcFind.Copy 
     Set targetRange = Worksheets("Node Canister VPD").Cells(1, 1) 

     targetRange.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True 


     lngRow = Cells(lngLastRowOfSection, 1).End(xlDown).Row 
     If lngRow >= Rows.Count Then Exit Do 

    Loop 

    lngRow = 1 

    rngname = 3 
    i = 2 
    Do Until Cells(lngRow, 1).Value = "test" 

     lngLastRowOfSection = Cells(lngRow, 1).End(xlDown).Row 

     Set slcFind = Range(Cells(lngRow, 2), Cells(lngLastRowOfSection, 2)) 
     slcFind.Copy 
     Set targetRange = Worksheets("Node Canister VPD").Cells(i, 1) 

     targetRange.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True 


     lngRow = Cells(lngLastRowOfSection, 1).End(xlDown).Row 
     If lngRow >= Rows.Count Then Exit Do 
    i = i + 1 
    Loop 

[...] 

누구에게 아이디어가 있습니까? 코드의이 부분이 표시됩니다 :

targetRange.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True 

안부, Kalain

Answer 1

스콧 Holtzman이 올바른지, 범위를 설정할 때 워크 시트를 정의합니다. 유효한 데이터, 붙여 넣을 시트 및 완전히 다른 빈 시트가있는 시트 1 개를 사용하여 버그를 다시 만들 수있었습니다. 유효한 시트에서 매크로를 실행했을 때, 빈 시트를 활성화 한 상태에서 빈 열을 행으로 바꾸려고 시도했을 때 문제가되지 않았습니다. Excel 시트에는 열이 많고 행이 있으므로 적합하지 않기 때문에 충돌이 발생합니다.

"First"를 소스 시트가 호출 된 것으로 변경하십시오.

Sub test() 

Dim Other As New Worksheet 
Set Other = Worksheets("First") 
lngrow = 1 
rngname = 3 
    temp = 1 
    Do Until other.Cells(lngrow, 1).Value = "test" 

     lngLastRowOfSection = Other.Cells(lngrow, 1).End(xlDown).Row 

     Set slcFind = Range(Other.Cells(lngrow, 1), Other.Cells(lngLastRowOfSection, 1)) 
     slcFind.Copy 
     Set targetRange = Worksheets("Node Canister VPD").Cells(1, 1) 

     targetRange.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True 


     lngrow = Other.Cells(lngLastRowOfSection, 1).End(xlDown).Row 
     If lngrow >= Rows.Count Then Exit Do 

    Loop 

    lngrow = 1 

    rngname = 3 
    i = 2 
    Do Until Other.Cells(lngrow, 1).Value = "test" 

     lngLastRowOfSection = Other.Cells(lngrow, 1).End(xlDown).Row 

     Set slcFind = Range(Other.Cells(lngrow, 2), Other.Cells(lngLastRowOfSection, 2)) 
     slcFind.Copy 
     Set targetRange = Worksheets("Node Canister VPD").Cells(i, 1) 

     targetRange.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True 


     lngrow = Other.Cells(lngLastRowOfSection, 1).End(xlDown).Row 
     If lngrow >= Rows.Count Then Exit Do 
    i = i + 1 
    Loop 

End Sub