사번별로 급여명세 시트가 자동 추가되는매크로(VBA 수정)

VBA
작성자
마운틴
작성일
2021-12-20 16:05
조회
142
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

안녕하세요?

 

아래 VBA 구문처럼 "개별급여명세생성" 버튼을 누르면 사원별 급여명세가 건별로

시트에 자동 추가되는 VBA는 어째어째해서 반영했는데

사원별 급여명세가 시트에 일괄 추가되도록 하려면 VBA 구문을 어떻게

수정해야 할런지요?

 

즉, 현재 J열의 사번을 건별로 선택하면 G4의 사번이 자동으로 바뀌고

"개별명세자동생성" 버튼을 누르면 H4 시트명대로 시트가 자동 생성되는데

(예 : J4열 S0004 선택시 H4는 2021.11월(D)로 바뀌고 동일한 명칭으로 시트 추가)

J열의 S0004부터 S0001까지 명세가 한번에 생성되도록 하는 방법을 알고 싶습니다

 

나아가 별도의 폴더에 사번별로 pdf파일이 별도로 생성되도록 하는 방법도 알고 싶네요

( J열의 S0004부터 S0001까지 지동으로 개별 PDF파일이 생성)

 

작업파일 첨부드리오니 고수님들의 도움부탁드립니다

감사합니다

<현재 VBA 구문>

Sub 시트추가이름변경()
'
' 시트추가이름변경 매크로

Sheets("임금명세서").Select
Sheets("임금명세서").Copy After:=Sheets(4)
Range("H10").Select

Dim newFormula As String
Dim newName As String

Dim i As Long

On Error Resume Next

For i = 1 To Application.Sheets.Count
If Application.Sheets(i).Name = "임금명세서" Then
ElseIf Application.Sheets(i).Name = "임금대장" Then
ElseIf Application.Sheets(i).Name = "Sheet1" Then
ElseIf Application.Sheets(i).Name = "Sheet2" Then
Else:
newFormula = Application.Sheets(i).Cells(4, 8).Formula
newName = Application.Sheets(i).Cells(4, 8).Text + "."
Application.Sheets(i).Name = newName
newName = Application.Range(newFormula).Text
Application.Sheets(i).Name = newName

End If
Next

End Sub

 

 

회원등급 : 10레벨
포인트 : 732 EP
총질문 : 42 개 (마감율 : 48%)
채택답변 : 0 개
전체 5

  • 2021-12-20 22:50
    채택된 답변

    기존에 작성해두신 VBA는 사용하지 않고 제가 따로 모듈하나 만들어서 작업해놨습니다.
    또한 PDF파일이름을 뭘로 할지 몰라 시트이름과 동일하게 했습니다.
    그리고 PDF범위도 어디로 하시는지 언급이없어서 그냥 A2:G41까지로 임의로 지정해놨습니다.

    VBAResult.png

    첨부파일 : 급여인별자동생성_문의.Sol_.xlsm


    • 2021-12-21 11:07

      @iviolin**** 님 직접 vba 구문까지 만들어 주셨네요

      대단히 감사합니다~

      죄송합니다만 현재 폴더에 pdf가 생성되게 하려면 구문을 어떻게 바꾸어야 할지요?

      SavePath = ThisWorkbook.Path & "\" '//폴더의 경로를 적어주시면 됩니다.ex) "C:\Users\User\Test\"


      • 2021-12-21 12:42

        @마운틴 님 현재 폴더가 어떤폴더를 의미하시는지 잘 모르겠습니다...

        일딴 제가 작성한 코드는 PDF메크로를 실행시키는 엑셀 파일이 있는 폴더의 경로를 반환해주는 메크로입니다.

        만약 특정 폴더에 PDF를 만들고 싶으면 그 특정 폴더의 경로를 다 적어줘야합니다.
        SavePath = "C:\Users\User\Desktop\Test\" 이런식으로 말입니다.
        이러면 User라는 사용자의 바탕화면의 Test폴더에 PDF가 만들어집니다.
        그러면


        • 2021-12-21 13:39

          @iviolin**** 님 아~그렇군요

          경로에 아무 것도 입력하지 않으면 PDF메크로를 실행시키는 엑셀 파일이 있는 폴더에 그대로 저장되는 거 였군요

          제가 말씀드린 현재 폴더라는게 PDF메크로를 실행시키는 엑셀 파일이 있는 폴더 이런 의미였습니다
           
          대단히 감사합니다~~


          • 2021-12-21 15:29

            @마운틴 님 아 그렇군요 고생하세요~~


