• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
hakki83

hakki83

Yeni Üye
Katılım
9 Ağu 2021
Mesajlar
767
Çözümler
3
Aldığı beğeni
234
Excel V
Office 2016 TR
Konu Sahibi
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
 
Çözüm
SNNAY
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
Genişletmek için tıkla...
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:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
SNNAY' Alıntı:
Deneyiniz; temizlenecek hücreyi seçtiğinizde çalışır;

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
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
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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
 
Olumlu oy 0 Negatif oyla
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
Genişletmek için tıkla...
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:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst