Sub 선택1시트선택()

'

' 선택1시트선택 매크로

'


'

    Sheets("프린터출력").Select

End Sub


Sub 선택1선택시_작동값_표출()

'

' 선택1시트선택 매크로

'


'

   sel1 = Range("f6").Value

   

 If sel1 = True Then

    sel1 = "작동"


 Range("G1").Value = sel1

 

 Sheets("프린터출력").Select

 

 End If

    

    

End Sub


Sub 선택2선택시_시트선택()

'

' 선택1시트선택 매크로

'


'

   sel1 = Range("f8").Value

   

 If sel1 = True Then

    sel1 = "작동"


 Range("G2").Value = sel1

 

 Sheets(Array(1)).Select

 End If

 

    

    

End Sub


Sub 선택3선택시_시트선택()

'

' 선택1시트선택 매크로

'


'

   sel1 = Range("f12").Value

   

 If sel1 = True Then

    sel1 = "작동"


 Range("G3").Value = sel1

 

 Sheets(Array(2)).Select

 End If

 

    

    

End Sub



Sub 현재시트PDF저장()

'

' 

'


Dim xPath As String


xPath = Application.ActiveWorkbook.Path


    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xPath & "\" & ActiveWorkbook.Name & ".pdf", _

        Quality:=xlQualityStandard, _

        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True _


    Application.WindowState = xlNormal

End Sub



/////////////////


하나의 통합 엑셀문서에서 원하는 시트만 체크박스 이용해서 PDF 파일변환 추출 매크로를 만들고 있는데  중간에 막힌다 ㅠㅠ 



여태 진행단계는 


체크박스에 체크하면 true/false 연결 셀값에 따라 시트를 선택(활성화) 하고 


마지막에 활성화된 시트만 ExportAsFixedFormat 로 PDF 변환 해주려고 하는데 


선택1 에서 시트선택 시키고 선택2도 체크해서 시트선택시키면 


선택1에서 시트선택한게 날라가고  선택2 시트만 활성화되... 



어쩌해야 내가 원하는 시트에 체크박스된 것만 PDF 추출할수 있을까?  


('작동' 여부는 걍 제대로 작동하는지 중간에 넣어봄)