제가 엑셀 메크로를 만들어서 쓰고 있습니다.
데이터를 복사하는 기능에는 문제가 없습니다.
하지만 이상하게 루프가 멈추질 않습니다.
엑셀 메크로는 도움말을 보고 만든 것이고
이것을 이용해서 재물조사표를 만드는 일은 다 끝났지만(Esc강제 종료로 멈추게 할 수 있긴 하더군요.)
왜 멈추지 않는지 머리를 싸고 고민해도 잘 모르겠네요.
한 수 부탁드립니다. 엑셀 2003입니다.
Sub 숫자이동복사()
'
' Macro4 Macro
' plus이(가) 2008-01-28에 기록한 매크로
'
'
Do
counter = 0
myNum = 166
myNum = myNum - 1
counter = counter + 1
Sheets("물품현황(2008.1.11기준)").Select // 이 시트에서 데이터를 복사합니다.
ActiveCell.Range("A1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("2008재물조사서 (3)").Select // 이 시트에서 복사한 데이터를 붙여넣습니다.
ActiveCell.Range("A1").Select
ActiveSheet.Paste
With Selection.Interior //칸을 색칠합니다.
.ColorIndex = 35
.Pattern = xlSolid
End With
ActiveCell.Offset(2, 0).Range("A1").Select
Loop While myNum > 10
MsgBox "루프를 " & counter & "번 반복하였습니다." // 이상하게 이 메시지가 나오지 않고 무한 Loop됩니다.
End Sub
counter = 0
myNum = 166
를 Do 위로 빼셔야할듯..