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...
X Sayı Atlayarak Satır Gizleme isimli kodu kullanarak, X kadar sayıda atlama yaparak dolu satırlarda gizleme işlemini kolayca yerine getirebilirsiniz.
Yararlanmanız temennisiyle.
Bu kod ile Tüm Satırları ve Sütunları Gösterme işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
Yararlanmanız temennisiyle.