Koşullu biçimlendirme olan hücredeki değeri başka bir hücreye yapıştırırken aynı biçimler ile yapıştırılmasını istemiyorum.

[hamza2011]

Merhabalar,
Öncelikle herkese sağlıklı günler diliyorum. Lütfen aşağıdaki konu hakkında yardım edermisiniz.

Örnek dosyadaki D2 hücresinde koşullu biçimlendirme var. Bu hücreyi kopyalayıp başka bir hücreye özel yapıştır seçeneği olmadan düz yapıştırdığımda aynı koşullu biçimlendirmeleri alıyor. Fakat bildiğiniz gibi sağ tuş "123" ya da özel yapıştır "Değerleri" dediğimde sorun olmuyor.

İstediğim kopyalanan hücrenin başka bir hücreye yapıştırılmasının sadece "123" ya da özel yapıştır "Değerleri" ile yapılabilmesi ve bunun makro ile engellenmesi,
Bunun haricindeki yapıştırlarda örneğin "Sadece sağ tuş "123" ya da özel yapıştır "Değerleri" yöntemi ile yapıştırabilirsiniz" mesajının vermesinin sağlanması.

 

[NIGRA]

Bunu deneyebilir misiniz

Sub degerleri_yapistir()
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[hamza2011]

Bunu deneyebilir misiniz

Sub degerleri_yapistir()
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Merhaba,
İlgiliniz için teşekkür ederim.

Kopyalanan hücrenin başka bir hücreye ya da hücrelere yapıştırma işini sadece sağ tuş ile "123" ile ya da özel yapıştırdan "Değerleri" koşulu ile yapılabilsin ve diğer yapıştırma özellikleri engellesin. Msgbox ile de "Sadece sağ tuş "123" ya da özel yapıştır "Değerleri" yöntemi ile yapıştırabilirsiniz" mesajını versin.
Bu şekilde bir makro yapılabilir mi?

 

[NIGRA]

Kopyalanan hücrenin başka bir hücreye ya da hücrelere yapıştırma işini sadece sağ tuş ile "123" ile ya da özel yapıştırdan

bu kısımda kastınız ctrl c ve ctrl v yi engellemek mi?

 

[hamza2011]

bu kısımda kastınız ctrl c ve ctrl v yi engellemek mi?

Evet, ctrl c ve ctrl v yi engellemek. Kısacası kopyalama yapılan bir değere -sağ tuş ile "123" ile ya da özel yapıştırdan "Değerleri" koşulu- haricinde yapıştırma yapılamasın.

 

[NIGRA]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.OnKey "^v", ""
End Sub


Bu kodu bi dener misiniz.