Filtrelenmis_Sütundaki_BOS_ve_BASLIK_kelimesini_ic e ren_Satirlarin_Silinmesi

[lsuersoy]

Merhaba Arkadaslar ; Benim CR 11 ile Excel formati olarak daginik bir sekilde gelen veritabanini bicimlendirme sorunum var.

Göresel Makro ile olusturdugum kodlar beni bir yere kadar getirdi..

Fakat her defasinda veri buyuyebildiginden , filtreedilen satirlarin silinmesi gerekiyor...aksi halde istedigim bicimi veremiyorum...

Bu sekilde 20 farkli dosya ve bu dosyalarda cesitli veriler var ayni turden...

Ara baslik sayisi ayni miktarda olmadiğindan , görsel makro ile silme islemi VT yi bozabiliyor...

IF dongusu ile B sutunundaki B1-B2000 hucrelerinin icini kontrol ettip hucre icerisinde ki Metinsel bilgi BOS yada BASLIK ise TUM satıri silecek , eğer hücre içerisindeki bilgi " 1 " ise satiri SİLMEYECEK...

yardımlariniz için şimdiden teşekkürler...

Herkese iyi çalışmalar...

:???:

 

[alpi]

sayfa adını sağ tıklatıp kod görüntüle yi seçin aşağıdaki kodu kod editörüne yazın ve çalıştırın

Sub Sil()
    Dim x As Long
    For x = Range("B10:B65536").End(xlDown).Row To 1 Step -1
        If Cells(x, 2).Text = "BOŞ" Or Cells(x, 2).Text = "BAŞLIK" Then
            Rows(x).Delete
        End If
    Next
End Sub

 

[lsuersoy]

Alpi Teşekkürler

teşekürler Alpi

Kod mükemmel çalışıyor , ellerine sağlık...
çalışmalarında başarılar