전체 5,201
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (30)
트로피 오빠두엑셀 | 2021.10.12 | 추천 23 | 조회 796
트로피 오빠두엑셀 2021.10.12 23 796
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (21)
오빠두엑셀 | 2021.10.28 | 추천 32 | 조회 2478
트로피 오빠두엑셀 2021.10.28 32 2478
26343 함수/공식
New 전산입고품목과 실제입고품목의 실재고조사관련 양식(함수+피벗테이블)첨언좀 부탁드립니다.도와주세요! 첨부파일 (2)
sunjong**** | 16:42 | 추천 0 | 조회 19
sunjong**** 16:42 0 19
26341 VBA
New VBA 내 배열 통합(쿼리 통합 기능을 VBA에서 구현하고자 합니다.) 첨부파일
병욱 | 16:13 | 추천 0 | 조회 11
병욱 16:13 0 11
26339 VBA
New 많은 텍스트상자안 문자 찾기 (1)
noeu**** | 15:44 | 추천 -1 | 조회 16
noeu**** 15:44 -1 16
26338 함수/공식
New 지정한 일수(days)를 달력에 자동으로 표시 되게끔 설정이 가능한가요? 첨부파일 (1)
말창 | 15:26 | 추천 0 | 조회 17
말창 15:26 0 17
26336 함수/공식
New 셀안 동일 회사명을 순차 카운트를 하고 싶습니다. (3) 답변완료
sickp**** | 15:06 | 추천 0 | 조회 19
sickp**** 15:06 0 19
26334 함수/공식
New 이름만 치면 열 다 띄워주는 방법을 알려주세요 첨부파일 (7) 답변완료
아마테라스 | 14:49 | 추천 0 | 조회 26
아마테라스 14:49 0 26
26329 VBA
New VBA 자동으로 그룹 구분하여 sheet split 기능 행열 전환 관련 질문드립니다. 첨부파일
shon**** | 13:53 | 추천 0 | 조회 10
shon**** 13:53 0 10
26324 기능/도구
New 파일 오류로 열리지 않습니다. (1)
가을남자 | 12:48 | 추천 0 | 조회 15
가을남자 12:48 0 15
26323 함수/공식
New 불려오는 data 행 길이에 따라 자동으로 행길이 바뀌도록 하는 수식/기능 관련 첨부파일 (1)
엑초파 | 12:16 | 추천 0 | 조회 27
엑초파 12:16 0 27
26308 VBA
New pdf 로 자동 저장하고 싶습니다. 첨부파일
wan**** | 04:36 | 추천 0 | 조회 35
wan**** 04:36 0 35
26295 파워쿼리/피벗
New 피벗테이블 '각 필드에 유지할 항목 수'에서 질문입니다. (3)
월마리아 | 2022.01.23 | 추천 0 | 조회 30
월마리아 2022.01.23 0 30
26294 함수/공식
New 합계값이 일치하지 않는 값 구하기! (1)
정해인 | 2022.01.23 | 추천 0 | 조회 34
정해인 2022.01.23 0 34
26290 함수/공식
New 기간구분 IF함수 에러 원인이 뭔지 모르겠어요 (6) 답변완료
마운틴 | 2022.01.23 | 추천 0 | 조회 38
마운틴 2022.01.23 0 38
26285 함수/공식
New 이번주 시작일(월요일), 마지막일(금요일) yyyy-mm-dd 형식으로 출력하는 방법 (1)
joeee | 2022.01.23 | 추천 0 | 조회 37
joeee 2022.01.23 0 37
26284 피벗테이블
New 피벗 테이블 날짜인식 및 월별 그룹화 관련 첨부파일 (3)
baechu9 | 2022.01.23 | 추천 0 | 조회 31
baechu9 2022.01.23 0 31
26278 피벗테이블
New 피벗테이블 영상보면서 따라해보고 있는데요 잘안되요 ㅠ 첨부파일 (1)
희야맘 | 2022.01.23 | 추천 0 | 조회 23
희야맘 2022.01.23 0 23
26276 문서서식
New [조건부 서식] 아직 데이터가 입력되지 않은 칸에 조건부 서식 적용하지 않도록 하기 첨부파일
jo2 | 2022.01.23 | 추천 0 | 조회 33
jo2 2022.01.23 0 33
26268 함수/공식
New 조건부서식 내에서 INDIRECT 함수와 AND 함수를 함께 사용할 수 없나요? (10)
나는나 | 2022.01.22 | 추천 0 | 조회 66
나는나 2022.01.22 0 66
26260 함수/공식
New 각 지점별 연,월 매출의 합을 구하고 싶습니다. 첨부파일 (4) 답변완료
창이 | 2022.01.22 | 추천 1 | 조회 44
창이 2022.01.22 1 44
26246 함수/공식
New 엑셀 월 구하기 주 구하기 질문 입니다. 첨부파일 (3)
천고마비 | 2022.01.22 | 추천 0 | 조회 45
천고마비 2022.01.22 0 45
26243 함수/공식
New 특정 조건 행 제외 후 다른 시트에 리스트화 첨부파일 (4) 답변완료
상큼한도로시 | 2022.01.21 | 추천 0 | 조회 48
상큼한도로시 2022.01.21 0 48
26239 VBA
재고관리 프로그램에서 검색할 때 체크박스 사용하는 방법이 궁금합니다. (1)
엑셀열공 | 2022.01.21 | 추천 0 | 조회 54
엑셀열공 2022.01.21 0 54
26237 피벗테이블
시간표시막대 질문 (1)
최재영 | 2022.01.21 | 추천 0 | 조회 40
최재영 2022.01.21 0 40
26236 함수/공식
컨트롤 f (찾기) 로 함수의 결과값 검색방법이 있나요? (1)
정지훈 | 2022.01.21 | 추천 0 | 조회 34
정지훈 2022.01.21 0 34
26234 함수/공식
함수를 대량변경하고싶은데 가능한지 문의드립니다. (1)
정지훈 | 2022.01.21 | 추천 0 | 조회 42
정지훈 2022.01.21 0 42
26229 함수/공식
함수를 어떤걸 써야 될지 모르겠습니다. 첨부파일 (3) 답변완료
조커 | 2022.01.21 | 추천 0 | 조회 57
조커 2022.01.21 0 57
26223 VBA
버튼이 클릭이 되지 않습니다. 방법을 모르겠어요. 첨부파일 (5)
다르마 | 2022.01.21 | 추천 0 | 조회 43
다르마 2022.01.21 0 43
26222 VBA
자료찾기 vba 문의드립니다. (2) 답변완료
ㅈㄱㄹ | 2022.01.21 | 추천 0 | 조회 44
ㅈㄱㄹ 2022.01.21 0 44
26220 함수/공식
엑셀 셀값 동일 데이터를 순서대로 카운터 하고 싶습니다. (4) 답변완료
sickp**** | 2022.01.21 | 추천 0 | 조회 41
sickp**** 2022.01.21 0 41
26217 VBA
엑셀 매크로 렉걸림해결방법문의 (1)
dud**** | 2022.01.21 | 추천 -1 | 조회 36
dud**** 2022.01.21 -1 36