Yapıştır makrosu

[mavi674]

Selam,

Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Bu makroyu, herhangi bir hücreyi kopyaladıktan sonra butona tıklayarak değer yapıştır yapıyorum.
Sorum şu:
Kopyalama yapmadan zaman tıkladığımda hata veriyor, acaba hata yerine "Kopyalama Yapmadınız" mesajı versin...
Teşekkürler...

 

[zozotr]

Deneyiniz.

Sub KOPYALAMAYOK()
    On Error GoTo NoCopy ' Hata durumunda NoCopy etiketine git

    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Exit Sub

NoCopy:
    MsgBox "Kopyalama Yapmadınız", vbExclamation ' Hata mesajını göster
End Sub

 

[muhasebeciyiz]

Sub Yapıştır()
On Error Resume Next
If Not IsEmpty(Selection) Then
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
MsgBox "Kopyalama Yapmadınız"
End If
On Error GoTo 0
End Sub

Sunulan alternatif makro, kopyalama işlemi yapılmadan butona tıklandığında "Kopyalama Yapmadınız" mesajı göstererek kullanıcıyı bilgilendirir ve hata durumunda makronun çalışmasını durdurur. Kopyalama işlemi yapıldıktan sonra "A4" hücresine değer yapıştırma işlemi gerçekleşmez. Bu nedenle, makronun işlevselliğini göz önünde bulundurarak sizin için en uygun olanı seçmeniz önemlidir.

 

[mavi674]

Teşekkürlerimi sunarım.
Öğleden beri uğraşıyorum, siteden çok formları inceledim ama sonuç alamamıştım, sağ olun...

 

[zozotr]

Rica ederim. Kolaylıklar dilerim.