시트 분리 저장 VBA 질문 드립니다..(혼자 해보다가 도저히 안돼서 질문 남겨요 도와주세요 ㅠㅠ)

VBA
작성자
아이드림코비
작성일
2021-07-14 13:58
조회
120
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

안녕하세요!

회사 업무에서 사용하기 위해 매크로를 만들고 있습니다.

매크로 버튼을 누르면 제가 지정한 시트가 별도의 파일로 생성이 되게끔 하고 있는데,

중요한것은 현재 별도 파일로 저장되는 코드까지는 적용 시켰는데, 수식이 걸려 있는 상태로 저장이 되면 안됩니다..

혹시 아래 제가 적용한 코드에서 별도의 파일로 저장됨과 동시에 해당 시트에 수식이 모두 풀리게끔 하는 코드나 명령문이 따로 있을까요.... 구글링 열심히 했는데도 도저히 안돼서 글 남깁니다 ㅠㅠ 도와주십쇼...

Sub Sheet_SaveFile()
Dim sht As Worksheet
Dim FileName As String

Application.ScreenUpdating = False
Set sht = Worksheets("파일명")
With ActiveSheet
FileName = ThisWorkbook.Path & "\" & sht.Name & " - " & Worksheets("파일명").Cells(6, 3).Value & "_" & Worksheets("Input           Sheet").Cells(4, 4).Value & ".xls"
sht.Copy
With ActiveWorkbook
.SaveAs FileName:=FileName
.Close
End With

End With
MsgBox "파일 저장완료"

End Sub

 

