yalnızca istenilen renkleri silmek.

[ynmcan]

Merhaba arkadaşlar;
Userform üzerindeki bir buton ile excel sayfasındaki beli hücre aralığındaki yeşil rekli hücri silmek istiyorum. Diğer renkler silinmiyecek.
Ben aşağıda yazdığım kod ile renkleri siliyorum ama yalnızca yeşil olanları silmek istiyorum. yardımcı olursanız sevinirim.
Örnek dosya ekte.

Private Sub CommandButton1_Click()
Sayfa1.Range("B2:AD24").Interior.Color = &HFFFFFF
End Sub

 

[Orion1]

Yeşil renkleri renksizi yapar.

Sub yesil_hucreleri_sil()
Dim hcr As Range
For Each hcr In Range("B2:AD24")
    If hcr.Interior.ColorIndex = 4 Then hcr.Interior.ColorIndex = xlNone
Next
End Sub

 

[ynmcan]

Sayın Enver GİZLEN teşekkür ederim hayırlı akşamlar.

 

[Orion1]

Sayın Enver GİZLEN teşekkür ederim hayırlı akşamlar.

Rica ederim.
iyi geceler.

 

[tuncismet]

Yeşil renkleri renksizi yapar.

Sub yesil_hucreleri_sil()
Dim hcr As Range
For Each hcr In Range("B2:AD24")
    If hcr.Interior.ColorIndex = 4 Then hcr.Interior.ColorIndex = xlNone
Next
End Sub

Sayın Enver GİZLEN,
Yanlız yeşil renkli hücreleri silmek için kodda nasıl bir değişiklik yapmam lazım.Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Kodun içinde geçen If hcr.Interior.ColorIndex = 4 Then hcr.Interior.ColorIndex = xlNone satırını aşağıdaki şekilde değiştirip denermisiniz.

If hcr.Interior.ColorIndex = 4 Then hcr.Value = Empty

 

[tuncismet]

Malesef çalışmadı.

 

[Korhan Ayhan]

Selamlar,

Önerdiğim kod yeşil hücrelerin içeriklerini temizler. Hücreyi tamamen silmez.

 

[tuncismet]

Selamlar,

Önerdiğim kod yeşil hücrelerin içeriklerini temizler. Hücreyi tamamen silmez.

Çok teşekkür ederim.Kod yeşil hücrelerin içeriklerini temizliyor.