Excel 매크로 조언

"마스터"시트의 특정 조건을 사용하여 데이터를 "격리"시트로 복사하는 통합 문서에서 다음 매크로를 실행하고 있습니다.Excel 매크로 조언

Dim LR As Long, LR2 As Long 

Application.ScreenUpdating = False 

With Sheets("Quarantined") 
    LR2 = .Range("L" & Rows.Count).End(xlUp).Row 
    If LR2 > 2 Then 
     .Range("A3:I" & LR2).ClearContents 
    End If 
End With 

With Sheets("Master") 
    LR = .Cells(Rows.Count, 8).End(xlUp).Row 
    LR2 = Sheets("Quarantined").Range("L" & Rows.Count).End(xlUp).Row 
    With .Range("L2:L" & LR) 
     .AutoFilter Field:=1, Criteria1:="QUARANTINED" 
     .Offset(1).Resize(LR).EntireRow.Copy Sheets("Quarantined").Range("A" & LR2 + 1) 
     .AutoFilter 
    End With 
End With 

Application.ScreenUpdating = True

완벽하게 작동하지만 마스터를 업데이트하고 매크로를 다시 실행하면 격리 된 시트의 원래 정보 아래에 붙여 넣습니다. 밑에 붙이는 대신 이미 있던 정보를 덮어 쓰게하려면 어떻게해야합니까?

여기 당신이 그것을 말하고있다 때문에 원래 정보를 원하시면 아래에 붙여 넣기한다

출처

2012-07-25 user1551203

기대하고있다.

당신은 .Range("A3:I" & LR2).ClearContents에서 범위를 삭제되지만 당신은 LR2 = Sheets("Quarantined").Range("L" & Rows.Count).End(xlUp).Row

어느 쪽이

.Range("A3:L" & LR2).ClearContents

에 코드를 변경하거나 골을 기반으로 마지막 행을 골의 L에서 사용 가능한 다음 행을 취하고있다 대신 Col L

출처

2012-07-25 10:09:52

감사합니다. 그것은 그것을 해결했습니다. 나는 약간 새로운 Ro 인 것을 인정해야한다. 그리고 나는 그것이 옳았다 고 생각하는 코드의 약간의 수정과 더불어, 복사와 붙이기이었다. 다시 한번 감사드립니다. – user1551203

다행 당신은 그것을 가지고 :) –

Excel 매크로 조언

답변

관련 문제