Renkli satırları silmek!

Katılım
7 Mayıs 2006
Mesajlar
113
Excel Vers. ve Dili
Microsoft Office Excel 2010 TR
Altın Üyelik Bitiş Tarihi
28.03.2023
renklı hucrelerı yada satıları tek tek crtl ıle secıp sılıyorum makro yazmadan baska yontem ıle bu satırları sılebılır mıyız?[/B]
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

300 olan satır sayınızı değiştirebilirsiniz
Interior.ColorIndex = 3 kırmızı 41 mavi için siz hangi renkleri silecekseniz
o rengi ilave ediniz.

Kod:
Sub renklisatirsil1()
Dim hucre, a As Integer
For hucre = 300 To 1 Step -1
If Cells(hucre, 1).Interior.ColorIndex = 3 Or Cells(hucre, 1).Interior.ColorIndex = 41 Then
Cells(hucre, 1).EntireRow.Delete
End If
Next
End Sub
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Zafer Bey'in koduna küçük bir ilave

Kod:
If Cells(hucre, 1).Interior.ColorIndex = 3 Or Cells(hucre, 1).Interior.ColorIndex Cells(hucre, 1).Interior.ColorIndex = 41 Then

olan satırı

Kod:
If Cells(hucre, 1).Interior.ColorIndex <> xlNone Then
olarak değiştirirseniz tüm renkli satırlar silinecektir.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Çok doğru:kafa: :kafa:

Teşekkürler.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Sn. zafer beyin &#231;&#246;z&#252;m&#252;ne alternatif olarak a&#351;a&#287;&#305;daki koduda kullanabilirsiniz. Ger&#231;i siz makro olmadan demi&#351;siniz ama bu i&#351;lemi makro kullanmadan CTRL+H (De&#287;i&#351;tir) men&#252;s&#252; ile renkleri de&#287;i&#351;tirerek yapabilirsiniz. Bu men&#252;deki aranan k&#305;sm&#305;ndaki bi&#231;im b&#246;l&#252;m&#252;ne de&#287;i&#351;tirece&#287;iniz dolgu rengini se&#231;ip yeni de&#287;er k&#305;sm&#305;ndaki bi&#231;im b&#246;l&#252;m&#252;nede dolgu rengi yok se&#231;imini yap&#305;p t&#252;m&#252;n&#252; de&#287;i&#351;tir derseniz. Renkleri silmeden sadece dolgu rengini de&#287;i&#351;tirebilirsiniz.

A&#351;a&#287;&#305;daki kod A s&#252;tunundaki h&#252;creleri kontrol eder ve dolgu rengi varsay&#305;lan (xlNone) olmayan sat&#305;rlar&#305; siler.

Kod:
Sub RENKL&#304;_SATIRLARI_S&#304;L()
    For X = 1000 To 1 Step -1
    If Cells(X, 1).Interior.ColorIndex <> xlNone Then Cells(X, 1).EntireRow.Delete
    Next
    MsgBox "Renkli sat&#305;rlar silinmi&#351;tir.", vbInformation
End Sub
 
Üst