renkli satırları silme

[ilkiliroglu]

arkadaşlar bir sayfada kimi satırlar beyaz kimi satırlar sarı ben sarı satırları silmek istiyorum nasıl bir makro kullanabilirim konu biraz acildir ilginiz için şimdiden teşekkürler

 

[bedersu]

Sub sarı_sil()
For i = 1 To 65536
If Cells(i, 1).Interior.ColorIndex = 6 Then Cells(i, 1).Rows.EntireRow.Delete
Next

End Sub

 

[Recep İpek]

Aşağıdaki deneyiniz

Sub RenkSil()
On Error Resume Next
For i = 100 To 1 Step -1
If Cells(i, "a").Interior.ColorIndex = 36 Then Cells(i, "a").EntireRow.Delete Shift:=xlUp
Next i
MsgBox "Bitti"
[a1].Select
End Sub

 

[ilkiliroglu]

sonuç alamadım

dosyayı ekliyorum sonuç almadım bide siz görün isterseniz

 

[ileriexcel]

Revize kod sahibi Ripek
Sub RenkSil()
On Error Resume Next
For i = 100 To 1 Step -1
If Cells(i, "b").Interior.ColorIndex = 6 Then Cells(i, "b").EntireRow.Delete Shift:=xlUp
Next i
MsgBox "Bitti"
[a1].Select
End Sub

 

[baydeniro]

Sayın ileriexcel elinize sağlık, harika bir kod olmuş.

 

[ilkiliroglu]

sonuç

sayın ileri excel sanırım makro doğru ama tümünü silkmedi dosyanın orjinalini gönderiyorum bir yerde bir yalnış mı yaptım bakarmısınız

 

[baydeniro]

Hocam aynı kodu ben de uyguladım, gayet güzel olduç. Ekte dosyayı incele. Senin dosyadaki örneği uyguladım. Yalnız bu şekilde butonu da siliyor.

 

[Recep İpek]

Buton silinecek renkli alanların üzerinde bulunmaması gerekmektedir.

 

[ileriexcel]

renkli satır

Oluşturulan menü ile buton silinmesi engellendi.

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub Düğme2_Tıklat()
For i = 100 To 1 Step -1
If Cells(i, "b").Interior.ColorIndex = 6 Then Cells(i, "b").EntireRow.Clear
Next
End Sub

Not : Oluşturulan butonu silmez.

 

[Necdet]

Mevcut kodlar üzerinde ufak bir değişiklik yaparak dosyayı ekliyorum.
Butonun silinmemesi için butonun Format Control menüsünden Don't Move Or Size With Cells (Türkçesini bilmiyorum atacam, hücrelerle birlikte hareket etme ve yeniden boyutlanma) yı seçerseniz butona zaten birşey olmaz

 

[baydeniro]

Teşekkürler

Sayın necdet_yesertener çok teşekkürler. Sayenizde yeni bir şey daha öğrenmiş oldum.

 

[baydeniro]

SORU

Makrodaki " ColorIndex = 6 " kısımı sadece sarı renk ile boyalı alanları siliyor. Peki ColorIndex = 6 yerine ne yazılmalı ki tüm renkli alanları silsin ?

 

[Ali]

= yerine >= 1 yazınız.

 

[baydeniro]

Teşekkürler

Sayın Ali yardımınız için çok çok teşekkürler.