Excelde Kopyalama Yapıp Sadece Değerleri Yapıştırma

[mustafa1205]

Örnek dosya eklemek istedim ancak dosya dan çok genel durum bir sorum olduğu için eklemedim. Bir dosyam var ve bu dosyama mecburen başka bir excel çalışma kitabından veriler aktarılmaktadır. Bilmeyen personel direkt kopyala yapıştır şeklinde yaptığı için çalışma sayfasının yapısını bozmaktadır. Başka dosyadan kopyalama olsun ancak benim ilgili sayfama sadece değerleri yapıştırabilsin. Yani yapıştırma seçeneklerinde sadece değerleri yapıştırma seçeneği kalsın. Buna imkan veren kod varmıdır acaba.

 

[Korhan Ayhan]

Ekteki dosyada bazı kısıtlamalar yaptım. %100 çözüm olmasada temel kullanıcıları kısıtlamış olursunuz.

 

[mustafa1205]

Hocam çok teşekkür ederim. Biraz geç gördüm cevabınızı. Hakkınızı helal edin. Tam istediğim gibi olmuş. Çok elzem değil. Sadece sağ click yaptığımızda yapıştır seçenekleri çıkmıyor. Kod da bu uyarlama yapılabilir mi ?

 

[Greenblacksea53]

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim cb As CommandBar
    Dim ctrl As CommandBarControl
    Set cb = Application.CommandBars("Cell")
    For Each ctrl In cb.Controls
        If ctrl.Caption = "Değerleri Yapıştır" Then
            ctrl.Delete
        End If
    Next ctrl
    Set ctrl = cb.Controls.Add(msoControlButton)
    With ctrl
        .Caption = "Değerleri Yapıştır"
        .OnAction = "Paste_Values_Only"
    End With
End Sub


Aşagıdaki kodları mödül ekleyip kopyaların

Sub Paste_Values_Only()
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Bunları yapınsanız sag clıck menüsüne değerleri yapıştır çıkacak.

 

[mustafa1205]

Teşekkür ederim Sayın Greenblacksea53. Ancak benim istediğim sağ click yapıldığında direkt yapıştır özelliğini kaldırmak. Sizin çalışmanızda en altta değerleri yapıştır var ama insanlar onu görmüyor direkt yapıştırma yapınca sıkıntı çıkıyor malesef. Yoksa Korhan Hocamın çalışması çok güzel çalışıyor. Sadece imkan dahilinde sağ click özelliği de olursa diye yazmıştım.

 

[Korhan Ayhan]

Merhaba,

Ekteki dosyada sayfada sağ tıklama menülerinde biraz daha iyileştirme yaptım. Bu haliyle biraz daha işlevsel oldu gibi..

 

[mustafa1205]

Hocam çok teşekkür ederim gayet güzel olmuş. Çok sağolun. Emeğinize sağlık