EXCEL'de sadece BOLD olan SATIRLARI nasıl silebilirim?

[aytenayten]

Mrb arkdaşlar.

Sadece metinden oluşan bir Excel sayfam var elimde.
Sayfada bold (kalın) olarak yazılan satırları topluca silmek istiyorum.

Örnek vereyim =>

B sütunu olsun burası

abc
abc
gsb
gln
....................(burda boşluk var) ................
dab
hgl
.....................(burda boşluk var)...............
mnl
cdf
.
.
.

bu şekilde alt alta düzensiz bir şekilde devam eden bir sayfa var.

Ben bu dosyada sadece yukarıda gösterdiğim
bold (kalın) olan verileri topluca silmek istiyorum.

Bunun bir yöntemi var mı?

 

[usubaykan]

Option Explicit

Sub bold_sil()
Dim hücre
For hücre = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
    If Cells(hücre, "A").Font.Bold = True Then
        Rows(hücre).Delete
    End If
Next
MsgBox "Ok"
End Sub

makro ile bunu yapabilirsiniz. Hücre ("A") sütunu olarak baz alınmıştır.

 

[aytenayten]

Çok teşekkürler usubaykan. Çok faydalı oldu bu.

Peki aynı senaryoya göre bu defa da

bold olmayan verileri silmek istersek nasıl yaparız?

 

[Haluk]

True ifadesini False yapın ...

.

 

[aytenayten]

Teşekkür ederim.

 

[scooby]

Merhaba, peki sadece A degil de daha fazla sütunda bold hücreleri filtrelemek istesek? Teşekkürler

 

[Korhan Ayhan]

Tablonuzda boş bir sütuna aşağıdaki kullanıcı tanımlı fonksiyonu kullanarak kalın fontlu hücreleri saydırabilirsiniz. Sonrasında bu sütuna göre filtre uygulayabilirsiniz.

Option Explicit

Function COUNT_BOLD_RANGE(My_Range As Range)
    Dim Rng As Range
    
    Application.Volatile True
    
    For Each Rng In My_Range
        If Rng.Font.Bold = True Then COUNT_BOLD_RANGE = COUNT_BOLD_RANGE + 1
    Next
End Function

 

[scooby]

Elleriniz dert görmesin cok isime yaradi.