Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
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...
Tüm Satırları ve Sütunları Gösterme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Uygulama Adımları
Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.Project - VBAProject alanının, ekranın sol tarafında...