Kod:
Option Explicit
Sub RenklileriGizle()
Dim ED As Long
For ED = 1 To ActiveSheet.Rows.Count.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row
If Cells(ED, 1).Interior.Color = 65535 Then '65535 Renk Kodunu ifade eder
Rows(ED & ":" & ED).EntireRow.Hidden = True
End If
Next ED
End SubUygulama Adımları
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
[*]Araç çubuklarından Insert -> Module yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
[*]Üstteki kodu yapıştırın.
