|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002): 2002
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP): 98
3. CPU (486,PentiumI/II/III/IV...): 4
4. RAM (32,64,128,256,512MB,1G...): 256
* 아래줄에 질문을 작성하세요 >>
고수님들 도와주세요 ㅠ.ㅠ
멀쩡하게 잘 쓰던 엑셀 파일 매크로인데 갑자기 한코드에서 에러가 나네요...
문제되는 코드는 다음과 같습니다.
Sheets("출력").Select
Range("W6:Y6").Select
Selection.Copy
Sheets("입력").Select
Range("G40").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
제일 마지막코드인데요 잘 아시겠지만 얘가 출력시트에 w6에서 Y6까지의 값을 복사해서 입력시트의 G40셀에 뭘 어떻게 하란 소리같은데.. 원래 제대로 될때는 그 값을 정확히 가져와서 원래 있던값과 더해서 그셀에 표시를 했거든요..
근데 저번달부터 갑자기 G40에서 I40셀중 G40셀만 제대로 작동을 안하고 고정값으로만 나타내내요..
뭘 어떻게 손을 봐야할 지..고언을 부탁드립니다...
==============[지수아빠님 글에 대한 답변입니다]==============
안녕하세요? 지수아빠 님!
코드가 엉성하긴 하지만 별 문제는 없답니다
다만
원래 제대로 될때는 그 값을 정확히 가져와서 원래 있던값과 더해서 그셀에 표시를 했거든요..
이라고 하셨는데요
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
라는 코드는 값만 붙여 넣습니다. 더해주질 않는 것이지요.
더하시려면 Operation:=xlNone이란 연산부분이 xlNone 대신 xlPasteSpecialOperationAdd라고 하셔야 합니다.
위의 코드는
Sheets("출력").Range("W6:Y6").Copy
Sheets("입력").Range("G40").PasteSpecial Paste:=xlValues, Operation:=xlPasteSpecialOperationAdd , _
SkipBlanks:=False, Transpose:=False
라고 두 줄로 고치세요
그럼...행운이 있으시길...!
==============[황기성님 글에 대한 답변입니다]==============
언제나 황기성님의 글을 보면서 많은 도움을 받고 있습니다. 하지만 황기성님이 답변해주실줄은 몰랐네요.. 감사합니다 ^^
|
|