Soru Belirli hücrelere yapıştırma sorunu

[eminsait034]

Merhabalar bana bir konuda yardımcı olabilirseniz çok sevinirim.
sorun şu bana günlük olarak dosya gönderiyorlar bu dosyadaki verileri seçip kopyala diyorum ve bendeki dosyaya kopyalayıp yapıştırıyorum ve şöyle birşey düşündüm. bendeki dosyaya bir düğme koydum ve bastığımda aşağıdaki kod çalışıyor ama bana gönderdikleri dosyadaki veriyi kopyalamayıp düğmeye bastığımda hata veriyor. istediğim kopyalamayıp düğmeye bastığımda hata yerine "kopyalanmadı" gibi uyarı versin. bunu nasıl yapabilirim? şimdiden teşekkürler!

Sub YAPIŞTIR()
'
' YAPIŞTIR Makro
'

'
ActiveSheet.Unprotect
Range("D23:J30").Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowInsertingHyperlinks:=True, _
AllowSorting:=True, AllowFiltering:=True
ActiveWorkbook.Save
MsgBox "işlem bitti", vbInformation
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub YAPIŞTIR()
'
' YAPIŞTIR Makro
'

'
On Error GoTo Hata
ActiveSheet.Unprotect
Range("D23:J30").Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowInsertingHyperlinks:=True, _
AllowSorting:=True, AllowFiltering:=True
ActiveWorkbook.Save
MsgBox "işlem bitti", vbInformation
Exit Sub
Hata: MsgBox "Kopyalanamadı!", vbCritical
End Sub

 

[eminsait034]

Deneyiniz.

Option Explicit

Sub YAPIŞTIR()
'
' YAPIŞTIR Makro
'

'
On Error GoTo Hata
ActiveSheet.Unprotect
Range("D23:J30").Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowInsertingHyperlinks:=True, _
AllowSorting:=True, AllowFiltering:=True
ActiveWorkbook.Save
MsgBox "işlem bitti", vbInformation
Exit Sub
Hata: MsgBox "Kopyalanamadı!", vbCritical
End Sub

Çok teşekkür ederim hocam aynen istediğim buydu