sayıları ve renkleri makro ile silme

[NADİR YILDIZ]

arkadaşlar aşağıdaki kod ile c2:k1000 alanındaki yazılar siliniyor
c2:k1000 arası renkli alanlarda oluyor yazıyla birlikte renkleri de silmek için makro kodu olan var mı

Private Sub CommandButton1_Click()
Range("C2:K1000").ClearContents
End Sub

 

[Tevfik_Kursun]

Merhaba,

Private Sub CommandButton1_Click()
    Range("C2:K1000").Select
    Selection.ClearContents
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A2").Select
End Sub

Kodunuzu bununla değiştirin lütfen.
İyi çalışmalar

 

[NADİR YILDIZ]

Teşekkür ederim

iyi çalışmalar

 

[Tevfik_Kursun]

Rica ederim, dönüş yaptığınız için ben teşekkür ederim.
İyi çalışmalar

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Temizle()
    With Range("C2:K1000")
        .ClearContents
        .Interior.ColorIndex = xlNone
    End With
End Sub

 

[NADİR YILDIZ]

Teşekkürler Korhan Bey

iyi çalışmalar