Soru İçerik silmek

[okan32]

Merhaba Arkadaşlar
Belirli metin içeren satırdaki verileri silmek istiyorum. Aşağıda örnek dosyamda yapmak istediğimi açıkladım yardımlarınızı bekliyorum. Şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Icerik_Temizle()
    Dim Veri As Range, Say As Long
    
    For Each Veri In Range("D4:D" & Cells(Rows.Count, "D").End(3).Row)
        If Veri.Value = "4336532300" Then
            Veri.Offset(0, -1).Resize(1, 3).ClearContents
            Veri.Offset(0, 22).ClearContents
            Say = Say + 1
        End If
    Next

    If Say > 0 Then
        MsgBox Say & " adet veri silinmiştir.", vbInformation
    Else
        MsgBox "Aranan veri bulunamadı!", vbExclamation
    End If
End Sub

 

[hmtstc]

hocam selam, ben düzenledim de satırı komple sildiriyorum ve boş satır ekliyorum. şöyle düşündüm, bugün silinmek istenen değer yarın başka olabilir. o yüzden inputbox yaptım. satır aralığını fixledim. değişken ise ayarlayabilirsiniz

 

[Muzaffer Ali]

Merhaba.
Alternatif olsun.
Aşağıdaki kodu kullanabilirsiniz.

Sub sil()
    Dim Bul As Range
    Dim Satir As Long
    Set Bul = Range("D:D").Find(What:="4336532300", LookIn:=xlFormulas, LookAt:=xlWhole)
    If Bul Is Nothing Then
        MsgBox "Bulunamadı."
        Exit Sub
    End If
    Satir = Bul.Row
    Range("C" & Satir & ":E" & Satir & ", Z" & Satir).Delete xlUp
    MsgBox "Silindi."
End Sub

Kodlar tam eşleşme olduğunda işlem yapar. Eğer tam eşleşme olmasa da bulsun ve silsin isterseniz xlwhole yerine xlpart yazın.

 

[okan32]

çok teşekür ederim arkadaşlar yarın denerim inşaalah

 

[okan32]

Korhan bey,hmtstc ve dalgalikur ilginiz için çok teşekkür ederim kodlar gayet güzel çalışıyor.