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

hakki83 · Cumartesi, 15:19

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 · Cumartesi, 16:10

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

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

hakki83 · Cumartesi, 16:52

SNNAY' Alıntı:
Deneyiniz; temizlenecek hücreyi seçtiğinizde çalışır;

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

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 · Cumartesi, 16:55

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 · Cumartesi, 17:02

hakki83' Alıntı:
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.

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

hakki83 · Cumartesi, 17:03

Anladım hocam sağ olunuz.