Excel エラーが出た場合のみ上書き保存しないVBA

Question

お世話になります。
先日こちらで質問させていただいた内容で追加でお伺いしたいことがります。
下記VBAで転記先シートに自動転記出来ているのですがこの場合、上書き保存して自動でシートを閉じていますが
エラーが出た場合のみ上書き保存しないでシートも閉じないVBAにするにはどのようにすれば良いでしょうか。
ご教授いただければ幸いです。
よろしくお願い致します。

Dim aws As Worksheet
Dim wb As Workbook
Dim ws As Worksheet
Dim lastRow As Long

Set aws = ActiveSheet
Set wb = Workbooks.Open(Filename:="C:\Users\tkyks\Desktop\data.xlsx")
Set ws = wb.Worksheets(1)

lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
If ws.Cells(lastRow, 1) <> "" Then lastRow = lastRow + 1

aws.Range("A2:C2").Copy ws.Cells(lastRow, 1)
ws.Cells(lastRow, 1).PasteSpecial Paste:=xlPasteValues

If Workbooks.Count > 1 Then
        ActiveWorkbook.Close SaveChanges:=True
    Else
        ActiveWorkbook.Save
        Application.Quit
    End If

End Sub

Answer 1

イメージに合わなかったら、無視してください。

Comments

[tkyk.]

syousuke.33さん
コメントありがとうございます！
当方VBAの超初心者のためあまり理解できず申し訳ありません。
また質問させていただくかと思いますのでその際は宜しくお願い申し上げます。

Answer 2

If Err.Number <> 0 Then
Exit Sub
End If
でエラーが出た時は何も処理はしないことになります。

http://officetanaka.net/excel/vba/tips/tips104.htm

Comments

[tkyk.]

Taka1108さん
ありがとうございます。
すみません。
私の記載が悪かったのですが、実はエラーではなく転記先シートで”重複しています”という
メッセージが出た場合のみ何も処理をしないVBAを知りたかったです。
よろしくお願い致します。

[Taka1108]

転送先シートのコピーする場所にデーターが有って上書き保存されたくないという意味でしょうか？
それであれば、あらかじめコピー先にデーターが無いことを確認して、あれば終了とすればよいかと思います。lastRow = lastRow + 1の下に次のコードを入れてはどうでしょうか。

With ws
Dim c As Range
For Each c In .Range(.Cells(lastRow, 1), .Cells(lastRow, 3))
If c.Value <> "" Then
MsgBox "重複のため終了します"
wb.Close
Exit Sub
End If
Next
End With

[tkyk.]

Taka1108さん
コメントありがとうございます。
転記先のVBAは以下になります。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
With Application
Set Target = Intersect(Target, Range("A1:A10"))
If Target Is Nothing Then End
For Each r In Target
If .CountIf(Range("A1:A10"), r) > 1 Then
MsgBox "重複しています。", vbCritical
.EnableEvents = False
r.EntireRow.Delete
.EnableEvents = True
End If
Next
End With
End Sub

上記のVBAの通り、A列に重複した値が転記元から転記されると「重複しています。」というメッセージが出て行ごと削除されます。
この「重複しています。」というメッセージが出た場合のみ上書き保存せずシートも閉じない方法を知りたいです。
最初に質問させいただいた転記元のVBAだと全て上書き保存されシートも閉じてしまいます。
私の説明が非常に分かりづらく申し訳ありません。
どうぞ宜しくお願い致します。

[Taka1108]

イベントプロシージャがあるのであれば、事前に重複するか否かを確認して、重複するのであればプロシージャーを止めるという方法になります。
lastRow = lastRow + 1の下に次のコードを入れてはどうでしょうか。

With ws
For i = 1 To 10
If .Cells(i, 1) = aws.Range("A2") Then
MsgBox "重複のため処理を中止します", vbCritical
Exit Sub
End If
Next i
End With

[tkyk.]

Taka1108さん
何度もありがとうございます！
教えていただいたコードで無事出来ました。
本当に助かりました。感謝いたします。
また質問することがあるかと思いますが、その際は宜しくお願い申し上げます。

Answer 3

「On Error GoTo」と「Exit Sub」｜VBA入門

これで、エラーが出た場合の処理というものが書けます。
それで上書き保存しないでシートも閉じないコードを書きましょう

Comments

[tkyk.]

y_waiwaiさん
ありがとうございます！
大変勉強になります。
参考にさせていただきます。
また何か分からなかったらよろしくお願い致します。