• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Belirli bir veriyi içeren satırları silmek

  • Konbuyu başlatan Konbuyu başlatan u.L.a.s
  • Başlangıç tarihi Başlangıç tarihi
Katılım
8 Eylül 2008
Mesajlar
950
Excel Vers. ve Dili
2016 İngilizce
merhabalar

A sütununda her satırda bazı veriler var.

Bazı satırlarda
" sdlsldkmsd description sdsf"
"description ffff ddd"

gibi description verisi içeren satırlar mevcut. böyle descripton verisi olan satırlar her ne olursa olsun o satırdaki tüm veriyi silsin istiyorum.

bilgi ve yardımlarınızı rica ederim
 
Merhaba ; bu kod işinizi görebilir diye düşünüyorum. Kod sayın üstad Ömer hocam'ın aynı şekilde sorulmuş bir soruya verdiği cevaptır.
Verilerinizin B sütununda olduğu varsayılır.
Kod:
Sub SartliSil()
 
Dim son As Long, deg, i As Long, durum As Boolean, j As Integer
 
son = Cells(Rows.Count, "B").End(xlUp).Row
deg = Array("*description*")
 
Application.ScreenUpdating = False
 
For i = son To 2 Step -1
    durum = False
    For j = 0 To UBound(deg)
        If Cells(i, "B") Like deg(j) Then durum = True
        If durum = True Then Exit For
    Next j
    If durum = True Then Rows(i).Delete Shift:=xlUp
Next i
 
Application.ScreenUpdating = True
 
Üstadım teşekkür ederim bilgi dönüşün için ömer hocamında emeğine bilgisine sağlık
 
Geri
Üst