다른 시트로 데이터값과 셀서식을 그대로 복사할 때...

[하늘나루]

========================================================================================

현재 사용하는 엑셀 버젼을 기재하시면 좀더 정확하고 신속한 답변을 얻으실 수 있습니다. 

엑셀 버젼(예: 2007) :

========================================================================================

 엑셀버전 2010.

안녕하세요.

며칠동안 이곳에서 열심히 보고 배우고 있습니다.

그리고 간단한 질문도 드렸고 감사히 답을 받았습니다.

오늘은 업무상 꼭 필요한 파일인데... 막히는 부분이 있어서 문의드립니다.

제가 만든 파일은 

[입력] 시트에서 데이터를 입력하고 입력 버튼을 누르면

[Record] 시트에 데이터가 저장되고

[불러오기]에서 [Record]시트 데이터중 (코드넘버)를 호출값으로 입력하고 엔터를 치면 아래 입력 서식에 맞게 데이터가 입력되도록

만들었습니다.

부가적으로 프린트도 할 수 있게 하였습니다.

그리고 필요에 따라 별도의 파일로 서식의 내용을 외부에 전달해야할 목적으로

[불러오기]시트에서 <CopySheet>버튼을 누르면 [Copy]시트에 서식없이 값으로 복사되도록 하였습니다.

그런데 문제는!!

[Copy]시트에 한번만 복사된다는 문제가 생겼습니다.

----------

Range("A6:L41").Copy

Sheets("Copy").Range("A1").PasteSpecial Paste:=xlPasteVal‎uesAndNumberFormats

 Application.CutCopyMode = False

Range("A6:L41").Select

Selection.Copy

Sheets("Copy").Range("A1").PasteSpecial Paste:=xlPasteFormats

 Application.CutCopyMode = False

If Err = 0 Then 'º∫∞¯ ∏fiΩ√¡ˆ

MsgBox "OK!! DATA Export was successful!! Please, Check Copy Sheet"

End If

End Sub

----------

이렇게 불러오기 시트의 <CopySheet>버튼을 눌렀을때 실행되는 매크로를 만들었는데

여기에 두번,세번... 계속 <CopySheet>버튼을 누르면 [Copy]시트에

첫번째 양식이 현재처럼 복사되고 난 후 

두번째,세번째 양식은 그 밑에(A42) 이어서 복사될 수 있도록 하고 싶은데...그 다음은 그만큼 밑으로 밀린 자리에

복사하고 싶은데...

그걸 잘 모르겠습니다.

도움을 주실 수 있으시면... 꼭 도움 부탁드리겠습니다.

도와주시면

앞으로 왕팬이 되도록 하겠습니다.

^^

4025FORM_Manager_V1.0.xlsm