üstü çizili hücre değerini filtreleme

[hayalmeyal]

Merhaba iyi çalışmalar
3000 civarı satırı olan liste içinde bazı satırlar renkli bazı satırlar siyah renkte yazılmış. bazıları ise siyah veya kırmızı renk fakat üstü çizgili olarak biçimlendirilmiş.

bu satırlar içersinde hücre değeri "üstü çizgili" olarak biçimlendirilmiş hücreleri nasıl filtreleme yapabilir veya bu hücreleri nasıl bulup ayırabilirim.

 

[Ömer]

Merhaba,

Verilerin A2:A10 aralığında olduğu düşünüldü. Üstü çizili olan verileri C sütununa yazar.
Siz kendi dosyanıza göre düzenlersiniz.

Sub Cizgili_Bul()

    Dim c As Range, sat As Long

    Range("C2:C" & Rows.Count).ClearContents
    
    sat = 2
    For Each c In Range("A2:A10")
        If c.Font.Strikethrough = True Then
            Cells(sat, "C") = c
            sat = sat + 1
        End If
    Next c

End Sub

.

 

[hayalmeyal]

ömer bey kod çalışıyor çok teşekkür ederim.

fakat verdiğiniz bu kod, üstü çizili hücreleri bularak c1 den başlayarak aşağıya doğru yazıyor. hemen üstü çizili hücrenin yanına yazmıyor

doğrudan üstü çizgili hücrenin hemen yanına yazma şansı varmıdır?
a2 cizgili ise, c2 de belirtsin.

burdaki amacım komple o üstü çizili satırı bulup elemek olduğundan dolayı. verdiğiniz kodu aktif olarak kullanamıyorum. satırlarda veri içeriği aynı fakat sadece üstü çizili ve çizili olmayan şekilde ayrım olduğundan düşeyara bul vb formulle ayırma şansım yok.

 

[Necdet]

Merhaba,

Ömer Bey'in kodlarında küçük bir değişiklikle sorunuz çözülür.

Sub Cizgili_Bul()

    Dim c As Range

    Range("C2:C" & Rows.Count).ClearContents
    
    For Each c In Range("A2:A" & Cells(Rows.Count, "A").End(3).Row)
        If c.Font.Strikethrough = True Then Cells(c.Row, "C") = 1
    Next c

End Sub

 

[hayalmeyal]

ömer bey, necdet bey elinize emeğinize sağlık teşekkür ederim. son verilen kod ile işim tam anlamı ile çözüldü.
iyi çalışmalar.