kopyalama hatası

[Volkan Öztürk]

Aşağıdaki kodlarda kırmızıya boyalı satırda hata veriyor. Aynı kodlar makroyu bi şekle atadığımda sorun çıkarmıyor ama commandbutton da hata veriyor.

Sizce neden?

Private Sub YENİLE_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("LİSTE").Select
Columns("B:B").Select
Selection.COPY
Sheets("MENÜ").Select
Columns("P").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[N.Ziya Hiçdurmaz]

Herhangi bir hata oluşmadı.
Private Sub CommandButton1_Click()
Sheets("LİSTE").Select
Columns("B:B").Select
Selection.Copy
Sheets("MENÜ").Select
Columns("P").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub