Renkli alanlarıın dolgusunu kaldırma

[levo26]

Merhaba;
Makro ile formüllü hücreleri parlak yeşil olarak renklendiriyorum. Acaba;

Parlak yeşil olan hücrelerin dolgusunu nasıl kaldırabilirim. Ekte örnek bir dosya var. Önereceğinizi farklı boyutlardaki tablolarda kullanacağımdan, sayfa üzerinde (tümünde) parlak yeşillerin dolgusunu kaldıracak. Orjinalinde siyah dolgular var. Bunlara dokunmayacak.
Önerilerinizi bekliyorum arkadaşlar.

 

[levo26]

Fikri olan yok mu?

 

[parametre]

calısmanı biraz daha ac acık değil neye gore kaldıracak bunun hesaplaması nasıl olacak bunları biz bilemeyiz sorunun acabildigin kadar aç yaptıgın çalısmayı birtek sen biliyorsun ona gore yardımcı olmanı isteriz kolay gelsin

 

[levo26]

Tablo üzerinde yada sayfada dolgu no (4 "Parlak yeşil") ile doldurulmuş olanların dolgu renkleri kaldırılması gerekiyor. Sadece parlak yeşil dolgulular.

 

[uzmanamele]

merhaba

bunu deneyiniz.

Sub YesilSil()
Dim hcr As Range
For Each hcr In Range("D6:J14")
If hcr.Interior.ColorIndex = 4 Then
hcr.Interior.ColorIndex = xlNone
End If
Next
End Sub

 

[levo26]

Sayın Uzmanamele;

Ben tabloyu örnek vermiştim. Hücre aralığı D6:J14 şeklinde değilde tüm sayfa üzerinde yap dersek. Kodları nasıl revize edeceğiz.

 

[uzmanamele]

merhaba

bunu deneyiniz.

Sub YesilSil()
Dim hcr As Range
sag_alt = ActiveCell.SpecialCells(xlLastCell).Address(RowAbsolute:=False, ColumnAbsolute:=False)
For Each hcr In Range("a1" & ":" & sag_alt)
If hcr.Interior.ColorIndex = 4 Then
hcr.Interior.ColorIndex = xlNone
End If
Next
End Sub

 

[meda58]

benim çok işime yaradı teşekkürler

 

[levo26]

merhaba

bunu deneyiniz.

Sub YesilSil()
Dim hcr As Range
sag_alt = ActiveCell.SpecialCells(xlLastCell).Address(RowAbsolute:=False, ColumnAbsolute:=False)
For Each hcr In Range("a1" & ":" & sag_alt)
If hcr.Interior.ColorIndex = 4 Then
hcr.Interior.ColorIndex = xlNone
End If
Next
End Sub

Sn. Uzmanamele,

Ellerinize sağlık. Tamamdır. Teşekkürler.