rengi sarı olan satırların dışında kalan satırları seçip silme

[sedat.uysal52]

Merhaba, Ms. Excelde düzenlenmiş olan 12000 kayıtlı bir belgem var. Düzeltme yaptığım satırları sarı renkle işaretledim. Dolayısıyla sarı renkli olmayan tüm satırları makro oluşturup silmek istiyorum. Yardımcı olursanız sevinirim. Saygılarımla...

 

[Orion1]

Merhaba, Ms. Excelde düzenlenmiş olan 12000 kayıtlı bir belgem var. Düzeltme yaptığım satırları sarı renkle işaretledim. Dolayısıyla sarı renkli olmayan tüm satırları makro oluşturup silmek istiyorum. Yardımcı olursanız sevinirim. Saygılarımla...

Bu verileriniz hangi hücre aralıklarındadır?

 

[Orion1]

Aktif sayfada A sütununu kontrol ediyor.
Arka plan rengi sarı olmayan hücrelere ait satırı siliyor.

Sub sari_olmayan_satirlari_sil()
Dim sat As Long, i As Long
sat = Cells(65536, "A").End(xlUp).Row
For i = sat To 1 Step -1
    If Cells(i, "A").Interior.Color <> vbYellow Then Rows(i).Delete
Next
MsgBox "Sarı satırlar silindi" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[sedat.uysal52]

Benim verilerim A10:Q6189 arasında. Ancak ben bu aralıkta sarı rengin dışında kalan hücreleri temizlekten ziyade Bu aralıkta sarı rengin dışında bulunan satırları silmek istiyorum. Amacım sarı renkle işaretlediğim satırların kalmasıdır. Şimdiden ilginiz için çok teşekkür ederim.Saygılarımla...

 

[Orion1]

Benim verilerim A10:Q6189 arasında. Ancak ben bu aralıkta sarı rengin dışında kalan hücreleri temizlekten ziyade Bu aralıkta sarı rengin dışında bulunan satırları silmek istiyorum. Amacım sarı renkle işaretlediğim satırların kalmasıdır. Şimdiden ilginiz için çok teşekkür ederim.Saygılarımla...

3 nolu mesajda cevabı verdim.

 

[sedat.uysal52]

Merhaba, yazı fontu sarı olan(deseni değil) satırların dışında kalan satırların silinmesini sağlayan kod örneğini yazabilirmisiniz? Saygılarımla...

 

[polis-53]

gizle

peki arkadaşlar sarı satırları silmek değilde gizlemek istiyorum bunu nasıl yapabiliriz

 

[Korhan Ayhan]

Selamlar,

Sn. sedat.uysal52,

Evren beyin önerdiği koddaki aşağıdaki satırı bir sonraki ile değiştirip kullanabilirsiniz.

Eski hali;

If Cells(i, "A").Interior.Color <> vbYellow Then Rows(i).Delete

Yeni hali;

If Cells(i, "A").Font.Color <> vbYellow Then Rows(i).Delete

 

[Korhan Ayhan]

Selamlar,

Sn. polis-53,

Aşağıdaki kodu kullanabilirsiniz. A sütununda dolu olan ve dolgu rengi sarı olan satırları gizler.

Option Explicit
 
Sub DOLGU_RENGİ_SARI_OLAN_SATIRLARI_GİZLE()
    Dim X As Long
    
    Cells.EntireRow.Hidden = False
    
    For X = 1 To Range("A65536").End(3).Row
        If Cells(X, "A").Interior.ColorIndex = 6 Then Rows(X).Hidden = True
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub