Çözüldü İki kodu birleştirmek

[hakki83]

Merhaba hocalarımız

Aşağıdaki Sub kodunu
SelectionChange kodunun içine dahil edebilir miyiz, tek kod olsun diye.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "{DELETE}", "Deletee"
End Sub

Sub Deletee()
Dim Cell As Range
For Each Cell In Selection
Cell.ClearComments
Cell.ClearContents
Next Cell
End Sub

 

[SNNAY]

Deneyiniz; temizlenecek hücreyi seçtiğinizde çalışır;

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[hakki83]

Deneyiniz; temizlenecek hücreyi seçtiğinizde çalışır;

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

SNNAY hocam emeğinize sağlık fakat hücrenin üzerine gelince her şey siliniyor.

Benim istediğim öyle değil, ilk mesajımda paylaştığım gibi DELETE tuşuyla silinmesi.

Sadece yapılabiliyorsa şöyle bir şey yapılacak;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "{DELETE}"

Dim Cell As Range
For Each Cell In Selection
Cell.ClearComments
Cell.ClearContents
Next Cell
End Sub

 

[hakki83]

Yani

If Delete tuşuna basılırsa
Then Seçili Hücredeki veya Seçili Hücrelerdeki
Açıklama : ClearComments olacak
Hücre İçeriği : ClearContents olacak

 

[SNNAY]

SNNAY hocam emeğinize sağlık fakat hücrenin üzerine gelince her şey siliniyor.

Benim istediğim öyle değil, ilk mesajımda paylaştığım gibi DELETE tuşuyla silinmesi.

Sadece yapılabiliyorsa şöyle bir şey yapılacak;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "{DELETE}"

Dim Cell As Range
For Each Cell In Selection
Cell.ClearComments
Cell.ClearContents
Next Cell
End Sub

Bu şekilde olmaz ilk yazdığınız kod şeklinde olur. yani Seçim yapılır delete tuşuna basıldığında deletee makrosu çalışır.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[hakki83]

Anladım hocam sağ olunuz.