Hata mesajı sorunu

[ASLAN7410]

Merhaba arkadaşlar.

Başka bir sayfadan Ctrl+C ile kopyalama yapıyorum, aşağıdaki koduda yapıştır için kullanıyorum, butona tekrar basıldığında ekte gönderdiğim hata mesajı geliyor. Benim istediğim ekrana hata mesajı geldiğinde MsgBox mesajı olarak Kopyalama yapmadınız şeklinde uyarı mesajı gelebilir mi?

Bir program yapmaya çalışıyorum, bu programıda arkadaşlarla ortak kullanacağız yapıştırma işlemini genelde yanlış yerleri seçerek yapıştırdıkları için yanlış sonuçlar olduğu için Ctrl+V kullanmayıp yapıştır işlemini butonla yapıyorum.

Sub Kaydet()
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Yardımcı olur musunuz?

 

[Orion1]

Buyurun.

Sub Kaydet()
    Range("A2").Select
    On Error GoTo hata
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Exit Sub
hata:
MsgBox "Kopyalama yapmadınız!", vbCritical, "U Y A R I"
End Sub

 

[ASLAN7410]

Sayın Evren Bey ellerinize sağlık çok süper oldu, kod içerisine Range("A2").Select kodunu nereye koyduysam çalıştıramadım, butonla yapıştırdıktan sonra yapıştırılan sayfa seçili kalıyor.

 

[Orion1]

Aktif sayfanın a2 hücresinden itibaren yapıştırır.
Kırmızı satırda ise yapıştırma işlemi bittikten sonra sayfa2 seçilir.

Sub Kaydet()
    Range("A2").Select
    On Error GoTo hata
    ActiveSheet.Paste
    Application.CutCopyMode = False
    [B][COLOR="Red"]Sheets("Sayfa2").Select[/COLOR][/B]
    Exit Sub
hata:
MsgBox "Kopyalama yapmadınız!", vbCritical, "U Y A R I"
End Sub

 

[ASLAN7410]

Sayın Evren Bey aşağıdaki kodu yapıştır için kullanıyorum, yapıştırdıktan sonra sayfa seçili kalıyor.

Sub Kaydet()
    Sheets("Sayfa1").Select
    Columns("A:A").ColumnWidth = 18.57
    Columns("B:B").ColumnWidth = 19.86
    Columns("C:C").ColumnWidth = 20.29
    Columns("D:D").ColumnWidth = 21.43

    Range("A1").Select
    On Error GoTo hata
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Exit Sub
hata:
MsgBox "Kopyalama yapmadınız!", vbCritical, "U Y A R I"
End Sub

Gönderdiğiniz Sheets("Sayfa1").Select kodu dediğiniz yere yapıştırdım hala sayfa seçili kalıyor.

 

[Orion1]

Buyurun.

Sub Kaydet()
    Sheets("Sayfa1").Select
    Columns("A:A").ColumnWidth = 18.57
    Columns("B:B").ColumnWidth = 19.86
    Columns("C:C").ColumnWidth = 20.29
    Columns("D:D").ColumnWidth = 21.43

    Range("A1").Select
    On Error GoTo hata
    ActiveSheet.Paste
    Application.CutCopyMode = False
   [B][COLOR="Red"] Range("A2").Select[/COLOR][/B]
    Exit Sub
hata:
MsgBox "Kopyalama yapmadınız!", vbCritical, "U Y A R I"
End Sub

 

[ASLAN7410]

Sayın Evren Bey ellerinize sağlık tam istediğim gibi oldu, Allah razı olsun.

Hayırlı çalışmalar hayırlı akşamlar.

 

[Orion1]

Sayın Evren Bey ellerinize sağlık tam istediğim gibi oldu, Allah razı olsun.

Hayırlı çalışmalar hayırlı akşamlar.

Rica ederim.
İyi çalışmalar.