선택하여 붙여넣기(ctrl alt v) 작동안되는 이유 문의

안녕하세요. 항상 오빠두 엑셀 사이트를 애용하고 있는 유저입니다.

현재, 제 엑셀 기능 중 다음 증상으로 애로사항을 겪고 있어 문의드립니다.

증상 : CTRL + C 한 이후에 CTRL + ALT + V 단축키를 사용하여 붙여넣기를 하면 원래 값을 복사할 것인지, 수식을 복사할 것인지 에 대한 선택 팝업창이 떴는데, 지금은 창이 뜨지 않고 바로 값만 복사가 됩니다. 추가로, 붙여넣기가 되면서 동시에 뒤로 돌리기(CTRL + Z)가 안됩니다.

원래는 잘 되었었는데, 최근 VBA 함수를 사용한다고 모듈에 함수생성하여 사용한 이후로 단축키 적용이 안되는 듯 합니다. (예상)

1. VBA 함수가 포함된 시트에서는 CTRL +C  이후, CTRL ALT V 사용 시, 아래와 같은 팝업창이 뜹니다.
2. VBA 함수가 포함되지 않은 시트에서는 위에서 처럼 붙여넣기가 되지만, 팝업창이 뜨지 않고 값만 복사가 됩니다.
3. 물론 마우스로 클릭하여 붙여넣기하는 것은 VBA 모듈이 있든 없든 다 잘됩니다.

뭔가 VBA 코딩 시, 단축키가 중복되는 뭔가가 추가된 듯 한데, 왜 선택하여 붙여넣기가 안되는지 이해가 안됩니다.

그래서 제가 쓰고 있는 컴퓨터에 사용 중인 모듈 총 4개를 모두 메모장에 적어드립니다.

어느 코딩을 어떻게 바꾸면 이 문제가 해결되는지 고수분들의 빠르고 친절한 답변 부탁드립니다.

혹시 VBA 추가가 아닌 다른 방법으로 해결가능하다면 말씀 부탁드립니다.

1. VBA - Module1 (첫번째 엑셀파일)

Sub 데이터복사()

Dim wb As Workbook
Dim wsIssuance As Worksheet
Dim wsTechDept As Worksheet
Dim wsShip1 As Worksheet
Dim wsIron1 As Worksheet
Dim wsShip2 As Worksheet
Dim wsIron2 As Worksheet
Dim wsShip3 As Worksheet
Dim wsIron3 As Worksheet
Dim lastRow As Long
Dim i As Long
Dim destSheet As Worksheet

' 현재 활성화된 워크북 가져오기
Set wb = ThisWorkbook

' 시트들을 변수에 할당
Set wsIssuance = wb.Sheets("발행현황")
Set wsTechDept = wb.Sheets("기술과")
Set wsShip1 = wb.Sheets("1과-배")
Set wsIron1 = wb.Sheets("1과-철")
Set wsShip2 = wb.Sheets("2과-배")
Set wsIron2 = wb.Sheets("2과-철")
Set wsShip3 = wb.Sheets("3과-배")
Set wsIron3 = wb.Sheets("3과-철")

' Issuance 시트의 마지막 행 찾기
lastRow = wsIssuance.Cells(wsIssuance.Rows.Count, "D").End(xlUp).Row

' 데이터 복사
For i = 2 To lastRow
Select Case wsIssuance.Cells(i, "D").Value
Case "기술과"
If wsIssuance.Cells(i, "E").Value = "의장" Then
Set destSheet = wsTechDept
End If
Case "선장1"
If wsIssuance.Cells(i, "E").Value = "배관" Then
Set destSheet = wsShip1
ElseIf wsIssuance.Cells(i, "E").Value = "의장" Then
Set destSheet = wsIron1
End If
Case "선장2"
If wsIssuance.Cells(i, "E").Value = "배관" Then
Set destSheet = wsShip2
ElseIf wsIssuance.Cells(i, "E").Value = "의장" Then
Set destSheet = wsIron2
End If
Case "선장3"
If wsIssuance.Cells(i, "E").Value = "배관" Then
Set destSheet = wsShip3
ElseIf wsIssuance.Cells(i, "E").Value = "의장" Then
Set destSheet = wsIron3
End If
End Select

' 목적 시트에 데이터 복사
If Not destSheet Is Nothing Then
wsIssuance.Rows(i).Copy destSheet.Range("A" & destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row + 1)
Set destSheet = Nothing
End If
Next i

' 클립보드 초기화
Application.CutCopyMode = False

MsgBox "데이터 복사가 완료되었습니다.", vbInformation

End Sub

2. VBA - Module2 (첫번째 엑셀파일)

Sub 데이터복사()

Dim wb As Workbook
Dim wsIssuance As Worksheet
Dim wsTechDept As Worksheet
Dim wsShip1 As Worksheet
Dim wsIron1 As Worksheet
Dim wsShip2 As Worksheet
Dim wsIron2 As Worksheet
Dim wsShip3 As Worksheet
Dim wsIron3 As Worksheet
Dim lastRow As Long
Dim i As Long
Dim destSheet As Worksheet

' 현재 활성화된 워크북 가져오기
Set wb = ThisWorkbook

' 시트들을 변수에 할당
Set wsIssuance = wb.Sheets("발행현황")
Set wsTechDept = wb.Sheets("기술과")
Set wsShip1 = wb.Sheets("1과-배")
Set wsIron1 = wb.Sheets("1과-철")
Set wsShip2 = wb.Sheets("2과-배")
Set wsIron2 = wb.Sheets("2과-철")
Set wsShip3 = wb.Sheets("3과-배")
Set wsIron3 = wb.Sheets("3과-철")

