Delete ile hücre içeriği ve hücre rengi silmek

[cebelitarık]

Forumun Değerli Üyeleri

Örneğin belirli bir aralıktaki hücrelerde değerler var ve bazı değerlerin bulunduğu hücreler de çeşitli renklerle boyanmış vaziyettedir.

Belirli bir aralığı seçip veya tek tek delete tuşuna bastığımızda hem hücre değerleri silinsin hemde renkler silinsin istiyorum. Mümkünmüdür?
Saygılarımla

 

[Necdet]

Merhaba,

Aşağıdaki kodları ThisWorkbook a kopyalayınız.

Private Sub Workbook_Open()
Application.OnKey "{DEL}", "Sil"
End Sub

Aşağıdaki kodları da bir müdüe kopyalayınız. Seçtiğiniz hücrelerin içeriğini ve renkleri silecektir.

Sub Sil()
Selection.Font.ColorIndex = xlAutomatic
Selection.Interior.ColorIndex = xlAutomatic
Selection.ClearContents
End Sub

 

[cebelitarık]

Sayın Necdet Yeşertener
İlginiz için çok teşekkür ederim.
Galiba soruyu tam soramamışım. Özür dilerim.
Hedef hücreye delete işlemi uygulanırsa hedef hücrenin rengide silinecek
Aşağıdaki kod gibi bir şey olacak ama tam çalışmadı hata veriyor.Çalışsada sonuç vermiyor.
Saygılarımla

 If Target.Application.OnKey = "{Del}" Then Target.Rows.Interior.ColorIndex = x1none

 

[Necdet]

Merhaba,

Sil makrosunu aşağıdaki şekilde değiştiriniz.

Sub Sil()
    With ActiveCell
        .Font.ColorIndex = xlAutomatic
        .Interior.ColorIndex = xlAutomatic
        .ClearContents
    End With
End Sub

 

[harziyan]

Sub Makro1()
    Selection.ClearContents
    Selection.Interior.ColorIndex = xlNone
End Sub

Bu şekilde olur mu? (Koda kısayol tuşu atadınız mı oldu bitti)

 

[harziyan]

pardon hocam