매크로 실행시 파일 충돌현상

Question

매크로 파일을 실행 후 새로운파일 실행시 런타임오류9가 발생합니다.

단독 실행시는 오류가 없이 실행이 되다가 추가로 다른 엑셀 파일 실행시에만 오류가 발생하는데 해결방법이 없을까요?

Option Explicit

Dim Runst, on_sw

Sub Run() ' 실행

Application.OnKey "{F12}", "stop_key"

Call stop_key

End Sub

Public Sub Copy2cell()

DoEvents

'With Sheets("Sheet2").Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)

'.Value = Format(Now(), "hh:mm")

' .Offset(0, 1).Value = Sheets("Sheet1").Range("B2").Value

' .Offset(0, 2).Value = Sheets("Sheet1").Range("C2").Value

' .Offset(0, 3).Value = Sheets("Sheet1").Range("D2").Value

' .Offset(0, 4).Value = Sheets("Sheet1").Range("E2").Value

Sheets("Sheet1").Select

Range("B2:G2").Select

Selection.Copy

Sheets("Sheet2").Select

Range("B2").Select

Range("A2").Value = Format(Now(), "hh:mm")

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("A1:G1").Select

Application.CutCopyMode = False

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("F3").Select

'End With

If on_sw = True Then

Runst = Now + TimeValue("00:01:00") 'copy 시간을 지정 합니다

On Error Resume Next

Application.OnTime Runst, "Copy2cell"

On Error GoTo 0

End If

End Sub

Sub copy_stop() '종료

Application.OnKey "{F12}"

End Sub

Public Sub stop_key() '중지

on_sw = Not on_sw

If on_sw = True Then

Call Copy2cell

MsgBox "중지는 F12 키를 누르세요!", vbInformation, "중지 방법"

Else

On Error Resume Next

Application.OnTime Runst, "Copy2cell", schedule:=False

On Error GoTo 0

MsgBox "실행을 중지합니다!", vbInformation, "중 지"

End If

End Sub

Answer 1

저희는 사용자를 위하여 번역된 내용을 제공하고 있습니다. 문법적 오류가 있더라도 양해바랍니다.

OneDrive에서 샘플 파일을 공유하여 문제를 더 분석할 수 있습니까?

Answer 2

안녕하세요 

답변 감사드립니다.

하지만 통합문서에 "Sheet1" 이 있습니다.
그리고 단독 실행시에는 아무런 오류없이 진행을 하다가

새로운 통합문서를 추가로 열면 오류가 시작됩니다.

Answer 3

저희는 사용자를 위하여 번역된 내용을 제공하고 있습니다. 문법적 오류가 있더라도 양해바랍니다.

안녕 wabbaekim. 나는 RN, 당신 같은 독립적 인 고문과 마이크로 소프트 사용자입니다.

스크린샷을 기반으로 매크로를 실행하는 통합문서에서 "Sheet1"이 없을 때 오류가 발생합니다.