Filtrelenmiş satırları silme

[ASLAN7410]

Merhaba, hayırlı geceler.

Ekte gönderdiğim excel dosyamın E sütununda T.C. numaraları mevcut.

Yapmak istediğim butona bastığımda E sütunundaki dolu olan hücrelere göre satırların silinmesini ve filtrenin geri açılmasını istiyorum.
Bir türlü yapamadım, yardımcı olur musunuz?

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Son = Cells(Rows.Count, 1).End(3).Row
Range("A2:E" & Son).SpecialCells(13) = ""

 

[ASLAN7410]

Sayın Seyit Bey, ilginiz için çok teşekkür ediyorum.
Kodu çalıştırdığımda aşağıdaki kod satırını sarıya boyuyor.

Range("A2:E" & Son).SpecialCells(13) = ""

 

[Seyit Tiken]

Örnek dosyanız.

 

[ASLAN7410]

Sayın Seyit Bey, kodu dosyama uyguladığımda bütün verileri siliyor.
Örneğin E sütunundaki T.C. leri sildiğimde gönderdiğim resimdeki gibi kalması gerekir.
.

 

[Seyit Tiken]

Bu kodu önceki kodla değiştiriniz.

Range("b2:E1000").SpecialCells(13) = ""

 

[ASLAN7410]

Sayın Seyit Bey, konuyu anlatamadım galiba kusura bakmayın.

Range("b2:E1000").SpecialCells(13) = "" Bu kod bütün verileri temizliyor.

Yapmak istediğim sadece E sütunundaki T.C. leri olanların satırlarını silmek istiyorum, T.C. leri olmayanların bilgiler kalacak.

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub TC_NO_Olan_Satirlari_Sil()
    With Range("E2:E" & Cells(Rows.Count, 1).End(3).Row)
        .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
    End With
End Sub

 

[ASLAN7410]

Sayın Korhan Bey, çok teşekkür ediyorum, ellerinize sağlık, kod tam istediğim gibi çalışıyor.

Hayırlı geceler diliyorum.