پرسش فعال بودن paste

[kazem1359]

سلام خدمت دوستان و اساتید
بنده یکسری اطلاعات از یک فایل اکسل (فایل اول ) copy می کنم و می خواهم در فایل دیگه ( فایل دوم) paste کنم در کد زیر چه کدی باید اضافه بکنم که اگر منوی paste در فایل دوم فعال نبود پیام بده که " موردی برای paste کردن ندارین ".
یعنی اگر تا عملیات کپی در فایل اول انجام نشده در فایل دوم با اجرا ماکرو که مدش در زیر هست پیام بده که " موردی برای paste کردن ندارین ".
منظورم را در عکس نشان می دم ..... http://uupload.ir/files/s0l4_untitled.jpg

کد بنده در فایل دوم :

Private Sub CommandButton14_Click()
    Sheets("qekha").Select
    Range("C3").Select
    ActiveSheet.Paste
Range("A1").Select
End Sub

ممنون میشم کمک کنید.

[kazem1359]

لطفا یکی از اساتید کمک کنه ممنون میشم

[kazem1359]

سلام لطفا بگین ایا میشه یا نمیشه؟ لااقل تکلیف خود را از بابت این تیکت بدانیم و منتظر نباشیم ؟ ممنون

[Amir Ghasemiyan]

سلام دوست عزيز
براي بررسي اينكه عمليات كپي انجام شده يا نه بايد چك كنيد كليپ بورد خالي هست يا نه. براي اينكار شما نياز داريد كتابخانه Microsoft Form 2.0 رو فعال كنيد.
بعد از طريق اين كد چك كنيد كه كليپ بورد خالي هست يا نه

Set MyData = New DataObject
MyData.GetFromClipboard
a = MyData.GetText(1)

حالا ميتونيد بگيد اگر a خالي نبود عمليات paste رو انجام بده