Koşulla Biçimlendirilen Hücreleri Silme ve Sütunlarda Yinelenenleri Kaldırma

[utku1634]

Merhaba,

Web ortamında araştırmama rağmen iki konuda da birebir çözüm bulamadım.

Aşağıda sunulan Excel dosyasında koşullu biçimlendirmeyle sarıya boyanan hücrelerin silinmesi için uğraşıyorum. Forumlarda benzer örneklerini buldum fakat makro koşullu biçimlendirilen sarıları değil varsa sarıya boyanan hücreleri siliyor.

Birde ayrı ayrı her sütunda yinelenen değerlerin silinmesi konusunda tam anlamıyla makro bulamadım.

Yardımınız için şimdiden teşekkür ederim.

Ellerinize sağlık.

 

[Korhan Ayhan]

Aşağıdaki kod sarı renkli hücreleri siler.

Sub RENKLİ_HÜCRELERİ_SİL()
    Dim Veri As Range, Alan As Range
    For Each Veri In Range("A5:IK500")
        If Veri.DisplayFormat.Interior.Color = 65535 Then
            If Alan Is Nothing Then
                Set Alan = Veri
            Else
                Set Alan = Union(Alan, Veri)
            End If
        End If
    Next
    If Not Alan Is Nothing Then Alan.Delete Shift:=xlUp
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

İkinci kod ise sütunlardaki yinelenen değerleri siler.

Sub YİNELENENLERİ_KALDIR()
    Dim X As Integer, Son As Long
    For X = 1 To 245
        Son = Cells(Rows.Count, X).End(3).Row
        ActiveSheet.Range(Cells(4, X), Cells(Son, X)).RemoveDuplicates Columns:=1, Header:=xlYes
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[utku1634]

Korhan Bey çok çok teşekkür ederim desteğiniz ve çalışmanız için