Yapıştırılacak bir hücre yoksa uyarı versin

[Astalavista58]

Sub Yapistir()
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Merhaba, hayırlı günler. Yukarıdaki gibi basit bir kod var. Bu kodda, eğer yapıştırılacak bir değer yoksa, uyarı vermesini nasıl sağlayabilirim

 

[Muzaffer Ali]

Merhaba.

Sub Yapistir()
    Range("B2").Select
    If Selection = "" Then
        MsgBox "Değer yok."
        Exit Sub
    End If
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[Astalavista58]

Çok teşekkür ederim elinize sağlık hocam Allah razı olsun

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin. Ecmain.