' Issuance 시트의 마지막 행 찾기
lastRow = wsIssuance.Cells(wsIssuance.Rows.Count, "D").End(xlUp).Row

' 데이터 복사
For i = 2 To lastRow
Select Case wsIssuance.Cells(i, "D").Value
Case "기술과"
If wsIssuance.Cells(i, "E").Value = "의장" Then
Set destSheet = wsTechDept
End If
Case "선장1"
If wsIssuance.Cells(i, "E").Value = "배관" Then
Set destSheet = wsShip1
ElseIf wsIssuance.Cells(i, "E").Value = "의장" Then
Set destSheet = wsIron1
End If
Case "선장2"
If wsIssuance.Cells(i, "E").Value = "배관" Then
Set destSheet = wsShip2
ElseIf wsIssuance.Cells(i, "E").Value = "의장" Then
Set destSheet = wsIron2
End If
Case "선장3"
If wsIssuance.Cells(i, "E").Value = "배관" Then
Set destSheet = wsShip3
ElseIf wsIssuance.Cells(i, "E").Value = "의장" Then
Set destSheet = wsIron3
End If
End Select

' 목적 시트에 데이터 복사
If Not destSheet Is Nothing Then
wsIssuance.Rows(i).Copy destSheet.Range("A" & destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row + 1)
Set destSheet = Nothing
End If
Next i

' 클립보드 초기화
Application.CutCopyMode = False

MsgBox "데이터 복사가 완료되었습니다.", vbInformation

End Sub

3. VBA - Module1 (두번째 엑셀파일)

Sub 데이터복사()

Dim wb As Workbook
Dim wsIssuance As Worksheet
Dim wsTechDept As Worksheet
Dim wsShip1 As Worksheet
Dim wsIron1 As Worksheet
Dim wsShip2 As Worksheet
Dim wsIron2 As Worksheet
Dim wsShip3 As Worksheet
Dim wsIron3 As Worksheet
Dim lastRow As Long
Dim i As Long
Dim destSheet As Worksheet

' 현재 활성화된 워크북 가져오기
Set wb = ThisWorkbook

' 시트들을 변수에 할당
Set wsIssuance = wb.Sheets("발행현황")
Set wsTechDept = wb.Sheets("기술과")
Set wsShip1 = wb.Sheets("1과-배")
Set wsIron1 = wb.Sheets("1과-철")
Set wsShip2 = wb.Sheets("2과-배")
Set wsIron2 = wb.Sheets("2과-철")
Set wsShip3 = wb.Sheets("3과-배")
Set wsIron3 = wb.Sheets("3과-철")

' Issuance 시트의 마지막 행 찾기
lastRow = wsIssuance.Cells(wsIssuance.Rows.Count, "D").End(xlUp).Row

' 데이터 복사
For i = 2 To lastRow
Select Case wsIssuance.Cells(i, "D").Value
Case "기술과"
If wsIssuance.Cells(i, "E").Value = "의장" Then
Set destSheet = wsTechDept
End If
Case "선장1"
If wsIssuance.Cells(i, "E").Value = "배관" Then
Set destSheet = wsShip1
ElseIf wsIssuance.Cells(i, "E").Value = "의장" Then
Set destSheet = wsIron1
End If
Case "선장2"
If wsIssuance.Cells(i, "E").Value = "배관" Then
Set destSheet = wsShip2
ElseIf wsIssuance.Cells(i, "E").Value = "의장" Then
Set destSheet = wsIron2
End If
Case "선장3"
If wsIssuance.Cells(i, "E").Value = "배관" Then
Set destSheet = wsShip3
ElseIf wsIssuance.Cells(i, "E").Value = "의장" Then
Set destSheet = wsIron3
End If
End Select

' 목적 시트에 데이터 복사
If Not destSheet Is Nothing Then
wsIssuance.Rows(i).Copy destSheet.Range("A" & destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row + 1)
Set destSheet = Nothing
End If
Next i

' 클립보드 초기화
Application.CutCopyMode = False

MsgBox "데이터 복사가 완료되었습니다.", vbInformation

End Sub

4. VBA - Module2 (두번째 엑셀파일)

Sub 데이터삭제()
Dim ws As Worksheet
Dim rng As Range

' 기존 시트에서 데이터 삭제
DeleteValuesFromSheet "기술과"
DeleteValuesFromSheet "1과-배"
DeleteValuesFromSheet "1과-철"
DeleteValuesFromSheet "2과-배"
DeleteValuesFromSheet "2과-철"
DeleteValuesFromSheet "3과-배"
DeleteValuesFromSheet "3과-철"

End Sub

Sub DeleteValuesFromSheet(sheetName As String)
Dim ws As Worksheet
Dim rng As Range

On Error Resume Next ' 시트가 존재하지 않을 경우를 대비하여 에러 처리

' 시트 찾기
Set ws = ThisWorkbook.Sheets(sheetName)

On Error GoTo 0 ' 에러 처리 종료

' 시트가 존재하는 경우에만 작업 실행
If Not ws Is Nothing Then
' 삭제할 범위 지정
Set rng = ws.Range("A3:AJ1200")

' 범위의 내용 삭제
rng.ClearContents

' 선택적: 서식도 삭제
' rng.ClearFormats

' 선택적: 코멘트도 삭제
' rng.ClearComments
End If
End Sub