회원등급 : 새싹등급
포인트 : 52 EP
총질문 : 2 개 (마감율 : 100%)
채택답변 : 0 개
전체 6

  • 2021-07-14 16:07

    만약 수식이 아니라 값만으로 채워넣어야 하는 경우시면

    새로 추가한 시트의 사용된 영역을 전부 복사해서 값만 붙여넣기 하시는 방향으로 해보시는건 어떤가요?

    dim rngA as variant
    
    set rngA = sht.UsedRange
    
    rngA.Copy
    
    sht.Cells(sht.UsedRange.Row, sht.UsedRange.Column).PasteSpecial Paste:=xlValues
    
    Application.CutCopyMode = False

    위와 같은 명령문을 추가해보시면 될 듯 합니다.

     


    • 2021-07-14 16:25

      답변 감사드립니다.!

      Sub Sheet_SaveFile()
      Dim sht As Worksheet
      Dim FileName As String
      Dim rngA As varinat

      Application.ScreenUpdating = False
      Set sht = Worksheets("파일명")
      With ActiveSheet
      FileName = ThisWorkbook.Path & "\" & sht.Name & " - " & Worksheets("파일명").Cells(6, 3).Value & "_" & Worksheets("Input Sheet").Cells(4, 4).Value & ".xls"
      sht.Copy
      With ActiveWorkbook
      .SaveAs FileName:=FileName
      .Close
      End With
      Application.CutCopyMode = False

      Set rngA = sht.UsedRange
      rngA.Copy
      sht.Cells(sht.UsedRange.Row, sht.UsedRange.Column).PasteSpecial Paste:=xlValues
      Application.CutCopyMode = False

      End With
      MsgBox "파일 저장완료"

      End Sub

       

      이런식으로 넣어보면 될까요??..

      넣었더니 Compile Error가 뜨네요.. ㅠㅠ


      • 2021-07-14 16:30

        아 제가 오타를... 실수 했네요

        Dim rngA as variant입니다.

        그리고 회사에서 VBA작업하실때는 Copy파일을 만들어서 VBA작업후 완성된 파일을 저장하는 것을 추천드려요.
        되돌리가 안되니 ㅎㅎ


        • 2021-07-14 16:47

          아하! 작동은 됩니다.. ㅎㅎㅎ

          다만,,,, 아래와 같이 코드 수정하고 작동하니

          기존 파일 안에서 수식이 모두 지워지네요.....

          현재 만들고 싶은 것은

          A파일 안에 "입력시트","사과(수식 있음)","Database" 시트가 있는데

          A파일에서 "사과" 시트를 뽑아내는 과정에서 수식을 모두 제거하고 뽑아내는 것을 목표로 하고 있습니다... 그리고 중요한것은 A파일에 걸려있는 수식은 모두 그대로 남아 있어야 합니다.

          (약간 공장 생각해주시면 될것같아요.. "입력시트"에 A라는 값을 넣어서 "사과" 시트에 값들을 모두 변하게 한다. -> 수식을 모두 제거하고 뽑아낸다. // "입력시트"에 B라는 값을 넣어서 "사과" 시트에 값들을 모두 변하게 한다. -> 수식을 모두 제거하고 뽑아낸다.)

          아래와 같이 수정한 코드에서 순서라던지,, 틀린게 있을까요..?

           


          • 2021-07-14 17:56
            채택된 답변

            제가 처음 코드가 이해가 안가는게 많아서 그냥
            아예 다시 명령어를 짜드렸으니 이것을 바탕으로 원하고자 하시는 파일을 만드시면 됩니다.

            첨부파일 : d.xlsm


            • 2021-07-14 23:37

              와....천재십니다.... 정말 너무너무 감사합니다......

              이제 막노동 확실히 줄였어요.. 진짜 너무 감사합니다 ㅠㅠ


전체 3,572
번호 카테고리 제목 작성자 작성일 추천 조회
3558 문서서식
New 특정값(1,2) 입력시 셀 입력 못하게 색깔입히는게 가능할까요? (1) 답변완료
똑똑한곰 | 09:41 | 추천 0 | 조회 12
똑똑한곰 09:41 0 12
3557 함수/공식
New 도와주세요 ... ㅠㅠ (2)
향기 | 08:06 | 추천 0 | 조회 19
향기 08:06 0 19
3556 VBA
New 경우의 수 나열계산 및 값 표기 방법 궁금합니다 첨부파일
슬렁슬렁 | 2021.08.04 | 추천 0 | 조회 15
슬렁슬렁 2021.08.04 0 15
3555 함수/공식
New COUNTIFS 적용 가능 여부 (1)
노갈 | 2021.08.04 | 추천 0 | 조회 19
노갈 2021.08.04 0 19
3554 함수/공식
New 엑셀 색상별 합계 3초만에 구하는 방법 강의를 듣고 색상별 개수를 구하는 방법 오류 2 (1)
Finir2017 | 2021.08.04 | 추천 1 | 조회 17
Finir2017 2021.08.04 1 17
3553 함수/공식
New 엑셀 색상별 합계 3초만에 구하는 방법 강의를 듣고 색상별 개수를 구하는 방법 오류 1 (1)
Finir2017 | 2021.08.04 | 추천 1 | 조회 16
Finir2017 2021.08.04 1 16
3552 VBA
New 사용자 유저폼에서 콤보박으로 선택하는 조건에 따라 매핑된 코드 불러오는 방법 연구
고병관 | 2021.08.04 | 추천 0 | 조회 19
고병관 2021.08.04 0 19
3551 함수/공식
New 함수를 잘모르겠습니다. (1)
벨로 | 2021.08.04 | 추천 0 | 조회 20
벨로 2021.08.04 0 20
3550 기능/도구
New 표 에서 검색할 때 속도 질문 드립니다. (2)
이우용님 | 2021.08.04 | 추천 0 | 조회 15
이우용님 2021.08.04 0 15
3549 함수/공식
New index - match 함수오류 해결 문의 - 인수를 너무 많이 입력했습니다. (1)
이친절카인드 | 2021.08.04 | 추천 0 | 조회 31
이친절카인드 2021.08.04 0 31
3548 피벗테이블
New 슬라이서를 이용한 다중 피벗테이블 연결에서 수식참조 메세지가 뜹니다. (2)
| 2021.08.04 | 추천 0 | 조회 28
2021.08.04 0 28
3547 기능/도구
New 셀 복사 (3) 답변완료
우라기 | 2021.08.04 | 추천 0 | 조회 21
우라기 2021.08.04 0 21
3546 함수/공식
New 특정날짜가 기록되면, 카운트 누적을 초기화하여 다시 카운트할 수 있을까요? 첨부파일 (2) 답변완료
포니 | 2021.08.04 | 추천 0 | 조회 40
포니 2021.08.04 0 40
3545 함수/공식
New 시트 간 연동 관련 (1)
pensa**** | 2021.08.04 | 추천 0 | 조회 38
pensa**** 2021.08.04 0 38
3544 문서서식
New 엑셀 와일드카드 * 별표 질문드립니다. 첨부파일 (3)
월마리아 | 2021.08.03 | 추천 0 | 조회 38
월마리아 2021.08.03 0 38
3543 함수/공식
New 순위와 등급을 이용한 1~7지망까지 정렬하는 방법이 있을까요? 첨부파일 (2) 답변완료
똑똑한곰 | 2021.08.03 | 추천 0 | 조회 39
똑똑한곰 2021.08.03 0 39
3542 VBA
New 아래셀 복사 또는 값이 자동입력되는 매크로 (제발 도와주세요) 첨부파일 (5)
욕심없는성공v | 2021.08.03 | 추천 0 | 조회 40
욕심없는성공v 2021.08.03 0 40
3541 함수/공식
New Check list 자동화를 도와 주세요 첨부파일 (4)
Finir2017 | 2021.08.03 | 추천 1 | 조회 41
Finir2017 2021.08.03 1 41
3540 문서서식
New 함수 이용한 조건부서식 (2) 답변완료
블링블링 | 2021.08.03 | 추천 0 | 조회 37
블링블링 2021.08.03 0 37
3539 함수/공식
New 엑셀 마스터님들, 도와주십쇼. 머리 깨질 것 같습니다. (5) 답변완료
93 | 2021.08.03 | 추천 0 | 조회 68
93 2021.08.03 0 68
3538 VBA
New 오빠두님 파파고 번역기 및 크롤링 네트워크 CLASS문의 첨부파일
H.B | 2021.08.03 | 추천 1 | 조회 32
H.B 2021.08.03 1 32
3537 문서서식
New 재고관리관련 문의 드립니다. (2)
안개숲지기 | 2021.08.03 | 추천 0 | 조회 42
안개숲지기 2021.08.03 0 42
3536 함수/공식
New 일용노무비명세서 첫출근일및마지막근로일 함수 알려주세요 첨부파일 (5) 답변완료
jhp | 2021.08.03 | 추천 0 | 조회 27
jhp 2021.08.03 0 27
3535 기능/도구
New 엑셀 공백기준으로 텍스트나누기 에러 첨부파일 (1)
naver_6108ea4bb3708 | 2021.08.03 | 추천 0 | 조회 22
naver_6108ea4bb3708 2021.08.03 0 22
3534 VBA
New 구글스프레드시트 pdf 저장 스크립트(매크로) (1)
메꾸똘 | 2021.08.03 | 추천 0 | 조회 27
메꾸똘 2021.08.03 0 27
3533 함수/공식
New vlookup으로 찾은 값의 합구하기 (2) 답변완료
리듬 | 2021.08.03 | 추천 0 | 조회 37
리듬 2021.08.03 0 37
3532 함수/공식
New 사이값 자동계산 방법 (1)
실비아 | 2021.08.03 | 추천 0 | 조회 31
실비아 2021.08.03 0 31
3531 문서서식
New 두개의 파일을 띄워놓고 한쪽 파일에서 셀 드래그해서 상태표시줄에 나타난 합계 값을 다른쪽 파일에서 보고 입력하고싶습니다.
무마메 | 2021.08.03 | 추천 0 | 조회 25
무마메 2021.08.03 0 25
3530 함수/공식
New DuTool 수식참조 (3)
casanova | 2021.08.03 | 추천 0 | 조회 30
casanova 2021.08.03 0 30
3529 기능/도구
New 외부 원본(Raw Data) 엑셀 데이터 사용 방법 (2)
kevin5616 | 2021.08.03 | 추천 2 | 조회 45
kevin5616 2021.08.03 2 45