Kes Kopyala ve Silme işlemi yapılamasın

[Ahmet Sami]

Merhaba Arkadaşlar Sayfa1 de bulunan B6 ile K50 arasındaki verilerim formüllü bir şekilde buruda bulunuyor. Sizden istediğim yardım B6:K50 arasındaki hücrelerin kopyalanmaması kesilmemesi silinmemesi (delete tuşu ile veya hücre içine girerek).

 

[askm]

Bu alanı kilitlerseniz belirttiğiniz işlemler yapılmaz.

 

[turist]

Makro ile denemek isterseniz:
Sayfa Koduna uygulayıp test edin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [B6:K50]) Is Nothing Then [A1].Select
End Sub

 

[Ahmet Sami]

İlginizden dolayı teşekkür ederim arkadaşlar sağolun. Kod güzel oldu.

 

[turist]

Sağ olun, iyi çalışmalar.